carlito9987
12-05-2010, 13:31
Ciao a tutti, avrei bisogno di una mano...
premetto di essere alle prime armi con vb 2008 e sono alle prese con una combox!
Il mio problema è questo:
Ho una form con una combobox e delle textbox, in base alla selezione nella combobox, le textbox devono essere popolate. I dati nella combobox arrivano tramite query, questo è il codice:
Public Sub GestioneContatti_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim strsql As String
Dim strCN As String
Dim contatto As String
strsql = "Select * from contatti"
strCN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
CN.Open(strCN)
RS = CN.Execute(strsql)
While Not RS.EOF
contatto = " " + RS.Fields("Nome").Value + " " + RS.Fields("Cognome").Value
cmbContatti.Items.Add(contatto)
RS.MoveNext()
End While
CN.Close()
Come faccio a popolare le textbox???
Vi ringrazio in anticipo per le risposte!
premetto di essere alle prime armi con vb 2008 e sono alle prese con una combox!
Il mio problema è questo:
Ho una form con una combobox e delle textbox, in base alla selezione nella combobox, le textbox devono essere popolate. I dati nella combobox arrivano tramite query, questo è il codice:
Public Sub GestioneContatti_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim strsql As String
Dim strCN As String
Dim contatto As String
strsql = "Select * from contatti"
strCN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
CN.Open(strCN)
RS = CN.Execute(strsql)
While Not RS.EOF
contatto = " " + RS.Fields("Nome").Value + " " + RS.Fields("Cognome").Value
cmbContatti.Items.Add(contatto)
RS.MoveNext()
End While
CN.Close()
Come faccio a popolare le textbox???
Vi ringrazio in anticipo per le risposte!