query1.sql.clear; query1.sql.add('select * from sysobjects where type=''u'''); query1.open; while not query1.eof do begin table1.tablename:=query1.fieldvalues['name']; table1.emptytable; query1.next; end;----------- 其中query1.fieldvalues['name']; 的name字段好象不是这个名字可能要调试一下,笨办法一个,应该还有好一点的
with adoquery1 do begin clear; sql.add('delete from table1'); open; end; table1是你要删除数据的表名!
你是要删除表吗? 如果是 drop table tablename 如果是删除表记录则: delete table where......
with ADOQuery1 do begin close; sql.clear; sql.add('select name from sysobjects'); sql.add('where type='''+'u'+''''); Open; endwhile not ADOQuery.Eof do begin with ADOQuery2 do begin Close; SQL.clear; SQL.Add('delete '''+ADOQuery.FieldByName('name').asstring+''''); ExecSQL; end; ADOquery1.next; end; try it,good luck!
query1.sql.add('select * from sysobjects where type=''u''');
query1.open;
while not query1.eof do
begin
table1.tablename:=query1.fieldvalues['name'];
table1.emptytable;
query1.next;
end;-----------
其中query1.fieldvalues['name'];
的name字段好象不是这个名字可能要调试一下,笨办法一个,应该还有好一点的
begin
clear;
sql.add('delete from table1');
open;
end;
table1是你要删除数据的表名!
如果是
drop table tablename
如果是删除表记录则:
delete table where......
begin
close;
sql.clear;
sql.add('select name from sysobjects');
sql.add('where type='''+'u'+'''');
Open;
endwhile not ADOQuery.Eof do
begin
with ADOQuery2 do
begin
Close;
SQL.clear;
SQL.Add('delete '''+ADOQuery.FieldByName('name').asstring+'''');
ExecSQL;
end;
ADOquery1.next;
end;
try it,good luck!