之前账号被盗了，博客内容被删了。。。找回账号之后，从网上找到了这个博客的转载，再粘过来。。。

--------------------------------------------------------------------------------------------------------------------------------------

这段时间需要用按键精灵连接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