admin管理员组文章数量:1609966
之前账号被盗了,博客内容被删了。。。找回账号之后,从网上找到了这个博客的转载,再粘过来。。。
--------------------------------------------------------------------------------------------------------------------------------------
这段时间需要用按键精灵连接mysql数据库,下载了超级插件,但它的insert功能有问题。网上有VBS连mysql的代码,调了调发现可以使用,分享给大家。
mysql数据库的安装以及dsn设置在网上可以搜到,就不管了。
1.我的数据库:本地数据库
数据库名称:db_mytask
2.代码如下:
//strConn中,密码那部分不容易写对,我调了很久才调正确。pwd后面的密码需要用双引号引起来,可以像我这么写,也可以用两个引号表示引号中的引号(这是按键精灵的规定,这点可以搜“按键精灵转义字符“)”
//增、删、改
strConn = "dsn=mysql;driver={MySQL ODBC 5.3 Unicode Driver};server=127.0.0.1;uid=root;pwd="&"123456"&";database=db_mytask;port=3306;"
Set dbConn = CreateObject("adodb.connection")
dbConn.Open strConn
sql = "insert into tb_userinfo values(3,'桑桑')"
//sql1 = "delete from tb_userinfo where id = 3"
//sql2 = "update tb_userinfo set name = '小树' where id = 3"
dbConn.execute(sql)
dbConn.Close
Set dbConn = Nothing
//取结果
strConn = "dsn=mysql;driver={MySQL ODBC 5.3 Unicode Driver};server=127.0.0.1;uid=root;pwd="&"123456"&";database=db_mytask;port=3306;"
Set conn = CreateObject("adodb.connection")
conn.Open strConn
Set rs = CreateObject("adodb.recordset")
ssql = "select * from tb_userinfo where id = 1"
rs.Open ssql, conn, 1, 2
rs.MoveFirst
count = 0
Do Until rs.EOF
TracePrint rs("name")
count = count + 1
rs.MoveNext
Loop
版权声明:本文标题:按键精灵 mysql数据库操作 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/dongtai/1728585829a1164917.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论