从VBScript连接到Sybase时出错 - 内部客户端库错误

Question

我正在编写一个连接到Sybase数据库的VBScript,从表中读取一些数据并将其存储在变量中,然后连接到MS SQL服务器并将数据插入到包含先前存储的可变数据的表中.

我不确定这是否是相关信息,但由于我只有32位驱动程序用于连接到Sybase ODBC,并且由于此VBScript在64位计算机上运行,​​因此我通过命令行运行它但使用SysWoW64 cmd .exe并像这样运行它:

C:\Windows\SysWOW64>cscript C:\My\Directory\MyVBScript.vbs

我无法连接到Sybase数据库.我最初对连接字符串本身有一些问题,但似乎已经解决了.

这是我现在收到的错误消息,但我不知道如何通过这个:

Microsoft OLE DB Provider for ODBC Drivers:[SYBASE] [ODBC Sybase driver] [Sybase] ct_connect():user api layer:internal Client Library error:HAFAILOVER:尝试连接服务器

---

这是现在的脚本

Dim connStr, objConn

DataSource = "ICCM_PREVIEW"
ServerIP = "1.2.3.4"
Port = "1234" 
DBuser = "myUser" 
DBpwd = "myPassword" 
DBName = "myDatabase" 
Driver = "SYBASE ASE ODBC Driver"

connStr = ""
connStr = connStr &"Driver="& Driver &";"
connStr = connStr &"Data Source="& DataSource &";"
connStr = connStr &"Srvr="& ServerIP &","& Port &";"
connStr = connStr &"Database="& DBName &";"
connStr = connStr &"uid="& DBuser &";"
connStr = connStr &"pwd="& DBpwd &";"

Wscript.Echo connStr 

'Define object type
Set objConn = CreateObject("ADODB.Connection")

'Open Connection
objConn.open connStr

---

我在这里错过了什么？

Answer 1

参数“Srvr”不是有效的连接参数，需要“Port”键值对。

前

connStr = connStr &"Srvr="& ServerIP &","& Port &";"

后

connStr = connStr &"Server="& ServerIP & ";"
connStr = connStr &"Port="& Port &";"

摘自微软网站

使用连接参数表

以下是除 DSN 参数之外可提供给 ASE ODBC 驱动程序的连接参数列表

摘自Sybase 的《Adaptive Server Enterprise ODBC 驱动程序用户指南》