在VisualBasic6.0中动态加载ODBC驱动程序（以MySQL数据源为例）：详细教程与实践指南

在编写数据库应用程序时&＃xff0c;常常需要用户自己在控制面板中配置ODBC数据源。然而对一般用户而言&＃xff0c;配置ODBC数据源的工作是有一定困难的。因此&＃xff0c;如果能在程序中动态加载ODBC数据源&＃xff0c;就能大大方便应用程序最终用户的使用。本文介绍在VB中动态加载ODBC数据源的两种方法。

方法之一&＃xff1a;修改注册表

一般情况下&＃xff0c;用户在控制面板中配置好ODBC数据源后&＃xff0c;Windows系统会将用户配置的信息写在注册表中。当应用程序需要用到数据源时&＃xff0c;Windows会通知底层接口查阅注册表中该数据源的配置。例如&＃xff0c;如果配置了系统数据源&＃xff0c;Windows系统会根据配置修改注册表中的 HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI 主键。因此&＃xff0c;我们只要在应用程序中使用API函数来完成Windows对注册表所做的工作&＃xff0c;就可以达到动态加载数据源的目的。

对于不同类型的数据源&＃xff0c;注册表修改的内容也会各有不同&＃xff0c;但基本上都要修改两个地方:一个是在ODBC.INI子键下建立与数据源配置相关的项&＃xff1b;另一个是在\ODBC.INI\ODBC Data Source子键下建立一个新项&＃xff0c;以告诉驱动程序管理器ODBC数据源的类型信息。

下面以配置一个ODBC系统数据源为例&＃xff0c;给出一段动态加载Access数据源的VB例程&＃xff1a;

Public Function LoadDbSource(StrSourceName, StrSourceDB, StrDescription As String) As Boolean

Dim hKey As Long &＃39;要打开的注册表键句柄

Dim lReturn As Long &＃39;注册表API函数的执行返回值

Dim StrSubKey As String &＃39;要打开的子键

Dim Buffer As String * 255

Dim StrSysDir As String

Dim StrDbq, StrDriver, StrFil, StrUid As String

Dim LngDriverID, LngSafeTransactions As Long

Dim StrImplict, StrUserCommit As String

Dim LngPageTimeout, LngThreads, LngMaxBufferSize As Long

Dim StrDbType As String

&＃39;检测是否安装 Access ODBC 驱动 odbcjt32.dll

lReturn &＃61; GetSystemDirectory(Buffer, 255)

StrSysDir &＃61; Left(Buffer, lReturn) &＃39;获取Windows系统目录

StrDriver &＃61; StrSysDir & "\odbcjt32.dll"

If Dir(StrDriver) &＃61; "" Then

MsgBox "您的计算机中没有安装Access的ODBC驱动程序odbcjt32.dll&＃xff0c;无法加载数据源。", vbOKOnly &＃43; vbCritical

LoadDbSource &＃61; False

Exit Function

End If

StrSubKey &＃61; "SOFTWARE\ODBC\ODBC.INI" & "\" & StrSourceName

lReturn &＃61; RegCreateKey(HKEY_LOCAL_MACHINE, StrSubKey, hKey)

If lReturn <> ERROR_SUCCESS Then

LoadDbSource &＃61; False

Else

StrDbq &＃61; StrSourceDB

LngDriverID &＃61; 25

StrFil &＃61; "MS Access;" &＃39;文件类型"MS Access" for Microsoft Access

LngSafeTransactions &＃61; 0

Call RegSetValueEx(hKey, "DBQ", 0&, REG_SZ, StrDbq, LenB(StrDbq))

Call RegSetValueEx(hKey, "Description", 0&, REG_SZ, StrDescription, LenB(StrDescription))

Call RegSetValueEx(hKey, "Driver", 0&, REG_SZ, StrSourceDB, LenB(StrSourceDB))

Call RegSetValueEx2(hKey, "DriverID", 0&, REG_DWORD, LngDriverID, 4)

Call RegSetValueEx(hKey, "FIL", 0&, REG_SZ, StrFil, LenB(StrFil))

Call RegSetValueEx(hKey, "UID", 0&, REG_SZ, "", LenB(""))

Call RegSetValueEx2(hKey, "SafeTransaction", 0&, REG_DWORD, LngSafeTransactions, 4)

Call RegCloseKey(hKey)

