求助:VB中使用sqlite3.dll操作Sqlite数据库如何实现类似MoveFirst,MovePrevious功能?
我的问题是如何实现其它数据库中类似rs.MoveFirst, rs.MovePrevios, rs.MoveNext, Rs.MoveLast功能,折腾了几天也没找到方法,谢谢!
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Sub Form_Load()
lb = LoadLibrary("D:\tools\OA\SQLite\sqlite3VB.dll")
Set oDB = CreateObject("LiteX.LiteConnection")
TextSQLiteVersion.Text = oDB.Version
oDB.open ("D:\tools\OA\SQLite\DataBase\test1.db3")
End Sub
Private Sub CmdDisplay_Click()
Set rs = oDB.Prepare("select * from TableTest")
For i = 0 To rs.rowcount
Text1.Text = Text1.Text & i & " | ..." & rs.ColumnValue(0) & "-----" & rs.ColumnValue(1) & "-----" & rs.ColumnValue(2) & vbCrLf
rs.Step
Next i
End Sub