2010年04月29日   测试之路   5,078 次浏览

当在页面上进行数据库的增删改查的时候,使用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是数据库名

赞 赏
申明:除非注明,本站文章均为原创,转载请以链接形式标明本文地址。 如有问题,请于一周内与本站联系,本站将在第一时间对相关内容进行处理。
本文地址: http://www.yyjjssnn.cn/articles/438.html
相关阅读: QTP

>>> Hello World <<<

这篇内容是否帮助到你了呢?

如果你有任何疑问或有建议留给其他朋友,都可以给我留言。

:wink: :twisted: :surprised: :smile: :smile9: :smile8: :smile7: :smile6: :smile5: :smile56: :smile55: :smile54: :smile53: :smile52: :smile51: :smile50: :smile4: :smile49: :smile48: :smile47: :smile46: :smile45: :smile44: :smile43: :smile42: :smile41: :smile40: :smile3: :smile39: :smile38: :smile37: :smile36: :smile35: :smile34: :smile33: :smile32: :smile31: :smile30: :smile2: :smile29: :smile28: :smile27: :smile26: :smile25: :smile24: :smile23: :smile22: :smile21: :smile20: :smile1: :smile19: :smile18: :smile17: :smile16: :smile15: :smile14: :smile13: :smile12: :smile11: :smile10: :smile0: :sad: :rolleyes1: :redface: :razz: :question: :neutral: :mrgreen: :mad: :lol: :idea: :exclaim: :evil: :eek: :cry: :cool: :confused: :biggrin: :arrow:

友情链接: 程序员刘杨 刘杨
Copyright 2003~2018 保留所有权利 | 网站地图
备案号:湘ICP备14001005号-2

湘公网安备 43011102001322号