2004021099 发表于 2013-5-22 15:30:42

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

qtp使用代码连接oracle数据库，总是报错“未发现数据源名称并且未指定默认驱动程序”，代码如下。我把代码保存成.vbs文件，手动执行了一下这个vbs文件，是可以通过的。Dim adoConn '定义ADO连接对象
Dim ConnectionStr '定义数据库连接字符串
'获取数据库连接字符串
'ConnectionStr = "Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=root;DATABASE=test;PORT=3306"
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;"
'创建数据库连接对象
Set adoConn = CreateObject("adodb.Connection")
'利用数据库连接字符串打开数据库
adoConn.Open ConnectionStr
If adoConn.state <> 0 Then
MsgBox "成功"
Else
MsgBox "失败"
End If
'wait 2
'******************
'此处进行数据库操作
'******************
'关闭数据库
adoConn.Close
'释放数据库对象
Set adoConn = Nothingps:oracle客户端已经安装了，在控制面板下的数据源里已经能成功添加数据源了。

joykao 发表于 2013-5-22 17:25:57

Driver;SERVER=localhost;UID=root;PWD=root;DATABASE=test;PORT=3306"

这句话做啥？

2004021099 发表于 2013-5-22 18:00:28

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

wsryyffs 发表于 2013-5-22 19:58:32

回复 3# 2004021099


odbc：
Cnn.ConnectionString ="Provider=MSDASQL.1;Password=xx;Persist Security Info=True;User ID=xx;Data Source=xx"
oracle的tnsnames：
Cnn.ConnectionString ="Provider=MSDAORA.1;Password=xx;User ID=xx;Data Source=xx;Persist Security Info=True"

2004021099 发表于 2013-5-23 09:04:25

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

joykao 发表于 2013-5-23 22:17:20

回复 3# 2004021099


连接字符串可以通过QTP拿到的。。。。在datatable 中试着去连接你要连的数据库，最后测试拿到正确的连接字符串比你从书上拷贝或者自己敲的要靠谱的多
页: [1]
查看完整版本: QTP连接oracle报错“未发现数据源名称并且未指定默认驱动程序”