QTP中ADO链接MYSQL

最新推荐文章于 2021-02-22 06:31:24 发布

原创最新推荐文章于 2021-02-22 06:31:24 发布 · 383 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#mysql #database #server #sql #blog

QTP学习专栏收录该内容

14 篇文章

订阅专栏

本文演示了如何使用 ADO.NET 连接 MySQL 数据库并执行数据读取与更新操作。通过示例代码，读者可以了解到连接字符串的配置方法、记录集的打开与遍历过程、以及如何更新和新增数据库记录。

Dim Cnn, Rst, strCnn strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=discuz;USER=root;Option=3" Set Cnn = CreateObject("ADODB.connection") Cnn.Open strCnn Set Rst = CreateObject("ADODB.Recordset") Rst.Open "select * from cdb_posts", Cnn Rst.MoveFirst While Rst.EOF <> True MsgBox Rst.Fields("subject") & Chr(13) & Chr(10) & Rst.Fields("message") & Chr(13) & Chr(10) Rst.MoveNext Wend Rst.Close Cnn.Close Set Rst = Nothing Set Cnn = Nothing Set Conn = CreateObject("ADODB.Connection" ) str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.107;DATABASE=wp_core;user id=root; password=45retret4" Conn.open str Set Rs = CreateObject ("ADODB.Recordset" ) select_role_id="select * from `wp_core`.`wp_role` limit 0, 5000" rs.open select_role_id,conn,1,3 if (not Rs.eof) then role_id=rs(0) msgbox(role_id) rs.fields("id")=8888 rs.update end if rs.addnew rs.fields("id")="8888" rs.fields("name")="zhouruijun" msgbox(rs(0)) msgbox(rs(1)) rs.update() Rs.close Set Rs = Nothing Conn.close Set Conn = Nothing Set Conn = CreateObject("ADODB.Connection" ) str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.100;DATABASE=wp_blog;user id=zzz ; password=123456" Conn.open str Set Rs = CreateObject ("ADODB.Recordset" ) sql = "select * from `wp_blog`.`blg_webcategory` limit 0, 5000;" Rs.open sql,conn,1,3 If (not Rs.eof) then Rs.MoveFirst MsgBox Rs(0) MsgBox Rs(1) MsgBox Rs(2) MsgBox Rs(3) end if Rs.close Set Rs = Nothing Conn.close Set Conn = Nothing