Office中国论坛/Access中国论坛

标题: 如何用DAO命令删除表中的字段 [打印本页]

作者: wsylqy 时间: 2003-3-9 07:36
标题: 如何用DAO命令删除表中的字段
如何用DAO命令删除表中的字段

作者: Roadbeg 时间: 2003-3-9 08:43
'下例删除表 buffer 中的所有记录
private sub delrec()
dim rs as dao.recordset
set rs=currentdb().openrecordset("select * from buffer")

do until rs.eof
rs.delete
rs.movenext
loop

rs.close
end sub

作者: wsylqy 时间: 2003-3-9 19:09
多谢您的回复,可我想要删除的是字段而非记录啊.

作者: dghotman 时间: 2003-4-10 19:13
用Dao做不到，但可用VBA操纵field数据类型。

作者: 星辉 时间: 2003-4-11 00:53
用dao绝对可以做到，看下例

private sub delrec()
Dim Mydb As DAO.Database
Dim TabBiao As DAO.TableDef
Dim X() As String’存储字段名称
Dim I As Integer
Set Mydb = CurrentDb
Set TabBiao = Mydb.TableDefs(表名)
I = TabBiao.Fields.Count
ReDim X(I) As String
For I = 0 To TabBiao.Fields.Count - 1
X(I) = TabBiao.Fields(I).Name
MsgBox X(I)
Next I

For I = 0 To TabBiao.Fields.Count - 1
TabBiao.Fields.Delete X(I)
Next I

end sub
注意：这样会删除所有字段

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)