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

悾歽枝

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

seagull1985

使用ODBC链接

Function CreOraLink(provider,userid,passwd,dataip,strsql,columnname)
    Dim Cnn,strCnn       
        strCnn ="rovider="&provider&"assword="&passwd&"ersist 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

悾歽枝

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

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

非常感谢…我先试试