如何去掉table 中的所有记录 是将表记录清空不是将数据库清空吧,若是话用下面语句tablename.sql.add('delete from tablename'); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用 TQuery 控件按一下的事件中加以下代码:With Query1 do begin Close; SQL.Clear; SQL.Add('Delete From 表名'); ExecSQL;end; for i:=1 to adotable1.recordcount do begin adotable1.delete; next; end; procedure TForm1.BitBtn1Click(Sender: TObject);begin table1.EmptyTable;end; 用 TQuery 控件按一下的事件中加以下代码:With Query1 do begin Close; SQL.Clear; SQL.Add('Delete From 表名');//写log文件,比较慢, SQL.Add('truncate tabel 表名');//不写log文件,速度很快。 你可以自己选择!!!!!!!!!!!!!!!!!!! ExecSQL;end; 如果是Table的话,只有Table.EmptyTable了 while not table1.eof do table1.delete; delphi 如何将dbgrid隐藏的列不导出 delphi用什么控件能设置扫描区域 为什么fastreport用adoquery 动态语句会死循环一直打印? cxGrid主从表实现问题 ?急急,向高手請教如何把word存入數據庫中(sql),並讀出來,謝謝 有没有相当于DrawGrid控件的控件呢?要求是没有获得焦点的虚线框,有没有呢? 用delphi怎麼寫這樣一個方法阿,大家給幫忙解決一下,謝謝了! 关于多Dll运行的问题 怎样控制delphi中dcube控件字段的制动排序 SQL問題請教 如何实现串口通讯的监听,,,不知道可以学习!(结帐一向很快) 我编完程序后,如何打包。
Close;
SQL.Clear;
SQL.Add('Delete From 表名');
ExecSQL;
end;
begin
adotable1.delete;
next;
end;
begin
table1.EmptyTable;
end;
Close;
SQL.Clear;
SQL.Add('Delete From 表名');//写log文件,比较慢,
SQL.Add('truncate tabel 表名');//不写log文件,速度很快。 你可以自己选择!!!!!!!!!!!!!!!!!!! ExecSQL;
end;
table1.delete;