QTP连接MySQL (转载)

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. 添加默认数据源51Testing软件测试网n3e6SfckQ

控制面板->管理工具->数据源ODBC->系统DNS->添加->在“创建数据源”对话框中选择

“Mysql ODBC 5.1 Driver”->完成->进入连接对话框->填写完后点击“test”，看看是否成功，成功后配置完成。

51Testing软件测试网oe-Y*v:uT9Ke

4.qtp脚本实现连接mysql数据库

如果操作了第3步骤，添加了mysql默认数据源，脚本可以写成：51Testing软件测试网f ?k/Y;FA

DimConn
CP!Z6ud0SetConn=CreateObject("ADODB.Connection")
bC{OD] b BJ0ConstConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"51Testing软件测试网_LR6JYLE
'Const 
ConnectionString="Driver={Mysql ODBC 5.1 
Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"51Testing软件测试网/?"] ?NqJ~S
Conn.Open 
ConnectionString
,V+x,LY)O9y0IfConn.State<>0Then51Testing软件测试网a 
y4c.}GE1`-Fx:K
Reporter.ReportEvent micPass,"testing","连接数据库成功"
jo&lHW!Y2S M9@0else
F1U!L,[(O*Q0Reporter.ReportEvent micFail,"testing","连接数据库失败"51Testing软件测试网w L.{e3D m:i'\
EndIf

如果没有进行第3个步骤，没有添加默认数据源，可以用普通方式连接

DimConn
1yO"th:z;[ B0SetConn=CreateObject("ADODB.Connection")51Testing软件测试网VGt3`^-`$h b g-s
'Const 
ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"51Testing软件测试网;V.fM!Nj:__
ConstConnectionString="Driver={Mysql 
ODBC 5.1 
Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"51Testing软件测试网6{L"Bw%x h$l
Conn.Open 
ConnectionString
`PMqp 
nX}H0d0N0IfConn.State<>0Then51Testing软件测试网,f^$C'hPlVy
Reporter.ReportEvent 
micPass,"testing","连接数据库成功"51Testing软件测试网L4V3xpnZ3GY
else51Testing软件测试网r,Eb"l'n"o@n:y:A
Reporter.ReportEvent 
micFail,"testing","连接数据库失败"51Testing软件测试网3a,@r5Cg
EndIf

5.qtp脚本实现查询数据库

DimConn,str,sql,i,sum51Testing软件测试网0?:z;c\%P;W1G
SetConn=CreateObject("ADODB.Connection")'创建数据库实例
Y3Yc+@/W(L:E0ConstConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"51Testing软件测试网c @"\/l$Tf H
'Const 
ConnectionString="Driver={Mysql ODBC 5.1 
Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
9g-q.z:k'\0Conn.Open 
ConnectionString
?9Ys!X X!qY|0IfConn.State<>0Then51Testing软件测试网$iR@M.gf)i 
gj(a
Reporter.ReportEvent micPass,"testing","连接数据库成功"51Testing软件测试网?*dUl(F}2^8U fI$t
else
x_$q\j0Reporter.ReportEvent micFail,"testing","连接数据库失败"51Testing软件测试网!E\lJqS$|
EndIf%^!b1fm#pu0Setstr=CreateObject("ADODB.Recordset")'创建数据集实例51Testing软件测试网)J4Y8lb5puSg;G

/u5c.l*I"f$W/[9xX0'查询数据库51Testing软件测试网M&N1jy\Mg
sql="Select * 
from manager where type='postmaster'"51Testing软件测试网 W0I(c2Bw/n\rt
str.Open 
sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据
3o Y1z]J&c X]0str.MoveFirst'使游标指向第一个记录51Testing软件测试网b$F ~2SQ
sum=""51Testing软件测试网_6x{|K4w
WhileNotstr.EOF
@-bH:b-B+d*^0'msgbox 
str.Fields("username")51Testing软件测试网5A/X b[ zv5Kl7{
Fori=0tostr.Fields.Count-1'str.Fields.Count表示字段个数51Testing软件测试网zncC%f
sum=sum&str(i)&""'把整个记录显示出来51Testing软件测试网AVlLuv*o,?F
Next51Testing软件测试网U-Q MR%o _%z;T
Print sum&vbCRLF'打印所有查询的记录51Testing软件测试网1n _!B0@e/I z6T
str.MoveNext'使游标进入下一个51Testing软件测试网O7aJz'Yc3j
Wend51Testing软件测试网6Mx&bZO"}Q3k"X({
51Testing软件测试网+_1h;~ j zMstr.Close'关闭数据集实例
Vf$He`M#dzHj0Setstr=Nothing51Testing软件测试网5qk;~g.}
Conn.Close'关闭数据库实例51Testing软件测试网l9\,a?MCp
SetConn=Nothing