Добавление_записи_в таблицу

[Eugene_Stoun]

Всех приветствую, извиняюсь елси данная тема у же обсуждалось Но тем не менее вопрос в следуещем есть база в Access с полями файл и ссылка, мне соответственно в программе на Delphi надо сделать так, чтобы можно было заполнять таблицу. На форме у меня DBGrid, ADOQuery,OpenDialog1,Button. Мне нужно сделать так, чтобы при нажатии на кнопку открывается диалог, выбираем наши файлы в папке и жмем окей, после чего добавляются записи в эти столбцы, ссылка будет одна и та же так как папку мы указали при выборе файлов, а в столбец имена записались имена файлов. Я так предполагю сделать через запрос
INTO INSERT () VALUES () но что то не очень работает выдает ошибки... Подскажите, что можно еще придумать, просто не вручную же вбивать данные в таблицу.

[Eugene_Stoun]

Вот так я добавляю имена файлов в столбец "ФАЙЛ"

procedure TForm7.Button5Click(Sender: TObject);
var
    st:string;
    i:integer;
begin
if FileOpenDialog1.Execute then
  with FileOpenDialog1.Files do for i := 0 to Count-1 do
  begin
  st:=ExtractFileName(Strings[i]);
ADOQuery1.Active:=false;
ADOQuery1.SQL.Add('INSERT INTO Карточки_учета (Файл) VALUES ('+st+')');
ADOQuery1.Active:=true;
  end;
  end;

Но все равно выдает ошибку, что там чего за пределами констркции SQL!!!

[ReportCube]

ADOQuery1 надо не открывать, а исполнить команду на выполнение скрипта

[Yurk@]

ADOQuery1 надо не открывать, а исполнить команду на выполнение скрипта

а кроме того нужно еще очищать предыдущий запрос перед внесением нового.

procedure TForm7.Button5Click(Sender: TObject);
var
  i : integer;
begin
  if FileOpenDialog1.Execute then
    with FileOpenDialog1.Files do 
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Text := 'INSERT INTO Карточки_учета (Файл) VALUES (:st)';
      for i := 0 to Count-1 do
      begin
        ADOQuery1.Parameters.ParamByName('st').Value := ExtractFileName(Strings[i]);
        ADOQuery1.ExecSQL;
      end;
    end;
end;