大家好 购买的是阿里云mysql数据库!
开发环境: VB6
mysql驱动版本:5.1
连接代码如下:(安全考虑,部分用*号代替)
Public Sub Open_mysqlDataBase()
On Error GoTo Err_Pro
Dim T
Sys_Path = "12*.27.***"
Sys_User = "root"
Sys_PSWD = "******"
Sys_DATA = "ordercon****"
sConnStr = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=" & Sys_Path & ";" & _
"DATABASE=" & Sys_DATA & ";" & _
"UID=" & Sys_User & ";PWD=" & Sys_PSWD & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
With CNN
.CommandTimeout = 20
.ConnectionString = sConnStr
T = Timer
.Open
MsgBox Timer - T & " 秒"
End With
Exit Sub
Err_Pro:
MsgBox "服务器/数据库连接失败!请联系管理员处理!" & Chr(10) & "错误代码:" & Err.Number & "." & Err.Description, 48, "提示"
End Sub
运行结果:用时 1.65秒
请问是什么原因了?
版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。