QTP链接Oracle,Access,SqlServer3种常用数据库

'链接Sql server数据库

Dim AdoCnn ,strDb,Rst,strCnn,ilen ,strsql '//定义变量

strCnn=" DSN=sa;Description=study_Qtp;UID=sa;PWD=888888;APP=UFTBase;WSID=WIN-TU8U121LBFN;DATABASE=study_Qtp"

Set AdoCnn=CreateObject("ADODB.Connection") '//生成数据库连接对象

AdoCnn.Open strCnn   '   //打开数据库

If AdoCnn.State=0 Then '判断是否链接数据库成功

msgbox "Connect Fail"

else

msgbox "Connect Success"

End If

strsql="select x  FROM Study_Qtp1"

Set Rst =AdoCnn.Execute(strsql)

'方法一 得到所有列值

While not Rst.EOF

msgbox Rst.Fields.Item("x").Value

Rst.MoveNext

Wend

'方法二得到所有列值

Rst.Close

AdoCnn.close

Set AdoCnn=Nothing

Set Rst=Nothing

'链接Oracle数据库
Dim AdoCnn ,strDb,Rst,strCnn,ilen ,strsql '//定义变量
strCnn=" DSN=db_oracle;UID=studyoracle_user;PWD=studyoracle_user"
Set AdoCnn=CreateObject("ADODB.Connection") '//生成数据库连接对象
AdoCnn.Open strCnn   '   //打开数据库
If AdoCnn.State=0 Then '判断是否链接数据库成功
msgbox "Connect Fail"
    else
    msgbox "Connect Success"
End If

strsql="select name from study_test1"
Set Rst =AdoCnn.Execute(strsql)
'方法一 得到所有列值
While not Rst.EOF
    msgbox Rst.Fields.Item("name").Value
    Rst.MoveNext

Wend
Rst.Close
AdoCnn.close
Set AdoCnn=Nothing
Set Rst=Nothing