- 积分
- 4
- 阅读权限
- 100
- 鲜花
- 0
- 猫粮
- 47
- 在线时间
- 20 小时
- 精华
- 0
- 注册时间
- 2018-4-17
- 性别
- 保密
- 最后登录
- 2023-3-7
按键电脑&手机班学员
- 鲜花
- 0
- 猫粮
- 47
|
发表于 2019-7-23 17:18:55
|
显示全部楼层
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.ConnectionString = "DSN=ODBC名称;SERVER={外网访问地址};UID=Mysql账号;PWD=Mysql密码;DATABASE=数据表名;PORT=端口号"
conn.Open
If conn.State = 1 Then
TracePrint "数据库链接成功"
Disp "数据库链接成功"
Else
MessageBox "数据库链接失败,软件停止"
ExitScript
End If
rs.Open "#SQL语句#", conn
1.首先要安装ODBC,官网下载:"mysql-connector-odbc-5.3.11-win32.msi"
如果安装过程中提示缺少redist组件,网上搜"vc_redist.x86"下载组件后再重现安装ODBC.
2.配置ODBC,默认在:C:\Windows\SysWOW64\odbcad32.exe
点击系统DSN 添加将Mysql的登陆信息进行配置好. |
|