QTP 连接Oracle数据库，出现问题

konglingzhen

问题是，连接不上数据库。还请大家尽量帮忙。

运行我的测试脚本，报错弹出提示信息： OraOLEDBpus.dll: The specified module could not be found

这是我的脚本，大家给分析一下

Public Function DBOperation(StrConnectionString,StrSql)
        Dim cnnTest
        Dim id
        Set cnnTest = createobject("AdoDb.Connection")
        Set rs = createobject("AdoDb.RecordSet")
        cnnTest.ConnectionString = StrConnectionString
        cnnTest.Open  
       
        cnnTest.BeginTrans
        Set rs = cnnTest.Execute( StrSql)
        id = rs("DICR_REQUEST_ID")
        messagebox(id)
        cnnTest.CommitTrans
       
     'cnntest.RollbackTrans
        Set cnnTest = Nothing
         DBOperation = id
End Function

'3927
Dim  conn, sql
  conn = "rovider=OraOLEDB.OracleLSQLRSet=1assword=123456 ;User   ID=rocis;Data   Source=ro"
  sql = "select DICR_REQUEST_ID from DICR_REQUEST where DICR_REF_NBR = 200607-7101-007"


Call DBOperation(conn, sql)

konglingzhen

怎么没有人回答呢？？
自己顶顶，别沉了~~~

yuandjing

我帮不了你，来帮你顶顶

konglingzhen

[ 本帖最后由 konglingzhen 于 2008-2-2 10:40 编辑 ]

gavin.chen

这是oracle 数据库的问题。
1.确保在oracle安装目录下有 OraOLEDbpus.dll 这个文件。
2.如果oracle下有这个文件，那么将oracle 安装目录下bin文件路径加到环境变量里面。

你的脚本一点问题都没有，完全是oracle配置不当。

sunqiang1024

我是这样连接数据库的：
' *********************************************************************************************
' 函数说明：传入相应的sql和列的名称 ，取到相应列的值；
' 参数说明：
'                                  （1）sql：查询语句；
'                               （2）colname：取得列的名称；
' 返回结果：
'          （1）：取到列的值  ；
' 调用方法:
'           var= DB (sql,colname)
'修改时间：2008年1月22日17:31:31
' *********************************************************************************************
Public  Function DB (sql,colname)
Dim res,cmd
Set res=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
Cmd.activeconnection="Driver={Microsoft ODBC for Oracle};Server=oradb10;Uid=bpm611_testwd=bpmtest;"
Cmd.CommandType = 1
'msgbox sql
Cmd.CommandText = sql
Set res = Cmd.Execute()
'msgbox  res(colname)
DB=res(colname)
res.close
Set res=nothing
Set Cmd.activeconnection=nothing
Set cmd=nothing
End Function
需要两个前提，1、安装Oracle的客户端，然后配置一个本地net服务名2、在控制面板->管理工具->数据源(ODBC)中新建一个Microsoft ODBC for Oracle数据源，服务的名称就是Oracle配置的本地net服务名。（注意：新建后检查D:\oracle\product\10.2.0\client_1\NETWORK\ADMIN目录下tnsnames.ora，查看建的net服务名就应该是刚新建的名称）

[ 本帖最后由 sunqiang1024 于 2008-2-3 11:59 编辑 ]

konglingzhen

to：sunqiang1024
看到你的Cmd.activeconnection =="Driver={Microsoft ODBC for Oracle};Server=oradb10;Uid=bpm611_test;passwd=bpmtest;"
Server 值是什么？？
而且好像没有指定数据源呢~~

sunqiang1024

server就是数据源的名字

konglingzhen

哦，不是，我写的是sevice name,现在好用了。。。
问题和还有一个~~

'msgbox  res(colname)
DB=res(colname) 报错~~~
不知道是为什么。。
因为我的res，其实查询出来应该只有一个值~！~

sunqiang1024

报什么错啊，发个错误信息啊 colname，这个变量是你要取的列的名字

lucaszhou

我也是
DB=res(colname)   报错.
错误信息为:
"Item cannot be found in the collection corresponding to the requested name or ordinal"

我已确认 colname 是我数据库表列的名字("SEQENCE_ID")

Could you please help me? Thanks.

lucaszhou

Problem resolved. It looks like you can not retrieve only one value. Thanks.