Ciao a tutti, sono questa di questo forum, appena registrata e ancora più nuova del mondo della programmazione in generale e di VB.net
Vorrei dare una mano alla nostra piccola azienda di famiglia, sviluppando un micro gestionale personalizzato.
La difficoltà che trovo ora è la seguente, ho un database fatto in access, nel mio form ho creato un combo e 2 text box, sostanzialmente in questo combo dovrei caricare assieme 2 dati che si trovano nel db (Codice e Descrizione una volta che seleziono dal combo questa voce il text1 e text2 si dovrebbe riempire con la voce del DB Colore e Taglia.
Forse non sono stata chiara vero ?
Dim CN As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=D:\negozio.mdb;Persist Security Info=False")
Dim strSql As String = "Select * FROM Prodotti ORDER BY Descrizione"
Dim CMD As New OleDb.OleDbCommand(strSql, CN)
CN.Open()
Dim RDR As OleDb.OleDbDataReader = CMD.ExecuteReader()
While (RDR.Read())
comboProdotto.Items.Add(RDR("Descrizione" & " " & "Codice")) -- CREDO CHE IL PRIMO ERRORE STIA QUI NEL FATTO CHE NON MI FA VEDERE NELLA COMBO DESCRIZIONE E CODICE
End While
RDR.Close()
CN.Close()
------------
Ho provato anche così però mi mette Descrizione e sotto Codice
While (RDR.Read())
comboProdotto.Items.Add(RDR("Descrizione"))
comboProdotto.Items.Add(RDR("Codice"))
End While
Rispondi quotando