data控件不能直接支持access2000, 这样: 1 工程—引用,找到MicroSoft DAO 3.51 object Library,去掉前面的勾,将MicroSoft DAO 3.6 object Library 选中。2 添加以下代码: Dim db As DAO.database, rs As DAO.RecordsetSet db = DBEngine.OpenDatabase(App.Path & "\正确的.mdb") Set rs = db.OpenRecordset("Select * From yourtable") Set Data1.Recordset = rs
你用的是什么Data,Dao?
1 工程—引用,找到MicroSoft DAO 3.51 object Library,去掉前面的勾,将MicroSoft DAO 3.6 object Library 选中。2 添加以下代码:
Dim db As DAO.database, rs As DAO.RecordsetSet db = DBEngine.OpenDatabase(App.Path & "\正确的.mdb")
Set rs = db.OpenRecordset("Select * From yourtable")
Set Data1.Recordset = rs