Dim x As New ADODB.Connection
'OLE DB 方式(推荐) 安装 PB8 或 ASA 7.0 就会安装
'Sybase Adaptive Server Anywhere Provider
x.Open "Provider=ASAProv;Persist Security Info=False;User ID=dba;Password=test;Default initial catalog=d:\temp.db"'OLE DB + ODBC 方式
'x.Open "Provider=MSDASQL.1;Driver={Adaptive Server Anywhere 6.0};User ID=dba;Password=test;Database=d:\temp.db"Dim y As New ADODB.Recordset
y.Open "SELECT * FROM YourTableName", x
Debug.Print y.GetString
'OLE DB 方式(推荐) 安装 PB8 或 ASA 7.0 就会安装
'Sybase Adaptive Server Anywhere Provider
x.Open "Provider=ASAProv;Persist Security Info=False;User ID=dba;Password=test;Default initial catalog=d:\temp.db"'OLE DB + ODBC 方式
'x.Open "Provider=MSDASQL.1;Driver={Adaptive Server Anywhere 6.0};User ID=dba;Password=test;Database=d:\temp.db"Dim y As New ADODB.Recordset
y.Open "SELECT * FROM YourTableName", x
Debug.Print y.GetString
我试过不行
ado.open "dsn","user","password"
就可以了。