Проблемы с выгрузкой в access

[d0Sia]

Создаю таблицу в access

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add
    ('CREATE TABLE proiz_pr (name char(100), emk real, vol real)');
  ADOQuery1.ExecSQL;

делаю запрос к базе, и нисертом запихиваю в созданную таблицу.

sql запрос

SELECT  B_PRODUCT.NAME,  B_LIST_PRODUCT2.CAPACITY, B_LIST_PRODUCT.COUNT_LITER
FROM
B_COMPANY
,B_WAYBILL
,B_LIST_PRODUCT
, B_LIST_PRODUCT2
,B_PRODUCT
WHERE 
B_COMPANY.NODE_ID = B_WAYBILL.COMPANY1_NID
AND B_COMPANY.ID = B_WAYBILL.COMPANY1_ID
AND B_WAYBILL.ID = B_LIST_PRODUCT.WAYBILL_ID
AND B_WAYBILL.NODE_ID = B_LIST_PRODUCT.WAYBILL_NID
AND B_LIST_PRODUCT.NODE_ID = B_LIST_PRODUCT2.LST_PROD_NID
AND B_LIST_PRODUCT.ID = B_LIST_PRODUCT2.LST_PROD_ID
AND  B_LIST_PRODUCT.PRODUCT_ID = B_PRODUCT.ID
AND B_WAYBILL.TYPE_WAYBILL IN ('P','X','A','Y','E','F','H','V') 
AND to_date(b_waybill.date_waybill,'dd-mm-rr') between '01.06.2012' and '30.06.2012'
AND B_WAYBILL.DECL_PROD_ID Is Not Null 
AND (B_LIST_PRODUCT2.LKVP=311)

    Memo1.Lines.Clear;
    Memo1.Lines.LoadFromFile('SQL\proiz_pr.sql');
    ADODataSet1.CommandText := Memo1.Lines.Text;
    ADODataSet1.CommandType := cmdText;
    ADODataSet1.Open;
    Memo2.Lines.Add(IntToStr(ADODataSet1.RecordCount));
    Memo2.Lines.Add('Запрос к базе завершен ' + TimeToStr(Time));
    Memo2.Lines.Add('Началось сохранение данных запроса' + TimeToStr(Time));
    ADODataSet1.First;
    ProgressBar1.Min := 1;
    ProgressBar1.Max := ADODataSet1.RecordCount;
    ADOQuery1.SQL.Clear;
    while not ADODataSet1.Eof do
    begin
      ADOQuery1.SQL.Add('INSERT INTO proiz_pr VALUES (' + #39 +
          ADODataSet1.FieldByName('name').AsString + #39 + ',' + FloatToStr
          (ADODataSet1.FieldByName('capacity').AsSingle) + ',' + FloatToStr
          (ADODataSet1.FieldByName('count_liter').AsSingle) + ')');
      ADOQuery1.ExecSQL;
      ADOQuery1.SQL.Clear;
      ADODataSet1.Next;
      ProgressBar1.Position := ProgressBar1.Position + 1;
    end;
    ADODataSet1.Close;
    Memo2.Lines.Add('Сохранение данных запроса завершено');

При запихивании выдает ошибку "Не совпадает число значений запроса и число результирующих полей"
Помогите плиз разобраться

[Аватар]

FloatToStr небось запятую в качестве десятичной точки генерит. Лучше параметризировать запрос для избежания подобных накладок

[d0Sia]

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

FloatToStr небось запятую в качестве десятичной точки генерит. Лучше параметризировать запрос для избежания подобных накладок

Подскажите как это сделать =)

[Аватар]

Примерно так

ADOQuery1.SQL.Text:='INSERT INTO proiz_pr VALUES (:Name,:capacity,:count_liter)';
ADOQuery1.Parameters.ParamByName('Name').Value:=ADODataSet1.FieldByName('name').AsString;
ADOQuery1.Parameters.ParamByName('capacity').Value:=ADODataSet1.FieldByName('capacity').AsFloat;
ADOQuery1.Parameters.ParamByName('count_liter').Value:=ADODataSet1.FieldByName('count_liter').AsFloat;
ADOQuery1.ExecSQL;

[d0Sia]

Аватар, спасибо заработало.