连接远程mysql的配置代码如下:
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 = "1111.100.123.32" '服务器IP地址
db_user = "admin" 'Mysql数据库 登陆用户名
db_pass = "123456" 'Mysql数据库 登陆密码
db_data = "工资表" '数据库的库名称
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数据库成功"
当然,你除了上述代码正确以外,本地机器上的ODBC还应该配置正确才行的,否则仍然不能成功连接的。
是mysql 还是mssql啊
Driver={SQL Server}不对,你连的是MS SQL。