日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

下面給你的代碼是百分之百可以連接成功的，它也是我正在使用中的代碼片段哦。

Private Sub Command1_Click()

  Dimcn As New ADODB.Connection  '創建數據庫對象

  Dimrs As New ADODB.Recordset   '創建表對象

  DimstrCn As String   '連接字符串

  Dimdb_host As String

  Dimdb_user As String

  Dimdb_pass As String

  Dimdb_data As String

  db_host = "188.88.88.188" '服務器IP地址

 db_user = "users"                '登陸服務器時的“用戶名”

 db_pass = "passwords"       '登陸服務器時的“密  碼”

 db_data = "sqlname"           '數據庫的庫名稱sqlname（不是表名稱）  

 strCn = "DRIVER={MySQL ODBC 3.51 Driver};" &"SERVER=" & db_host & ";" &"DATABASE=" & db_data & ";" & _

         "UID=" & db_user & ";PWD=" & db_pass& ";" & "OPTION=3;stmt=SET NAMES GB2312"

 cn.Open strCn   '打開數據庫

 cn.CursorLocation = adUseClient

  Ifcn.State = adStateOpen Then MsgBox "打開遠程MySQL數據庫成功"

     '下面開始對具體表（假設"userstabel"）進行操作

     rs.Open "userstabel", cn, adOpenKeyset, adLockOptimistic    '打開表"userstabel"

         MsgBox "遠程數據表userstabel 中的記錄數量= " & rs.RecordCount

         rs.AddNew  '開始添加一條記錄

         rs.Fields("filed1") = x

         rs.Fields("filed2") =y

         rs.Fields("filed2") = z

         rs.Update

     rs.Close   '關閉表

 cn.Close      '關閉數據庫

  Ifcn.State = adStateClosed Then MsgBox "遠程數據庫MySQL關閉成功"

End Sub 

首先將myodbc3.dll文件復制到系統下，然后將以下內容做成xxx.reg文件并運行。

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\MySQL AB\MySQLConnector/ODBC 3.51] 

"Version"="3.51.24"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\MySQLODBC 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\ODBCDrivers] 

"MySQL ODBC 3.51Driver"="Installed"

該文章在 2013/11/13 23:40:49 編輯過