qtp 怎样连接mysql数据库操作
2011-05-16 20:58
615 查看
1.首先安装mysql数据驱动,qtp在windows系统下操作连接mysql,所以下载mysql-connector-odbc- 5.1.8-win32.msi
下载地址:http://mysql.mirrors.pair.com/Downloads/Connector-ODBC/5.1/mysqlconnector-odbc-5.1.8-win32.msi
2.安装mysql驱动 ,默认安装即可。
3. 添加默认数据源
控制面板->管理工具->数据源ODBC->系统DNS->添加->在“创建数据源”对话框中选择
“Mysql ODBC 5.1
Driver”->完成->进入连接对话框->填写完后点击“test”,看看是否成功,成功后配置完成。
4.qtp脚本实现连接mysql数据库
如果操作了第3步骤,天机了mysql默认数据源,脚本可以写成:
如果没有进行第3个步骤,没有添加默认数据源,可以用普通方式连接
5.qtp脚本实现查询数据库
下载地址:http://mysql.mirrors.pair.com/Downloads/Connector-ODBC/5.1/mysqlconnector-odbc-5.1.8-win32.msi
2.安装mysql驱动 ,默认安装即可。
3. 添加默认数据源
控制面板->管理工具->数据源ODBC->系统DNS->添加->在“创建数据源”对话框中选择
“Mysql ODBC 5.1
Driver”->完成->进入连接对话框->填写完后点击“test”,看看是否成功,成功后配置完成。
4.qtp脚本实现连接mysql数据库
如果操作了第3步骤,天机了mysql默认数据源,脚本可以写成:
Dim Conn Set Conn=CreateObject("ADODB.Connection") Const ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root" 'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root" Conn.Open ConnectionString If Conn.State<>0 Then Reporter.ReportEvent micPass,"testing","连接数据库成功" else Reporter.ReportEvent micFail,"testing","连接数据库失败" End If
如果没有进行第3个步骤,没有添加默认数据源,可以用普通方式连接
Dim Conn Set Conn=CreateObject("ADODB.Connection") 'Const ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root" Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root" Conn.Open ConnectionString If Conn.State<>0 Then Reporter.ReportEvent micPass,"testing","连接数据库成功" else Reporter.ReportEvent micFail,"testing","连接数据库失败" End If
5.qtp脚本实现查询数据库
Dim Conn,str,sql,i,sum Set Conn=CreateObject("ADODB.Connection")'创建数据库实例 Const ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root" 'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root" Conn.Open ConnectionString If Conn.State<>0 Then Reporter.ReportEvent micPass,"testing","连接数据库成功" else Reporter.ReportEvent micFail,"testing","连接数据库失败" End If Set str=CreateObject("ADODB.Recordset")'创建数据集实例 '查询数据库 sql="Select * from manager where type='postmaster'" str.Open sql,conn,1,1 '1,1表示只读;1,3表示插入数据;2,3表示修改数据 str.MoveFirst'使游标指向第一个记录 sum="" While Not str.EOF 'msgbox str.Fields("username") For i=0 to str.Fields.Count-1'str.Fields.Count表示字段个数 sum=sum & str(i) & " " '把整个记录显示出来 Next Print sum & vbCRLF'打印所有查询的记录 str.MoveNext'使游标进入下一个 Wend str.Close '关闭数据集实例 Set str=Nothing Conn.Close '关闭数据库实例 Set Conn=Nothing
相关文章推荐
- [转]QTP 怎样连接mysql数据库操作
- qtp 怎样连接mysql数据库操作
- qtp 怎样连接mysql数据库操作
- eclipse中用jdbc连接mysql数据库的操作
- 怎样用.NET的OLEDB连接mysql数据库?
- qtp:操作mysql数据库时,提示"str open sql.conn对象打开时,不允许操作的解决方法
- Node.js数据库操作之连接MySQL数据库(一)
- Java连接MySQL数据库及简单操作代码
- QTP怎样利用ado自动化组件连接Excel,并运行查询语句
- Linux下连接MySQL数据库的操作示例
- JavaWeb学习笔记-JDBC操作(1)[连接mysql数据库]
- MySQL数据库:用cmd查询所有的当前数据库连接的库,进入某个库,查询某个库中所有的表等操作
- Android连接MySQL数据库并进行增删改查操作
- java jdbc连接mysql数据库实现增删改查操作
- QTP连接mysql数据库
- 一步一步跟我学习hadoop(7)----hadoop连接mysql数据库运行数据读写数据库操作
- Java对MySQL数据库进行连接、查询和修改操作方法
- C/C++连接MySQL数据库和查询操作案例!!
- QTP连接mysql数据库
- javaEE笔记 mysql数据库连接不乱码的操作