QTP中使用VB实现连接ORACLE&SQL SERVER数据库

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