在下用Delphi7+SQL Server 2000编一小程序，对SQL有一定基础，刚接触学D7大概10天
想通过如图的“清空表”这个按钮把SQL数据库表清空，通过“导入表”按钮把*.txt格式或者*.xls格式的表导入到SQL表，经过处理后的表通过“另存为”按钮保存为Excel表格。现在的问题是“清空表”这个按钮根据书里学的知识已经编好代码，但运行有错，“导入和导出”按钮不知道怎么做，请高手帮看看我写的“清空表”按钮代码错在哪？还有“导入和导出”到底用到那些知识，如详细告诉步骤更好，在此感激不尽！！！！！
代码如下：
unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
  begin
  with ADOQuery1 do
    begin
     Close;
       with SQL do
        begin
        clear;
        Add('delete from mmbb');
        end;
     ExecSQL;
   end ;
   end;
end.

运行“清空表”时错误提示为：
Access violation at address 1F487CAB in module 'msado15.dll' write of address 01118024


[img]http://www.bc-cn.net/bbs/dispbbs.asp?boardID=9&ID=64218&page=1[/img]