软件测试论坛 › [自动化测试工具及框架] › qtp连接数据库必须本机创建oracle数据库吗？

悾歽枝 发表于 2015-11-25 14:23:57

qtp连接数据库必须本机创建oracle数据库吗？

问题如上
补充:数据库在服务器上，本地查看使用qlsql进行连接。qtp如何连接求解答

seagull1985 发表于 2015-11-26 09:56:36

使用ODBC链接

Function CreOraLink(provider,userid,passwd,dataip,strsql,columnname)
    Dim Cnn,strCnn       
        strCnn ="Provider="&provider&";Password="&passwd&";Persist Security Info=True;User ID="&userid&";Data Source="&dataip
        Set Cnn = CreateObject("adodb.Connection")
        Cnn.Open strCnn
        If Cnn.State = 0 Then
                Call PopBox("创建数据库链接失败",30,"数据库链接")
        End If
        'Generate the recordset object
        Set Rs = CreateObject("ADODB.Recordset")
        'excute sql
        Rs.Open strsql,Cnn,1,3
        'if you want judge the database state,must define(DS_dbrc) a global variable in QTP
        DS_dbrc = Rs.Recordcount
        if DS_dbrc <> 0 Then
       DS_dbvalue = Rs(columnname)
       if DS_dbvalue <> "" Then
       DS_dbvalue = Cstr(DS_dbvalue)
       End if
       else
       DS_dbvalue = ""
        End if
        Rs.close
        Set RS=nothing
        Cnn.Close
        Set Cnn=nothing
End Function

悾歽枝 发表于 2015-11-26 10:15:47

seagull1985 发表于 2015-11-26 09:56
使用ODBC链接

Function CreOraLink(provider,userid,passwd,dataip,strsql,columnname)


非常感谢…我先试试

查看完整版本: qtp连接数据库必须本机创建oracle数据库吗？