TA的每日心情 | 怒 2021-3-15 00:00 |
---|
签到天数: 764 天 连续签到: 19 天 [LV.10]测试总司令
|
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 = Nothing
复制代码 psracle客户端已经安装了,在控制面板下的数据源里已经能成功添加数据源了。 |
|