[转载]vb6.0操作SQLite数据库(动态加载sqlite3.dll)

 一种比较良好的操作方式是在程序中加载sqlite3.dll，然后操作数据库。使用的是litex提供的sqlite3.dll。

这样做的好处？那是显而易见的，因为程序动态的加载dll比注册dll更方便。我们所要体现的中心思想始终是最简单化的用户操作。而且就我个人而言，系统中注册了大量的dll本身也觉得缺少美感，如果系统重装那就什么都没了。不是吗？

然后我们需要的仅仅是使用LoadLibrary去加载一下。
使用LoadLibrary，我们必须先预定义LoadLibrary的方法，他是Windows API的一部分，需要进行预定义。

Private Declare Function FreeLibrary Lib "kernel32" (ByValhLibModule As Long) As Long
Private Declare Function LoadLibraryLib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String)As Long
Private Declare FunctionGetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVallpProcName 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) AsLong

然后就很简单了。

    Dim lb AsLong
    lb =LoadLibrary(App.Path&"sqlite3.dll")
   
    Dim oDB AsObject
    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")