QTP连接oracle报错“未发现数据源名称并且未指定默认驱动程序”

2004021099

qtp使用代码连接oracle数据库，总是报错“未发现数据源名称并且未指定默认驱动程序”，代码如下。我把代码保存成.vbs文件，手动执行了一下这个vbs文件，是可以通过的。

1. Dim adoConn '定义ADO连接对象
   
2. Dim ConnectionStr '定义数据库连接字符串
   
3. '获取数据库连接字符串
   
4. 'ConnectionStr = "Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=root;DATABASE=test;PORT=3306"
   
5. ConnectionStr = "DRIVER={Oracle in OraClient11g_home3};SERVER=10.22.11.4;UID=test;PWD=test_4;DBQ=ANHUI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;MLD=0;ODA=F;PORT=1521;"
   
6. '创建数据库连接对象
   
7. Set adoConn = CreateObject("adodb.Connection")
   
8. '利用数据库连接字符串打开数据库
   
9. adoConn.Open ConnectionStr
   
10. If adoConn.state <> 0 Then
    
11. MsgBox "成功"
    
12. Else
    
13. MsgBox "失败"
    
14. End If
    
15. 'wait 2
    
16. '******************
    
17. '此处进行数据库操作
    
18. '******************
    
19. '关闭数据库
    
20. adoConn.Close
    
21. '释放数据库对象
    
22. Set adoConn = Nothing

复制代码

psracle客户端已经安装了，在控制面板下的数据源里已经能成功添加数据源了。

joykao

回复 3# 2004021099


连接字符串可以通过QTP拿到的。。。。在datatable 中试着去连接你要连的数据库，最后测试拿到正确的连接字符串比你从书上拷贝或者自己敲的要靠谱的多

2004021099

回复 4# wsryyffs
骚瑞，这个不行的说~

wsryyffs

回复 3# 2004021099


odbc：
Cnn.ConnectionString ="rovider=MSDASQL.1assword=xxersist Security Info=True;User ID=xx;Data Source=xx"
oracle的tnsnames：
Cnn.ConnectionString ="rovider=MSDAORA.1assword=xx;User ID=xx;Data Source=xxersist Security Info=True"

2004021099

回复 2# joykao
我
qtp新手，这段代码是从一个教程上复制的，这行是原来的数据库连接。忘记删除了，呵呵~~~

joykao

Driver;SERVER=localhost;UID=rootWD=root;DATABASE=testORT=3306"

这句话做啥？