51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3145|回复: 8
打印 上一主题 下一主题

[原创] QTP对Oracle数据库连接?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2006-4-28 14:50:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Oracle数据库连接:
dim Setconn
Set conn = CreateObject("ADODB.Connection")
conn.Open "driver={?????};server=192.168.0.2;uid=test;pwd=test;database=DatabaseName"
If conn.State = 0 Then
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
End If

其中driver={?????};应怎样写?

[ 本帖最后由 netsky_lt 于 2006-4-28 16:26 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2006-4-28 15:27:36 | 只看该作者

本地数据源设置连接成功

driver={oracle in oraHome92}

错误:[Oracle][ODBC][Ora]ORA-12560: TNS: 协议适配器错误

[ 本帖最后由 netsky_lt 于 2006-4-28 16:32 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2006-4-28 17:17:02 | 只看该作者
先进行odbc的设置,然后就可以使用下面的函数
Function OpenConnection (dataSource)
        Set cnn = CreateObject("ADODB.Connection")
        cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=true;User ID=taobao;Password=taobao;Data Source=" &dataSource
    cnn.Open
        Set OpenConnection = cnn
End Function
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2006-4-28 20:12:16 | 只看该作者
好!
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2006-4-29 11:30:51 | 只看该作者

郁闷

我用三楼的脚本,运行时没有执行啊,报告没报错;还要其它设置么?odbc:测试时能连接上(oracle in oraHome92),用PL/SQL Developer能对数库操作.
脚本写错?
Function OpenConnection (dataSource)
        Set cnn = CreateObject("ADODB.Connection")
        cnn.ConnectionString = "Provider=oracle in oraHome92;Persist Security Info=true;User ID=XXX;Password=XXX;Data Source=192.168.0.2" &dataSource
    cnn.Open
        Set OpenConnection = cnn
If cnn.State = 0 Then
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
End If

End Function

另一种:
Set Conn = CreateObject("ADODB.Connection" )
Conn.open "DRIVER={oracle in oraHome92};SERVER=192.168.0.2;PORT=1521;DATABASE=DBSERVER; USER=ebmsghyy20060329;PASSWORD=ebmsghyy20060329;"
Set Rs = CreateObject ("ADODB.Recordset" )

If conn.State = 0 Then
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
End If

错误:[Oracle][ODBC][Ora]ORA-12560: TNS: 协议适配器错误
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2006-4-29 15:29:08 | 只看该作者

搞掂!

Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString = "Provider=MSDAORA.1;Data Source=DBSERVER;Password=XXX;User ID=XXX;Persist Security Info=True"

Cnn.Open
If Cnn.State = 0 Then
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
End If


Step Name: testing


Step Passed

Object  Details  Result  Time  
   
testing 连接数据库成功 Passed 2006-4-29 - 15:19:33
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2011-5-30 11:41:52 | 只看该作者
Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString = "rovider=MSDAORA.1;Data ...
netsky_lt 发表于 2006-4-29 15:29



QTP    连接数据库,是不是要先在本地创建ODBC连接设置,再在程序里写连接语句才能使用?
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2011-5-30 13:23:21 | 只看该作者
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2011-6-7 13:32:39 | 只看该作者
哈哈
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-8 09:36 , Processed in 0.099403 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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