Копирование&Очистка таблиц Access

[Artruman]

Допустим я копирую таблицу,но имя задаю в строке,а мне надо вводить в edit.+ как ее очистить (empty table)?

procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
with adoquery1.sql do begin
add('SELECT* INTO CopiedTable From TestTable; ');
end;
adoQuery1.ExecSQL;
end;

[Serge_Bliznykov]

запомните, если выполняете выборку данных ('select ... from ...'), то надо делать query1.Open;
если операция по изменению данных ('delete / update / insert...), тогда нужно делать query1.ExecSQL
Это раз.
во-вторых, чтобы очистить таблицу достаточно:

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('DELETE From TestTable; ');
adoQuery1.ExecSQL;

[soleil@mmc]

procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
with adoquery1.sql do begin
add('insert into CopiedTable select * From TestTable ');
end;
adoQuery1.ExecSQL;
end;

возможно, придется перечислить поля

[Artruman]

всем спасибо ,разобрался...а как все-таки через edit,у мя что-то не выходит

[Neeter]

Вы про это?

procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
with adoquery1.sql do begin
add('insert into ' + Edit1.Text + ' select * From ' + Edit2.Text);
end;
adoQuery1.ExecSQL;
end;