VBS连接mysql

BestBigMan

于 2023-09-15 15:22:21 发布

阅读量451

点赞数 1

分类专栏： VBS 文章标签： mysql 数据库

本文链接：https://blog.youkuaiyun.com/qq_39585019/article/details/132902759

版权

VBS 专栏收录该内容

2 篇文章

订阅专栏

VBS连接mysql对比sqlserver稍麻烦一些.
mysql需要下载odbc驱动,并配置到ODBC数据源管理程序

Mysql ODBC 驱动下载:https://dev.mysql.com/downloads/connector/odbc/

![!](https://img-blog.csdnimg.cn/982cedd2234544ad978c86af3151afa9.png)
下载安装后,进入控制面板-管理工具-ODBC数据源

在这里插入图片描述

点击添加

选择需要添加的驱动
此处记好驱动名称,后面要用

点完成,填写信息

Data Source Name: 自定义
Desciption:备注,随便写
TCP/IP Server: ip和端口
User: mysql用户名
Password: mysql密码
Database:连接数据库名
点击Test 测试,如果失败就检查一下填的内容.
成功后点ok,添加成功.

写vbs代码测试


'创建连接对象
set oCon = createObject("adodb.connection")
'连接字符串  dirver 写上面记录的的驱动名,port是默认值可省略

oCon.connectionString = "driver={MySQL ODBC 8.1 Unicode Driver}; server=localhost;port=3306;uid=root;pwd=12345678;dataBase=testdb;"
'设置游标类型  其它类型会导致结果ors.recordcount返回-1
ocon.CursorLocation =3
'打开连接
oCon.open

strSQL="select * from person"
'查询语句,可替换为插入 删除 更新语句
'执行语句
Set oRs = ocon.Execute(strsql)
'结果执行行数
MsgBox(ors.recordcount)
'循环输出查询结果  非查询可不需要
If oRs.RecordCount > 0  Then 
	Do While (Not oRs.EOF)
     str=""
      for each field in ors.fields
		str=str&" "&field
        Next
        MsgBox(str)
		oRs.MoveNext
	Loop
End If 

'关闭查询结果
oRs.Close
Set oRs = Nothing
'关闭连接
oCon.close

MsgBox("close")

测试成功就可以使用了