[转载]vb6.0操作SQLite数据库（动态加载sqlite3.dll）
一种比较良好的操作方式是在程序中加载sqlite3.dll，然后操作数据库。使用的是litex提供的sqlite3.dll。
这样做的好处？那是显而易见的，因为程序动态的加载dll比注册dll更方便。我们所要体现的中心思想始终是最简单化的用户操作。而且就我个人而言，系统中注册了大量的dll本身也觉得缺少美感，如果系统重装那就什么都没了。不是吗？
然后我们需要的仅仅是使用LoadLibrary去加载一下。
使用LoadLibrary，我们必须先预定义LoadLibrary的方法，他是Windows API的一部分，需要进行预定义。数据库简单吗
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
然后就很简单了。
Dim lb As Long
lb = LoadLibrary(App.Path & "sqlite3.dll")
Dim oDB As Object
Set oDB = CreateObject("LiteX.LiteConnection")
TextSQLiteVersion.Text = oDB.Version
oDB.open (App.Path & "test.db")
oDB.Execute ("insert into testtable values(2, 'laoma', 20)")
TextSQLiteChanges.Text = oDB.changes
TextSQLitePath.Text = oDB.Path
oDB.Close
可以这样加载 set oDB = CreateObject("LiteX.LiteConnection.1")

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。