不能用以下程序创建TableDef怎么办？？？？(在线等候)

Question

我用你的语句试了一下
完全可以但我加了一个数据库引撑
用Miscroft Dao 3.60 Object Library(对应Acess 2000)

Answer 1

这样
Dim testws As Workspace   
Dim testdb As Database
Dim testtd As TableDef
Dim testfld As FieldSet testdb = OpenDatabase("e:\数据库样板.mdb")  
Set testtd = testdb.CreateTableDef("学生")  With testtd
  .Fields.Append .CreateField("new", dbText, 50)  End Withtestdb.TableDefs.Append testtdtestdb.Close

Answer 2

是不是你家里的access和单位的不是一个版本
如果是 liuliguo940 是对的