下面给你的代码是百分之百可以连接成功的,它也是我正在使用中的代码片段哦。
Private Sub Command1_Click()
Dim cn As New ADODB.Connection '创建数据库对象
Dim rs As New ADODB.Recordset '创建表对象
Dim strCn As String '连接字符串
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_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
If cn.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 '关闭数据库
If cn.State = adStateClosed Then MsgBox "远程数据库MySQL关闭成功"
End Sub
注意,要首先知道你的:
1、数据库服务器IP地址
2、登陆服务器的“用户名”
3、登陆服务器的“密 码”
4、数据库的库名称
5、数据库内的表名称
还要在你使用上述代码的计算机上设置DSN或正确安装驱动程序。
联系客服