qtp查询mysql_QTP中测试数据库连接

祝大家新年快乐，有任何问题可与我联系：

当在页面上进行数据库的增删改查的时候，使用QTP测试的时候就需要测试数据库中是否做相关的修改，所以就需要插入数据库检查点，首先得测试连接数据库，下面提供几种方式：

一、手动插入检查点，测试数据库连通情况：Insert – checkpoint – databaseCheckpoint，再做相关的配置。

二、代码方式：

(1)、

Set con=createobject("adodb.connection")

conset="DRIVER={Microsoft ODBC for Oracle};SERVER=oracle;UID=llr;;PWD=llr;"

con.open conset

If  con.state=0 Then

msgbox"failed"

else

msgbox"pass"

End If

Set con=createobject("adodb.connection")

conset="DRIVER={Microsoft ODBC for Oracle};SERVER=oracle;UID=llr;;PWD=llr;"

con.open conset

If  con.state=0 Then

msgbox"failed"

else

msgbox"pass"

End If

其中SERVER是服务名，就是在系统的管理工具里面进行配置的服务名，UID是用户名，PWD是密码。

(2)、

Dim Cnn

Set Cnn = CreateObject("ADODB.Connection")

Cnn.ConnectionString ="DSN=oracle;UID=llr;PWD=llr;DBQ=ORACLE ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"

Cnn.Open

if Cnn.State = 0 Then

Reporter.ReportEvent micFail, "testing", "连接数据库失败"

MsgBox "连接数据库失败"

else

Reporter.ReportEvent micPass, "testing",   "连接数据库成功"

MsgBox "连接数据库成功"

end if

Dim Cnn

Set Cnn = CreateObject("ADODB.Connection")

Cnn.ConnectionString ="DSN=oracle;UID=llr;PWD=llr;DBQ=ORACLE ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"

Cnn.Open

if Cnn.State = 0 Then

Reporter.ReportEvent micFail, "testing", "连接数据库失败"

MsgBox "连接数据库失败"

else

Reporter.ReportEvent micPass, "testing",   "连接数据库成功"

MsgBox "连接数据库成功"

end if

其中DSN：数据源名称，也是在系统的管理工具里面的配置的服务名，UID是用户名，PWD是密码，DBQ是数据库名

~谢谢打赏~手机请长按图片~

赞 赏