Buon dì, faccio presente che sono alla primissime armi con la versione VB2005...vengo dalla VB6.
Seguento varie guide, msdn e il forum stesso sono riuscito a fare una connessione con un data base access con il seguente codice:
fatto questo ho collegato i dati ad una ComboBox:codice:Private Sub ApriConnessioneMDB() Dim oConn As String sPasswordDB = "prova" ' Inseriamo qui la password del db REM Indichiamo il percorso del database sDBPath = "../DB.mdb" REM Se il nostro DB è protetto da password dobbiamo indicarla REM nella stringa di connessione If sPasswordDB <> "" Then sDBPath = sDBPath & ";;Persist Security Info=True;Jet OLEDB: Database Password=" & sPasswordDB End If REM Impostiamo il provider di accesso ai dati oConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sDBPath CNN.ConnectionString = oConn CNN.Open() End Sub
E fino a qui tutto ok...nella combo mi arrivano perfettamente tutti i dati...codice:Dim strDB As String strDB = "SELECT * FROM Comuni Order by Comune" Dim objDataAdapter As New OleDbDataAdapter(strDB, CNN) Dim objTable As New DataTable() objDataAdapter.Fill(objTable) ComboS.DataSource = objTable ComboS.DisplayMember = "Comune"
ora però mi si pone un nuovo muro.
Una volta selezionato il record dalla combo dovrei estrapolare gli altri elemeni e inserirli in più textbox. E qui casca l'asino. Come fare? In VB6 usavo,più o meno, il Select e poi un "txtbox.text=db.field(1)"...
ma qui? in vb2005? come posso fare?
PS: il passo successivo sarà quello di aggiungere un nuovo record a un db...e pure qui devo ancora capire come si fa...

Rispondi quotando