数据库拆分后,后台库名为“cj.mdb”,密码是“123”,该库中有一个名为“cjd”的Access表,表中一字段名为“历史”。现用如下代码欲将此字段删除:
Dim db As DAO.Database
Set db = DBEngine.Workspaces(0).OpenDatabase(CurrentProject.path & "\cj.mdb", False, False, "wd=123")
db.TableDefs("cjd").Fields.Delete "历史"
提示错误“连接无法用于此操作,在此上下文中它可能已被关闭或无效”。
求助:如何修改连接才能实现删除该字段。多谢