QTP连接mysql数据库
来源:互联网 发布:java 阿里p7面试题 编辑:程序博客网 时间:2024/06/03 13:57
1.首先安装mysql数据驱动,qtp在windows系统下操作连接mysql,所以下载mysql-connector-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=test;DATABASE=han;PWD=root;PORT=3306;SERVER=localhost;UID=root"
'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
Set Conn=CreateObject("ADODB.Connection")
Const ConnectionString="DSN=test;DATABASE=han;PWD=root;PORT=3306;SERVER=localhost;UID=root"
'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
注意:其中DSN=数据源名;UID=用户名;PWD=用户密码
如果没有进行第3个步骤,没有添加默认数据源,可以用普通方式连接
Dim Conn
Set Conn=CreateObject("ADODB.Connection")
'Const ConnectionString="DSN=test;DATABASE=han;PWD=root;PORT=3306;SERVER=localhost;UID=root"
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
Set Conn=CreateObject("ADODB.Connection")
'Const ConnectionString="DSN=test;DATABASE=han;PWD=root;PORT=3306;SERVER=localhost;UID=root"
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
5.qtp脚本实现查询数据库
Dim Conn,str,sql,i,sum
Set Conn=CreateObject("ADODB.Connection")'创建数据库实例
Const ConnectionString="DSN=test;DATABASE=han;PWD=root;PORT=3306;SERVER=localhost;UID=root"
'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=han;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
Set str=CreateObject("ADODB.Recordset")'创建数据集实例
'查询数据库
sql="Select * from user1"
str.Open sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据
str.MoveFirst'使游标指向第一个记录
sum=""
WhileNot str.EOF
'msgbox str.Fields("username")
For i=0to str.Fields.Count-1'str.Fields.Count表示字段个数
sum=sum& str(i) &""'把整个记录显示出来
Next
Print sum & vbCRLF'打印所有查询的记录
Set Conn=CreateObject("ADODB.Connection")'创建数据库实例
Const ConnectionString="DSN=test;DATABASE=han;PWD=root;PORT=3306;SERVER=localhost;UID=root"
'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=han;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
Set str=CreateObject("ADODB.Recordset")'创建数据集实例
'查询数据库
sql="Select * from user1"
str.Open sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据
str.MoveFirst'使游标指向第一个记录
sum=""
WhileNot str.EOF
'msgbox str.Fields("username")
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
Wend
str.Close '关闭数据集实例
Set str=Nothing
Conn.Close '关闭数据库实例
Set Conn=Nothing
- QTP连接mysql数据库
- qtp 怎样连接mysql数据库操作
- QTP连接Oracle、MySQL、SqlServer数据库
- qtp 怎样连接mysql数据库操作
- qtp连接数据库
- qtp 连接sqlserver数据库
- QTP连接Oracle数据库
- QTP连接数据库解决方法
- QTP连接MySQL
- QTP中连接MySQL的方法(数据库验证点和ADO连接)
- QTP连接SQL数据库的例子
- QTP中连接数据库的vbs脚本
- 针对QTP连接oracle数据库问题总结
- QuickTest Professional(QTP): 连接Oracle数据库
- QTP连接数据库及手动创建数据库检查点
- QTP连接oracle并操作数据库的方法
- UTF(QTP)与Mysql的连接心得
- 连接池连接Mysql数据库
- 如何检索Android设备的唯一ID
- 深入探索透视投影变换
- oracle 11g的audit导致system表空间快速增长的问题
- kvm+vnc安装windowsXP
- richeidt 控件開發(七)
- QTP连接mysql数据库
- tmux 键盘操作
- PHP编译参数详解
- 开发者应该关注的五项 Web 新兴技术
- linux 内核同步机制-自旋锁与信号量及其区别
- PHP防止注入攻击
- VBS连接数据库代码
- STM32的NVIC理解
- 为Eclipse安装Python开发插件