TA的每日心情 | 无聊 2018-9-27 10:05 |
---|
签到天数: 36 天 连续签到: 1 天 [LV.5]测试团长
|
本帖最后由 黑羽祭 于 2013-12-3 23:23 编辑
回复 18# shujin6040
比如连接MySQL和进行查询操作:先是安装mysql数据驱动mysql-connector-odbc,然后是编写脚本:- '链接数据库
- '链接数据库
- Dim Conn
- Set Conn=CreateObject("ADODB.Connection")
- Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=test;PWD=root;PORT=3306;SERVER=localhost;UID=root"
- Conn.Open ConnectionString
- If Conn.State<>0Then
- Reporter.ReportEvent micPass,"testing","连接数据库成功"
- else
- Reporter.ReportEvent micFail,"testing","连接数据库失败"
- End If
- '查询数据库
- sql="Select * from user1"
- str.Open sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据
- str.MoveFirst'使游标指向第一个记录
- sum=""
- WhileNot str.EOF
- For i=0to str.Fields.Count-1'str.Fields.Count表示字段个数
- sum=sum & str(i) &""'把整个记录显示出来
- Next
- Print sum & vbCRLF'打印所有查询的记录
- sum="" '清零
- str.MoveNext'使游标进入下一个
- Wend
- str.Close '关闭数据集实例
- Set str=Nothing
- Conn.Close '关闭数据库实例
- Set Conn=Nothing
复制代码 |
|