ahlzl 发表于 2004-6-2 08:53:00

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

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 发表于 2004-6-2 09:32:00

mytbl.Fields.Append myfd<BR>mydb.TableDefs.Append mytbl


去掉括号就行了，最好还是使用ADO来操作Access数据库，更方便。

ahlzl 发表于 2004-6-2 19:57:00

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


可ADO我不会，能否把这段代码改用ADO来写。先谢谢了！
页: [1]
查看完整版本: 这段在VBA中用DAO写数据库的代码错在哪?