procedure Tstudentmanage.SpeedButton4Click(Sender: TObject);
var
i:integer;
begin
if MessageDlg('确定要删除这些学生信息吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
for i:=1 to query2.RecordCount do
Query2.Delete;
end;
end;
因为recordcount 很大 ,所以速度很慢,怎么办?有什么好办么?
var
i:integer;
begin
if MessageDlg('确定要删除这些学生信息吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
for i:=1 to query2.RecordCount do
Query2.Delete;
end;
end;
因为recordcount 很大 ,所以速度很慢,怎么办?有什么好办么?
解决方案 »
- 查找 同名的 任务栏按钮句柄
- 请问如何关闭正在打开的文件。
- 怎样在程序运行时调出AdoConnection的ConnectionString设置窗口,并得到返回的连接字符串
- 用Delphi控制Word
- 如果向应用程序(.exe文件)传送参数
- 谁去看看在北京上映的<星球大战前传 2>谁去看,gg\mm都行!
- 请问如何把Tmemo中的数据添加到文本文件后?
- 如何判断一个文件正在被其他程序写入.
- 请教这个问题,给你分!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 各位兄台,我即将跳楼,不要拉我
- $$【请问 opendialog1.FileName<>" 表示什么意思 我的程序到这里报错】在线恭候各位大侠
- SkinEngine是怎麼用的,請教了。
begin
SQL.Clear;
SQL.Add('delete from tablename');
end
begin
close;
SQL.text:='delete tablename where 条件';
execSQL;end;
if MessageDlg('确定要删除这些学生信息吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
Query2.close;
Query2.sql.clear;
Query2.sql.add('truncate table a');
Query2.execsql;
end;
end;