Question

vb6.0动态加载ODBC驱动（MySQL数据源）的完整vb代码？

编程语言采用vb6.0，网络数据库采用MySQL，ODBC驱动我已经有了。
问题是：为了减少vb程序客户端对ODBC数据源的配置、同时又不希望客户在运行vb程序前要先安装ODBC驱动；那么我想把客户端对MySQL数据源的配置过程用vb代码一并写进程序中，主要对注册表进行操作。具体怎么写，谁有代码？
要求在一个command_click事件中完成（代码执行：驱动检测，没有就安装）。
vb代码经测试成功即刻送分。或发邮箱：yangyingjun666@163.com
谢谢。
首先将myodbc3.dll文件复制到系统下，然后将以下内容做成***.reg文件并运行。
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\MySQL AB\MySQL Connector/ODBC 3.51]
"Version"="3.51.24"
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\MySQL ODBC 3.51 Driver]
"UsageCount"=dword:00000001
"Driver"="C:\\WINDOWS\\system32\\myodbc3.dll"
"Setup"="C:\\WINDOWS\\system32\\myodbc3S.dll"
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers]
"MySQL ODBC 3.51 Driver"="Installed"

Answer 1

首先将myodbc3.dll文件复制到系统下，然后将以下内容做成xxx.reg文件并运行。

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\MySQL AB\MySQL Connector/ODBC 3.51]
"Version"="3.51.24"
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\MySQL ODBC 3.51 Driver]
"UsageCount"=dword:00000001
"Driver"="C:\\WINDOWS\\system32\\myodbc3.dll"
"Setup"="C:\\WINDOWS\\system32\\myodbc3S.dll"
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers]
"MySQL ODBC 3.51 Driver"="Installed"

Answer 2

下面是我一个项目中自动添加MS SQL数据源的代码，希望对你有帮助

Public Sub addodbc() '自动添加数据源
Dim mystring As String * 255
Dim driver As String * 64
Dim retcode As Integer
driver = "SQL Server" & Chr$(0)
mystring = "dsn=数据源名" _
& Chr$(0) & "description=automodify" _
& Chr$(0) & "server=" & 服务器名 _
& Chr$(0) & "useprocforprepare=yes" _
& Chr$(0) & "oemtoansi=no" _
& Chr$(0) & "database=数据库名" _
& Chr$(0) & "network=dbmssocn" _
& Chr$(0) & Chr$(0)
retcode = SQLConfigDataSource(0, 1, driver, mystring)
End Sub

Answer 3

把你邮箱发上来～！我得分后把代码给你～！