2024年1月16日发(作者：)

[转载]vb6.0操作SQLite数据库（动态加载）

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

这样做的好处？那是显而易见的，因为程序动态的加载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( & "")

Dim oDB As Object

Set oDB = CreateObject("nnection")

= n

( & "")

e ("insert into testtable values(2, 'laoma', 20)")

= s

=

可以这样加载

CreateObject("nnection.1")

set oDB =