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

我的连接字符串似乎不正确

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的正确连接字符串吗？

我猜出来了

Dim conn, rs

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

conn.Open "Driver={Adaptive Server Enterprise}; Server=xxx.xxx.xxx.xxx; port=yyyy; uid=user; pwd=pwd; db=mydatabase;"
rs.open "Select * from blah", conn

---

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

这是一个很好的资源。Sybase自适应：。Sybase优势：

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