按键精灵手机版读取MYSQL_mysql,按键精灵,读取写入

//打开数据连接 https://www.newasp.net/soft/110660.html 下载 组件

Function connOpen()

Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _

"SERVER=localhost;" & "UID=root; PWD=root; OPTION=3; DATABASE=demo;stmt=SET NAMES GB2312"

'注意ODBC驱动版本号，现在最新的 MySQL 5.4 + ODBC 5.1

'另外可以有 DATABASE=XX，或者在程序里使用 use database 语句

'OPTION是什么作用不知道，我这里可以不写

conn.Open

Set rs = CreateObject("ADODB.Recordset")

rs.CursorLocation = adOpenKeyset'游标位置(数据集存在服务器内存还是客户端内存)//有警告信息可以突略 adOpenKeyset adUseNone https://blog.csdn.net/xzsfg6825/article/details/80047946

End Function

//执行记录

Function mysql_query(sql)

Call connOpen()

conn.Execute sql

rs.Close

Set rs &