我似乎无法正确连接字符串。
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的正确连接字符串?
答案 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