Delphi 如何清空access数据库

在一个数据控件中执行

ALTER TABLE 表名 ALTER COLUMN Id COUNTER (1, 1)

就可以了

sql_str:='ALTER TABLE 表名 ALTER COLUMN Id COUNTER (1, 1)'

ADOQuery1.Active:=FALSE

ADOQuery1.sql.Clear

ADOQuery1.SQL.Add(sql_str)

ADOQuery1.Prepared

try

ADOQuery1.ExecSQL

except

application.MessageBox(pchar('**清空数据库出错.......！**'),'警告',mb_ok)

exit

end

如果要不显示数据，比较简单的就是关闭数据源。比如你DBGrid连接在ADOQuery1上，你可以直接写 ADOQuery1.Close

如果既要数据源，又想屏蔽掉DBGrid上显示的数据的话，试试这个，我这没数据库，不清楚有用没，如果没用再追问。。

DBGrid1.DataSource:=nil //删除掉DBGrid与数据源的绑定

DBGrid1.Refresh //刷新DBGrid

---