Steg 1

Tema:
Öppnande och stängande av databasen samt koppling till textboxarna

Öppna upp koden till formen som konstruerades i föregående kapitel.

Sätt in följande i General Declarations

' Kontakten till databasen
Private WithEvents Conn As ADODB.Connection
' Själva tabellen
Private WithEvents RS As ADODB.Recordset

Bråkar VB om någon av ovanstående rader skall du kolla om du utfört punkt 11 på föregående sida

Välj sedan Form_Load händelsen i VB och skriv in följande kod i denna händelse

Dim strSQL As String

Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset

' modifiera vid behov sökvägen till databasen
' OBS! skall skrivas på en rad
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\adotest.mdb"

strSQL = "SELECT * FROM ado"

RS.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

' Kopplar textboxarna till rätt fält
Set txtEnText.DataSource = RS
txtEnText.DataField = "EnText"

Set txtEttDatum.DataSource = RS
txtEttDatum.DataField = "EttDatum"

Set txtEttNummer.DataSource = RS
txtEttNummer.DataField = "EttNummer"

Set txtEnMemo.DataSource = RS
txtEnMemo.DataField = "EnMemo"

Provkör. Om det inte fungerar så kontrollerar du att du döpt om alla textboxar till rätta namn. Kontrollera även fältens namn i tabellen

Skriv in följande kod i Form_Unload händelsen

RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing