vb6.0动态加载ODBC驱动（MySQL数据源）的完整vb代码？
问题是：为了减少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"
最新回答
明月本无心
2024-04-24 08:02:44
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"
西羊夕下
2024-04-24 03:58:32
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
暧昧不是爱情是毒药
2024-04-24 06:22:20
热门标签
