Sybase 16数据库的QTP连接字符串?

时间:2015-07-07 17:45:20

标签: vb6 hp-uft

我似乎无法正确连接字符串。

Dim conn, rs

Set conn= createobject("adodb.connection")
set rs = createobject("adodb.recordset")

conn.Open "Provider=Sybase.ASEOLEDBProvider;Server Name = xxx.xxx.xxx.xxx,yyyy;User Id=user;Password=pwd;Database=mydatabase;"
rs.open "Select * from blah", conn

我不断收到错误消息,“无法找到提供商。可能无法正确安装。”

我知道安装提供程序是因为我使用同一台计算机编写了成功连接到Sybase 16的C#应用​​程序。有没有人知道QTP / UFT的正确连接字符串?

2 个答案:

答案 0 :(得分:1)

我明白了。

container view

使用此功能,您将能够使用QTP / UFT并连接到sybase 16数据库 - 只要您的系统上安装了Sybase Adaptive Server Enterprise驱动程序即可。它是一个专有数据库,据我所知,您必须直接从Sybase或第三方购买驱动程序。如果你在公司运行Sybase 16,你很可能拥有ASE驱动程序 - 四处询问。

答案 1 :(得分:1)

There is way to connect if it is in windows 7 Function 

ConnectionTest()

DB_CONNECT_STRING = "Provider=OraOLEDB.Oracle; Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=" & myHostName & ")(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=" & myServiceNameOrSID & "))); User ID=" & myUsername & ";Password=" & myPassword & ";"


Set myConn = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")



myConn.Open DB_CONNECT_STRING
objRecordSet.Open myQuery, myConn
Wscript.Echo objRecordSet.fields.item(1) & " " & objRecordSet.fields.item(2)
myConn.Close


End function



Call ConnectionTest()


if there is problem in mapping adodb driver need to invoke the exe file before running in windows 64 bit