这样怎么不行呀?

Question

adotable1.open;
adotable1.EmptyTable;
就可实现你的功能

Answer 1

query1.sql.clear;
query1.sql.add('drop table Name');
query1.exesql;

Answer 2

把你循环体内的以下两句砍掉
adotable1.Post;
 adotable1.next;

Answer 3

用ADOQuery来
  with ADOQuery1 do
   begin
    close
    sql.clear;
    sql.add(format('delete from %s',[Delete_tablename]));
    execsql;
   end;

Answer 4

请问black，这两句加在哪里？

Answer 5

这两句替换你的所有程序
procedure TForm1.Button4Click(Sender: TObject);
begin
try
adotable1.open;
adotable1.EmptyTable;
except
  on E:Exception do
   ShowMessage(E.Message);
   end;
end;