VB中配置ODBC？？

[yanzhu]

我想在VB应用程序中配置ODBC，但不知该如何写，一点头绪也没有？？？？？

[zhangbob]

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
'=============
' 写DSN
'=============
I = SetKeyValue(ODBC_REG_KEY, sDSN, "SQL Server", REG_SZ)
Select Case I
Case ERROR_NONE
CreateNewKey ODBC_REG_KEY1 & "\" & sDSN, HKEY_CURRENT_USER
I = SetKeyValue(ODBC_REG_KEY1 & "\" & sDSN, "Database", sDB, REG_SZ)
I = SetKeyValue(ODBC_REG_KEY1 & "\" & sDSN, "Server", sServer, REG_SZ)
I = SetKeyValue(ODBC_REG_KEY1 & "\" & sDSN, "driver", sDriver, REG_SZ)
I = SetKeyValue(ODBC_REG_KEY1 & "\" & sDSN, "description", "SharPo BOWM DSN", REG_SZ)
Case ERROR_BADKEY
MsgBox "ODBC尚未安装", vbExclamation
Case Else
MsgBox "不能正常操作注册表"
End Select

[zhangbob]

要是还有问题,我的e-mail :[e-mail]

[yanzhu]

对不起呀，我不知道该如何用你给我的代码，可以说详细一点吗？不好意思，本人没涉及过这方面的东西！！！

[zhangbob]

将这些代码写在modul中,在该条用的地方调用啦!:)

[nik_Amis]

SQLConfigDataSource

[好好吃面天天向上]

Writting.

[chenyu5188]

UP

[落伍者]

利用rdo 建立odbc连接 ，请将数据库换成你自己的数据库
添加对rdo的引用 Microsoft Remote Data Object2.0

Private Sub Command1_Click()

Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Build keywords string.
strAttribs = "Description=" _
& "SQL Server on server SEQUEL" _
& Chr$(13) & "OemToAnsi=No" _
& Chr$(13) & "SERVER=SEQUEL" _
& Chr$(13) & "Network=DBNMPNTW" _
& Chr$(13) & "Database=WorkDB" _
& Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"

' Create new registered DSN.
rdoEngine.rdoRegisterDataSource "Example", _
"SQL Server", True, strAttribs '第一个参数是DSN名，，strAtrribs一chr(13)为分割的参数
' Open the database.



End Sub