51Testing软件测试论坛

标题: QTP对Oracle数据库连接? [打印本页]

作者: netsky_lt 时间: 2006-4-28 14:50
标题: QTP对Oracle数据库连接?
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 编辑 ]

作者: netsky_lt 时间: 2006-4-28 15:27
标题: 本地数据源设置连接成功
driver={oracle in oraHome92}

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

[ 本帖最后由 netsky_lt 于 2006-4-28 16:32 编辑 ]

作者: investmark 时间: 2006-4-28 17:17
先进行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

作者: songfun 时间: 2006-4-28 20:12
好！

作者: netsky_lt 时间: 2006-4-29 11:30
标题: 郁闷
我用三楼的脚本,运行时没有执行啊,报告没报错;还要其它设置么?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: 协议适配器错误

作者: netsky_lt 时间: 2006-4-29 15:29
标题: 搞掂!
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

作者: FLY000 时间: 2011-5-30 11:41

Dim Cnn
Set Cnn = CreateObject("ADODB.Connection")
Cnn.ConnectionString = "rovider=MSDAORA.1;Data ...
netsky_lt 发表于 2006-4-29 15:29

QTP 连接数据库，是不是要先在本地创建ODBC连接设置，再在程序里写连接语句才能使用？

作者: bagwell333 时间: 2011-5-30 13:23
http://www.51testing.com/index.p ... space-itemid-206138

作者: wendy.wang 时间: 2011-6-7 13:32
哈哈

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)