如何用DAO命令删除表中的字段

wsylqy

如何用DAO命令删除表中的字段

Roadbeg

'下例删除表 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

多谢您的回复,可我想要删除的是字段而非记录啊.

dghotman

用Dao做不到，但可用VBA操纵field数据类型。

星辉

用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
注意：这样会删除所有字段