访问数据库,为何出错.

Question

Set EF = DB.OpenRecordset("select * from config", dbOpenDynaset)

Answer 1

Dim cn As Database
Dim rs As Recordset
Set cn = Workspaces(0).OpenDatabase(App.Path & "\gzzdata.mdb",  False, False, "MS Access;PWD="+[数据库密码])
Set rs = cn.OpenRecordset("config", dbOpenTable)  '由于 config 为一表名，故需要添加参数 dbOpenTable ;缺省时应为一 SQL 语句才对！例如：
Set rs = cn.OpenRecordset("SELECT * FROM config ", dbOpenSnapshot) 也对！