QTP连接Oracle数据库的方式

guojinjin2006

最近刚学习QTP，所以碰到好多问题，还请大家帮忙解决一下。
QTP连接ORACLE数据库我现在知道的有两种方式，一：ODBC连接 二：ADO方式连接；大家能不能提供一下这两种方式连接ORACLE的代码，虽然我从网上看到好多这样类似的代码，打都运行不过，是否可以发一些正确的代码，谢谢。在线等呀

例：ODBC方式连接ORACLE
-------------------------------------------代码--------------------------------------------
Public Sub DBConnect()
Dim objConnection
Dim objRecordSet
Dim objCommand
Dim objConnectionString
Set objConnection=CreateObject("ADODB.CONNECTION")
Set objConnectionString="DRIVER={Microsoft ODBC for Oracle};UID=testWD=test;SERVER=orcl;"  //运行时一直提示这句错误
objConnection.Open objConnectionString
End Sub

Public Sub ExecuteSql(strSql)
Set objRecordSet = CreateObject("ADODB.RECORDSET")               
Set objCommand = CreateObject("ADODB.COMMAND")              
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSql
objRecordSet.CursorLocation = 1     //这句话是什么意思
objRecordSet.Open objCommand   
End Sub

Public Sub DBClose()
objRecordSet.Close
objConnection.Close
Set objCommand=Nothing
Set objRecordSet=Nothing
Set objConnection=Nothing
End Sub

-------------------------------------------代码--------------------------------------------

zte_boy

Set objConnectionString="DRIVER={Microsoft ODBC for Oracle};UID=testWD=test;SERVER=orcl;"  //运行时一直提示这句错误
这是个链接串，不是给对象赋值，不用set

objRecordSet.CursorLocation = 1     //这句话是什么意思
这个是游标服务的位置

[ 本帖最后由 zte_boy 于 2008-8-15 10:56 编辑 ]

guojinjin2006

我现在已经修改过来了，可是现在又提示新的问题
The test run cannot continue due to an unrecoverable error.

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

提示Line (24): "objCommand.ActiveConnection = objConnection".

我们定义的变量有全局变量和局部变量之分吗 ？

我现在的连接数据库的代码是否有更简单的书写方式呢？

zte_boy

给你个链接sqlserver的，oracel的链接一样，改下strconn就可以了
Dim rs,conn,sql,strconn

  strconn = "rovider=SQLOLEDB.1;User ID=xxxassword=xx;"&_
  "Data source=xxx;DATABASE=xxx"

  Set conn = createobject("adodb.connection")
  conn.open strconn

  sql="select * from td.SESSIONS_HISTORY where USER_NAME = '"_
     &LOGINUSER&"'"

  Set rs=createobject("adodb.recordset")
  rs.open sql,conn,1,1

  Set rs=Nothing
  Set conn = Nothing

ylm77ojn

Set   con = createobject("adodb.connection")
con. open "DRIVER={Oracle in OraHome92};DSN=oracle_localhost;UID=U_YLMWD=U_YLM;DBQ=LEONYAO ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;"

wonew1228

不错

sterson

有没有一个完整的,可运行的例子阿..