1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Option Explicit
Dim oConn As ADODB.Connection
Dim oRec As ADODB.Recordset
Private Sub cmdOpen_Click()
Dim sConn As String
sConn = "Driver=SQLite3 ODBC Driver; Database=D:\temp\champignons.db3"
Set oConn = New ADODB.Connection
Set oRec = New ADODB.Recordset
oConn.ConnectionString = sConn
oConn.Open
Call oRec.Open("SELECT * FROM DeadlyMushrooms", oConn, adOpenDynamic, adLockOptimistic)
oRec.MoveFirst
ReadDb
End Sub
Private Sub ReadDb()
Do While Not (oRec.EOF)
Debug.Print "ID: " & oRec.Fields("ID").Value & " Scientific_Name: " & _
oRec.Fields("Scientific_Name").Value & " Common_Name: " & oRec.Fields("Common_Name").Value & _
" Notes: " & oRec.Fields("Notes").Value
oRec.MoveNext
Loop
End Sub
Private Sub cmdClose_Click()
oRec.Close
oConn.Close
Set oRec = Nothing
Set oConn = Nothing
End Sub |
Partager