51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1612|回复: 2
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2015-11-25 14:23:57 来自手机 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
问题如上
补充:数据库在服务器上,本地查看使用qlsql进行连接。qtp如何连接求解答
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    奋斗
    2018-8-27 15:56
  • 签到天数: 322 天

    连续签到: 1 天

    [LV.8]测试军长

    2#
    发表于 2015-11-26 09:56:36 | 只看该作者
    使用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

    评分

    参与人数 1测试积点 +10 收起 理由
    lsekfe + 10 恭喜您获得测试几点10

    查看全部评分

    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
     楼主| 发表于 2015-11-26 10:15:47 来自手机 | 只看该作者
    seagull1985 发表于 2015-11-26 09:56
    使用ODBC链接

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

    非常感谢…我先试试
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-13 03:43 , Processed in 0.067853 second(s), 26 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表