关于根据条件删除数据库数据的问题 ( 积分: 100 )

这个数据库里有地名字段.我需要根据地名将这些记录找出来并删除.
表单上放了一个EDIT控件,在EDIT中输入地名,然后就会将这些记录找出来并删除.
查找的时候最好用模糊查询,因为这些记录是报上来的,地名输的什么样的都有.
我刚开始用SQL语句,一删除就出错,后来用table的filter也有问题,本来很简单的
一个问题,怎么总出错呢.我实在不想想了,只好请各位大侠出手了.谢谢了.

檢查下表結構->檢查代碼的語法是否正確->跟蹤調試，應該可以找出問題

if Application.MessageBox( '是否真的要清空该地市数据！！','警告框', MB_OKCANCEL + MB_DEFBUTTON1) = IDOK then
begin
Query1.Close;
Query1.SQL.Clear;
query1.sql.add('select * from djb');
query1.sql.add('where zd like ''%'+edit1.Text+'%''');
query1.open;
query1.Active :=true;
query1.First;
while not query1.Eof do
begin
query1.delete;
query1.Next;
end;
总报table is readonly的错误.
还有,这样的删除好象最后一条记录总删不掉,该怎么样写这段代码.

Query1.Close;
Query1.SQL.Clear;
query1.sql.add('delete djb');
query1.sql.add(format('where zd like ''%%%s%%''',[edit1.text]));
query1.execsql;
试试

接受答案了.