QTP中使用VB实现连接ORACLE&SQL SERVER数据库
上一篇 /
下一篇 2014-01-13 14:18:39
/ 个人分类:QTP自动化测试相关
ORACLE
Set Conn = createobject("ADODB.Connection")
Conn.Open"Provider=msdaora;Data Source=XXX;User Id=XXXX;Password=XXXXX;"
‘’连接数据库用
Set res1=CreateObject("adodb.recordset")
res1.Open"你所要实现功能的SQL语句",conn,1,1
‘’从表中取值
dim x
x = res1("字段名")
‘’赋值给变量
res1.close
conn.close
Set res=nothing
Set Conn=nothing
‘’关闭连接
‘’在一些输入和其它地方可以用变量替代固定值,也可以用取出的值通过IF判断做验证
SQL SERVER
Dim ExpectValue
set con = conSql
ExpectValue = getselect(con,"SQL语句","要取的表字段名")
closeCon(con)
Function conSql()
Dim con
set con=createobject("adodb.connection")
con.open "DRIVER=SQL Server;SERVER=IALM11M0;UID=sa;PWD=??;DATABASE=test_domanin_test_project_2011"
If con.State=0 Then
Reporter.ReportEvent micFail,"Connect to database","Cannot connect"
ExitTest
else
Reporter.ReportEvent micPass,"Connect to database","Connect Successful"
End If
set conSql=con
End Function
Function getSelect(con,sqlex,cloname)
Dim sql,rs
set rs=createobject("adodb.recordset")
rs.open sqlex,con
getSelect = rs(cloname).value
rs.Close
Set rs=nothing
End Function
Function closeCon(con)
con.Close
Set con=nothing
End Function
收藏
举报
TAG: