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

Question

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

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

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

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

这是我现在收到的错误消息，但我不知道如何解决这个问题：

用于 ODBC 驱动程序的 Microsoft OLE DB 提供程序：[SYBASE][ODBC Sybase driver][Sybase]ct_connect()：用户api层：内部客户端库 错误：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”不是有效的连接参数，需要“端口”键值对。

之前

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

之后

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

---

摘自Microsoft's website

使用连接参数图表

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

摘自Adaptive Server Enterprise ODBC Driver by Sybase用户指南