清除历史记录的问题？？

Question

我现在有个库，库中有个表，我想清除表中的所有数据，请问在delphi中怎么写代码，希望举个例子，

Answer 1

With Query1 do
begin
   Close;
   databasename:'数据库别名';
   Sql.add(delete from 表名);
   ExecSql;
end

Answer 2

databasename:'数据库别名';
改成
databasename:='数据库别名';

Answer 3

With Query1 do
begin
   Close;
   databasename:='数据库别名';
   Sql.add('Select * from 表名');
   open;
end;
IF Query1.Fields[0].AsString<>'' then
begin
   With Query1 do
   begin
     Close;
     Sql.Clear;
     databasename:='数据库别名';
     Sql.add(delete from 表名);
     ExecSql;
   end;
end
else
showmessage('没有数据');

Answer 4

但是当我清除完数据后，我的列名也随之消失了，在dbgrid中也不显示列名了，这是怎么回事呀，当我断开数据库后，再重新连接时，就出现了错误 ，也就是不让我连接了，这是怎么回事呀？？

Answer 5

将Delphi关闭然后重新打开，如果还连不上就注销.删除数据后加一句
Dbgrid1.Datasource.DataSet.Refresh;
这一句添加在ExecSql后面

Answer 6

程序改一下,删除语句忘记用单引号了
With Query1 do
   begin
     Close;
     Sql.Clear;
     databasename:='数据库别名';
     Sql.add('delete from 表名');
     ExecSql;
   end;