在VB中用DAO连接MYSQL数据库！急~在线等！

Question

各位，原来我的数据库是用ACCESS的
现在得用MYSQL
原来的连接语句是Set db = OpenDatabase(App.Path + "\crmdb.mdb")
现在呢？
能否告诉我DAO中的CONNECT参数有哪些？
还有如果是使用数据源的话，上面的的语句该怎么写？谢谢

Answer 1

引用ADO2.6
dim CSWithDB as string
dim dbtest as new adodb.connection
dim Rs as new adodb.recordset
CSWithDB = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=XXX;Initial Catalog=" & DataBaseName & ";Data Source=IP"
DBtest.ConnectionString = CSWithDB 
DBtest.CursorLocation = adUseClient
DBtest.ConnectionTimeout = 5
DBtest.open
rs.open "select * from 表名",dbtest,, adOpenDynamic, adLockOptimistic

Answer 2

谢谢，但我是要用DAO的啊，请指教

Answer 3

set DB =DBEngine.Workspace(0).OpenDatabase("crmdb.mdb")

Answer 4

这样打不开的啊！要有DAO中关于mysql的CONNECT参数啊

Answer 5

我的mysql下的crmdb是在安装目录下的文件夹crmdb