Ciao a tutti, devo creare un'applicazione windows da un database e sono 4 giorni che sono bloccata su un punto: data una listbox con dei nomi di persona, voorei che nelle textbox da me definite apparissero i dati della persona che ho selezionato, presi dal database! vi allego il codice e spero che qlcuno sia cpsi geniale da trovare il problema!! grazieee
Imports System.Data.SqlClient
Public Class Form1
Dim conn As New SqlConnection("Data Source=PC-MATTEO\SQLEXPRESS;Initial Catalog=Proposta_Soluzione_1;Integrated Security=True")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim str As String = "SELECT Nome + ' '+ cognome as Persona FROM Persone"
Dim cmd As New SqlCommand(str, conn)
Dim da As New SqlDataAdapter(cmd)
Dim ds As New DataSet
da.Fill(ds, "Persone")
Pazienti.DataSource = ds.Tables("Persone")
Pazienti.DisplayMember = "Persona"
Dim st As String = "SELECT Nome + ' ' + Cognome as Medico FROM Persone " 'WHERE ID_Ruolo = 4"
Dim dset As New DataSet
Dim cm As New SqlCommand(st, conn)
Dim dad As New SqlDataAdapter(cm)
dad.Fill(dset, "Persone")
ComboBox1.DataSource = dset.Tables("Persone")
ComboBox1.DisplayMember = "Medico"
End Sub
Private Sub Aggiungi_Paziente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aggiungi_Paziente.Click
Dim frm2 As New Form2()
frm2.Show()
End Sub
Public Class Paziente
Private pNomePaziente As String
Private pId_Pers As Integer
Public Sub New()
End Sub
Public Sub New( _
ByVal Nome As String, _
ByVal ID_Pers As Integer)
' si assegna il valore alle proprietà
' IdProdotto e NomeProdotto
pId_Pers = ID_Pers
pNomePaziente = Nome
End Sub
Property Nome() As String
Get
Return pNomePaziente
End Get
Set(ByVal Valore As String)
pNomePaziente = Valore
End Set
End Property
Property ID_Pers() As String
Get
Return pId_Pers
End Get
Set(ByVal Valore As String)
pId_Pers = Valore
End Set
End Property
Public Overrides Function ToString() As String
Return pNomePaziente
End Function
End Class
Private Sub CaricaFormCollection()
Dim myPaziente As Paziente
' oggetto clsProdotto selezionato
' nella ListBox Pazienti
myPaziente = CType( _
Pazienti.SelectedItem, Paziente)
Try
With myPaziente
TextBox1.Text = .ID_Pers
TextBox2.Text = .Nome
' seleziona il fornitore nel Combo cboFornitori
' CercaItemInCombo(cboFornitori, .IdFornitore)
'seleziona la categoria nel Combo cboCategorie
'CercaItemInCombo(cboCategorie, .IdCategoria)
End With
Catch thisExcept As Exception
MessageBox.Show(thisExcept.Message, _
"CaricaFormCollection")
End Try
End Sub
Private Sub Pazienti_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pazienti.DoubleClick
CaricaFormCollection()
End Sub
End Class
VVoVe: 
