Insert данных в БД используя ADOQuery

[royun]

Есть StringGrid2 данные которого надо отправить на необходимую таблицу в БД. Необходимую таблицу выбираю с помощью ComboBox. Таблица состоит из двух колонок data тип datetime и fio тип varchar(15).
Возникает проблема в выделенной области - не соответствие типов.

for iRow := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do
  begin
      if StringGrid2.Cells[1,iRow] <> '' then
      begin
      RecCount:=RecCount + 1;
        with ADOQuery1 do
        begin
        Close;
        SQL.Clear;
        SQL.Add('insert into ['+ComboBox1.Text+'] (data, fio)');
        SQL.Add('values('+StrToDateTime(StringGrid2.Cells[1, iRow]+','+StringGrid2.Cells[2, iRow]);
        ExecSQL;
        end;
      end;
  end;

[netpolice]

,'+StringGrid2.Cells[2, iRow]);

Видимо ковычки нужны для varchar(15)

[evg_m]

// SQL.Text:=format('insert into [%s] (data, fio) values(:dt, :fio)', [ComboBox1.Text]);
SQL.Text:='insert into ['  + ComboBox1.Text +'] (data, fio) values(:dt, :fio)';
SQL.ParamByName('dt').Value:=StrToDateTime(StringGrid2.Cells[1, iRow]);
SQL.ParemByName('fio').Value:=StringGrid2.Cells[2, iRow];

[Dvoishnik]

Сообщение от netpolice

,'+StringGrid2.Cells[2, iRow]);

Видимо кавычки нужны для varchar(15)

так то верно, но вангую ошибка возникала не соответствия типов

     SQL.Add('values('+StrToDateTime(StringGrid2.Cells[1,iRow]

видимо нефиг пытаться сложить дату и строку.

[royun]

Сообщение от evg_m

// SQL.Text:=format('insert into [%s] (data, fio) values(:dt, :fio)', [ComboBox1.Text]);
SQL.Text:='insert into ['  + ComboBox1.Text +'] (data, fio) values(:dt, :fio)';
SQL.ParamByName('dt').Value:=StrToDateTime(StringGrid2.Cells[1, iRow]);
SQL.ParemByName('fio').Value:=StringGrid2.Cells[2, iRow];

evg_m, выходит ошибка,что не найден параметр dt.

[Serge_Bliznykov]

Сообщение от royun

evg_m, выходит ошибка,что не найден параметр dt.

покажите ваш код после исправлений.

[royun]

Сообщение от Serge_Bliznykov

покажите ваш код после исправлений.

SQL.Add('insert into ['  + ComboBox1.Text +'] (data, fio) values(:dt, :fio)');
Parameters.ParamByName('dt').Value:=StrToDateTime(StringGrid2.Cells[1, iRow]);
Parameters.ParamByName('fio').Value:=StringGrid2.Cells[2, iRow];

[Аватар]

А SQL очищен от предыдущего использования? Предлагалось же SQL.Text:=

[royun]

Сообщение от Аватар

А SQL очищен от предыдущего использования? Предлагалось же SQL.Text:=

Да

SQL.Clear;

[royun]

Сообщение от Аватар

А SQL очищен от предыдущего использования? Предлагалось же SQL.Text:=

Попробовал

SQL.Clear;
SQL.Text:='insert into ['  + ComboBox1.Text +'] (data, fio) values(:dt, :fio)';
Parameters.ParamByName('dt').Value:=StrToDateTime(StringGrid2.Cells[1, iRow]);
Parameters.ParamByName('fio').Value:=StringGrid2.Cells[2, iRow];

Выходит та же ошибка.