求教

Question

用DAO对象在已有数据库中建立一张新表，代码如下：dim db as database
dim tb as tableDef
dim fd as field
db=opendatabase("e:\我的文件夹\学生学籍管理")
td=db.createtableDef("表1")
fd=td.createfield("国别",dbchar)       错误行
db.tableDefs.append td
tb.fields.append fd这是我自己写的代码，一运行就会提示“无效的字段数据类型”，错误在我标注的错误行处。大家帮我看看是怎么回事啊郁闷！！！
如果有错误要改动的话最好在我写的基础上。谢谢

Answer 1

dim db as database
dim tb as tableDef
dim fd as field
db=opendatabase("e:\我的文件夹\学生学籍管理")
td=db.createtableDef("表1")
fd=td.createfield("国别",varchar(50)) 
db.tableDefs.append td
tb.fields.append fd行吗？？？可也这样做：
Dim cSql As String
Dim OpenWS As Workspace
Dim db As DatabaseSet OpenWS = DBEngine.Workspaces(0)
Set db = OpenWS.OpenDatabase("e:\我的文件夹\学生学籍管理.mdb")cSql = "create table 表1 (国别 varchar(50))"
db.Execute cSql