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:
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
fatto questo ho collegato i dati ad una ComboBox:
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"
E fino a qui tutto ok...nella combo mi arrivano perfettamente tutti i dati...
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...