StrSubKey &＃61; StrSubKey & "\Engines\Jet"

lReturn &＃61; RegCreateKey(HKEY_LOCAL_MACHINE, StrSubKey, hKey)

If lReturn <> ERROR_SUCCESS Then

LoadDbSource &＃61; False

Else

StrImplict &＃61; ""

StrUserCommit &＃61; "Yes"

LngPageTimeout &＃61; 5

LngThreads &＃61; 3

LngMaxBufferSize &＃61; 2048

Call RegSetValueEx(hKey, "ImplictCommitSync", 0&, REG_SZ, StrImplict, LenB(StrImplict))

Call RegSetValueEx2(hKey, "MaxBufferSize", 0&, REG_DWORD, LngMaxBufferSize, 4)

Call RegSetValueEx2(hKey, "PageTimeout", 0&, REG_DWORD, LngPageTimeout, 4)

Call RegSetValueEx2(hKey, "Threads", 0&, REG_DWORD, LngThreads, 4)

Call RegSetValueEx(hKey, "UserCommitSync", 0&, REG_SZ, StrUserCommit, LenB(StrUserCommit))

Call RegCloseKey(hKey)

&＃39;设置ODBC数据库引擎名称

lReturn &＃61; RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", 0&, KEY_WRITE, hKey)

If lReturn <> ERROR_SUCCESS Then

LoadDbSource &＃61; False

Else

StrDbType &＃61; "Microsoft Access Driver (*.mdb)"

lReturn &＃61; RegSetValueEx(hKey, StrSourceName, 0&, REG_SZ, StrDbType, LenB(StrDbType))

If lReturn &＃61; ERROR_SUCCESS Then LoadDbSource &＃61; True

End If

End If

End If

End Function

在上面的程序中使用了标准的Win32 API注册表操作函数&＃xff0c;在VB "API文本浏览器"工具和MSDN中可以很容易查到其详细说明。

方法之二&＃xff1a;使用ODBC DLL提供的函数

Windows系统目录中提供有一系列专门操作ODBC的动态链接库&＃xff0c;其中Odbcinst.dll提供了一个可以动态的增加、删除和修改数据源的函数SQLConfigDataSource()。微软在MSDN的帮助文档中提供了对该函数的详细使用说明&＃xff1a;

BOOL SQLConfigDataSource(

HWND hwndParent,

WORD fRequest,

LPCSTR lpszDriver,

LPCSTR lpszAttributes);

其中&＃xff1a;hwndParent为调用窗体句柄&＃xff1b;fRequest为操作码&＃xff0c;通过设置不同的值可以实现对数据源的增加、删除、修改操作&＃xff0c;这些对应值可以在MSDN中查到&＃xff1b;lpszDriver参数传递数据库引擎&＃xff0c;lpszAtrributes是配置信息列表&＃xff0c;配置信息条目之间以字符代码Chr(0)分隔。同样&＃xff0c;我们以上面的Access数据源配置为例写一个标准函数&＃xff1a;

Private Const ODBC_ADD_SYS_DSN &＃61; 4

Private Declare Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long

Public Function LoadDbSource2(StrDriver, StrAttributes As String) As Boolean

LoadDbSource2 &＃61; SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, StrDriver, StrAttributes)

End Function

在VB程序中调用这个标准例程&＃xff1a;

Dim StrAttributes As String

StrAttributes &＃61; "DSN&＃61;AccessODBC2" & Chr(0) & "Desciption&＃61;动态加载ODBC示例" & Chr(0)

StrAttributes &＃61; StrAttributes & "Dbq&＃61;" & App.Path & "\MyDb.mdb" & Chr(0) & "FIL&＃61;MS Access;" & Chr(0)

StrAttributes &＃61; StrAttributes & "MaxBufferSize&＃61;2048" & Chr(0) & "PageTimeout&＃61;5" & Chr(0)

Call LoadDbSource2("Microsoft Access Driver (*.mdb)", StrAttributes)

上述两种方法都可以实现VB动态加载ODBC数据源&＃xff0c;对于不同类型的数据源&＃xff0c;注册表中记录的内容会有一些不同。所以&＃xff0c;除查阅有关文档外&＃xff0c;程序员可以先通过手工在控制面板中配置数据源&＃xff0c;然后再通过观察注册表中的内容再进行编程。