QTP中测试数据库连接
2010年04月29日 测试之路 5,084 次浏览
当在页面上进行数据库的增删改查的时候，使用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 |
其中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 |
其中DSN：数据源名称，也是在系统的管理工具里面的配置的服务名，UID是用户名，PWD是密码，DBQ是数据库名
>>> Hello World <<<
这篇内容是否帮助到你了呢？
如果你有任何疑问或有建议留给其他朋友，都可以给我留言。