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

wsylqy

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

星辉

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

dghotman

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

wsylqy

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

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