QTP连接数据库解决方法

现状：操作系统XP；QTP版本10.0；数据库oracle 10g

Dim adoConn
Dim ConnectionStr
ConnectionStr="Provider=MSDASQL.1;Password=c1;Persist Security Info=True;User ID=c1;Data Source=oracle odbc"
Set adoConn=CreateObject("adodb.Connection")
adoConn.Open ConnectionStr
If adoConn.State<>0 Then 
msgbox"successful"
End If
adoConn.Close
Set adoConn=Nothing

1、首先设置环境变量 

path=D:\oracle\product\10.2.0\client_1\BIN      找到本科oracle客户端的bin目录

TNS_ADMIN=D:\oracle\product\10.2.0\client_1\NETWORK\ADMIN       放置tnsnames.ora的文件目录

2、oracle的存放目录右键-->共享和安全-->安全，将登陆用户的“完全控制”放开

3、配置数据源

控制面板-->管理工具-->数据源，添加一数据源，oracle-oracle in oraclient10g_home,TNS server name 下拉选择需要的；然后测试连接成功。

4、获取oracle的连接串的方法

在本地新建一个.txt文件，修改扩展名名*.udl，双击*.udl文件，打开数据库链接属性，定位到“提供程序”选显卡，选中 oracle的连接 oracle provider for OLE DB,点击下一步，输入数据源，数据库用户名以及密码，点击测试连接，然后用UE或记事本打开*.udl文件，oracle的连接串已经生成了，例如

　　Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;Data Source=192.168.13.19