1180
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
京霾 2002-03-21
谢谢你们。
hireling 2002-03-21
补充：
如果上面有关 DAO 部分发生“未定义”错误，则尝试
把set 去掉或者 flds=tbl.Fields 前加 set。
很长时间没用了，有点生疏，希望能帮到你，见谅~
如果上面有关 DAO 部分发生“未定义”错误，则尝试
把set 去掉或者 flds=tbl.Fields 前加 set。
很长时间没用了，有点生疏，希望能帮到你，见谅~
hireling 2002-03-21
使用 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)
删除类同增加。
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)
删除类同增加。
网络咖啡 2002-03-21
使用SQL，好象是alert吧，记得不是很清楚了