这段在VBA中用DAO写数据库的代码错在哪?

ahlzl

2. Sub wqe()
3. '先引用DAO
4. Dim mydb As DAO.Database
5. Dim mydbe As New DAO.DBEngine'假如 "c:\1.mdb"并不存在。
6. Set mydb = mydbe.Workspaces(0).CreateDatabase("C:\1.mdb", _
7. DAO.LanguageConstants.dbLangGeneral)Dim mytbl As DAO.TableDef         '表对象
8. Dim mytablename As String         '表名
9. Dim myfd As DAO.Field                 '字段对象Set mytbl = mydb.CreateTableDef("ABC")
10. Set myfd = mytbl.CreateField("ID", DAO.DataTypeEnum.dbLong)mytbl.Fields.Append (myfd)
11. mydb.TableDefs.Append (mytbl)
12. mydb.Close
13. End Sub

Sub wqe() '先引用DAO Dim mydb As DAO.Database Dim mydbe As New DAO.DBEngine'假如 "c:\1.mdb"并不存在。 Set mydb = mydbe.Workspaces(0).CreateDatabase("C:\1.mdb", _ DAO.LanguageConstants.dbLangGeneral)Dim mytbl As DAO.TableDef         '表对象 Dim mytablename As String         '表名 Dim myfd As DAO.Field                 '字段对象Set mytbl = mydb.CreateTableDef("ABC") Set myfd = mytbl.CreateField("ID", DAO.DataTypeEnum.dbLong)mytbl.Fields.Append (myfd) mydb.TableDefs.Append (mytbl) mydb.Close End Sub

efan2000

mytbl.Fields.Append myfd
mydb.TableDefs.Append mytbl 去掉括号就行了，最好还是使用ADO来操作Access数据库，更方便。

ahlzl

代码改好了，谢谢efan2000老师！


可ADO我不会，能否把这段代码改用ADO来写。先谢谢了！