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
任何帮助将非常感激。
我建议用你的拳头检查odbcad描述here。如果你能找到ASEOLEDB提及任何存在,那么你只需要问题,或者使用错误类型的驱动程序(32位和64位)的应用程序或连接字符串。
但是,作为错误信息提示,您可能会丢失刚刚提供商 - 同样的问题here。这些库通常是这些设备的一部分:
所有这些都可以在SAP portal被收购,但您需要登录到那个地方,因为这软件只能访问上购买。你可以找到here PC客户端CD的内容对OLEDB here的链接(信息中心的Sybase网站)和手动。遗憾的是只可免费下载的ASE是Linux,这是你没用。也许你可以找到W7机安装介质上...
下载与安装商
http://devzone.advantagedatabase.com/dz/content.aspx?key=20&Release=19&Product=15
下面使用命令来登记提供商
REGSVR32 sybdrvodb.dll
REGSVR32 sybdrvodb64.dll