如何动态增添数据库的字段?????

[京霾]

一个学生档案数据库,如何动态增加学生学习的课程?
请各位高手不吝赐教.

[网络咖啡]

使用SQL，好象是alert吧，记得不是很清楚了

[hireling]

使用 SQL ：
ALTER TABLE tablename ADD COLUMN fieldname INTEGER
ALTER TABLE tablename ADD COLUMN fieldname TEXT(10)

使用DAO
Dim tbls as TableDefs
Dim tbl as TableDef
dim flds as Fields
dim fld1 as Field
dim fld2 as Field

set tbl=tbls("Example")

flds=tbl.Fields
fld1=tbl.CreateField("Field1",dbText,10)
fld2 =tbl.CreateField("Field2",dbinteger)

flds.Append(fld1)
flds.Append(fld2)

删除类同增加。

[hireling]

补充：
如果上面有关 DAO 部分发生“未定义”错误，则尝试

把set 去掉或者 flds=tbl.Fields 前加 set。

很长时间没用了，有点生疏，希望能帮到你，见谅~

[京霾]

谢谢你们。