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
注意:其中DSN=数据源名;UID=用户名;PWD=用户密码
如果没有进行第3个步骤,没有添加默认数据源,可以用普通方式连接
DimConnSetConn=CreateObject("ADODB.Connection")'Const ConnectionString="DSN=test;DATABASE=han;PWD=root;PORT=3306;SERVER=localhost;UID=root"ConstConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=test;PWD=root;PORT=3306;SERVER=localhost;UID=root"Conn.Open ConnectionStringIfConn.State<>0ThenReporter.ReportEvent micPass,"testing","连接数据库成功"elseReporter.ReportEvent micFail,"testing","连接数据库失败"EndIf
5.qtp脚本实现查询数据库
DimConn,str,sql,i,sumSetConn=CreateObject("ADODB.Connection")'创建数据库实例ConstConnectionString="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 ConnectionStringIfConn.State<>0ThenReporter.ReportEvent micPass,"testing","连接数据库成功"elseReporter.ReportEvent micFail,"testing","连接数据库失败"EndIfSetstr=CreateObject("ADODB.Recordset")'创建数据集实例'查询数据库sql="Select * from user1"str.Open sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据str.MoveFirst'使游标指向第一个记录sum=""WhileNotstr.EOF'msgbox str.Fields("username")Fori=0tostr.Fields.Count-1'str.Fields.Count表示字段个数sum=sum&str(i)&""'把整个记录显示出来NextPrint sum&vbCRLF'打印所有查询的记录
sum="" '清零
str.MoveNext'使游标进入下一个Wendstr.Close'关闭数据集实例Setstr=NothingConn.Close'关闭数据库实例SetConn=Nothing