Function createConnection() As ADODB.Connection
Dim ConnectString As String Dim ConnString As String
Set conn = New ADODB.Connection
.Mode = adModeReadWrite
.ConnectionTimeout = 15
.ConnectionString = "Provider=ASEOLEDB;" & _
"Server Name=" & Range("DBServerName") & _
";Initial Catalog=db;" & _
"User Id=user;" & _
"Password=password"
.Open
End With
Set createConnection = conn
End Function
任何帮助将不胜感激。
答案 0 :(得分:1)
我建议您如here所述检查odbcad。 如果您可以在其中找到任何有关ASEOLEDB的信息,则可能是应用程序使用了错误类型的驱动程序(32位和64位)或连接字符串带来了问题。
但是如错误消息所示,您可能只缺少提供者-与here相同的问题。这些库通常是这些安装的一部分:
所有这些都可以在SAP portal上获得,但是您需要登录到该位置,因为该软件只能在购买时访问。您可以找到here的PC客户端CD内容的链接(Sybase信息中心网站)和OLEDB here上的手册。 不幸的是,Linux仅提供可免费下载的ASE,这对您毫无用处。也许您可以在W7机器上找到安装媒体...
答案 1 :(得分:0)
下载并安装提供程序
http://devzone.advantagedatabase.com/dz/content.aspx?key=20&Release=19&Product=15
使用以下命令注册提供商
regsvr32 sybdrvodb.dll
regsvr32 sybdrvodb64.dll