sybase的 .db文件用ado怎么定义provider？

[axer]

请问中间怎么填？
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "Provider=？？？0;Data Source=mytest.db"
set rs= cn.execute("select * from mytable")

[tollers]

用ODBC

[axer]

我知道用odbc，我要用代码写连接。

[wenlz]

用ODBC连接，provider项不用写

[axer]

是这样的，我有多个.db要打开。
当只有一个.db的时候我可以用adodc定义，可以连接。
我想做的是用代码实现同样的功能，可以吗？
也就是说，我打开第一个.db，进行操作，然后关闭它，
再打开第二个.db文件，进行其他操作。
再就是，我能不能动态改变adodc中的连接字符串来连接sybase的.db？
能的话怎么写？

[qqqdong]

ODBC Driver for Sybase SQL Anywhere
　
oConn.Open "ODBC; Driver=Sybase SQL Anywhere 5.0;" & _
　　　　　　　　　 "DefaultDir=c:\dbpath\;" & _
　　　　　　　　　 "Dbf=c:\sqlany50\mydb.db;" & _
　　　　　　　　 "Uid=myUsername;" & _
　　 　　　　　　 "Pwd=myPassword;"
　　　　　　　　　 "Dsn="""";"

[axer]

现在我用adodc用如下字符串连接
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=USER012002;UID=dba;DatabaseFile=D:\USER01\2002\USER012002.DB;DatabaseName=USER012002;AutoStop=Yes;Integrated=No;Debug=No;DisableMultiRowFetch=No"
可不可以把DSN，DatabaseFile，DatabaseName用参数传递，达到打开另一个.db的目的？

[qqqdong]

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=USER012002;UID=dba;DatabaseFile=****;DatabaseName=USER012002;AutoStop=Yes;Integrated=No;Debug=No;DisableMultiRowFetch=No
修改***的地方为你的db
adodc.refresh

[axer]

ok