Почему выходит ошибка о несоответствии типов?

Question

[animr]

Подскажите пожалуйста почему у меня ошибка несоответствие типов, при выполнении следующего кода?



Именно когда значение Integer.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
varCounter : Integer;
varVariablePole : String;

varP_visible : Integer;
varP_date : TDate;
varP_article : String;

const
CRLF = #13#10;

begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Workbooks.Open(vargPathFileProduct);

dmContanierIcon.quProductAll.Close;

dmContanierIcon.quProductAll.SQL.Clear;
varCounter := 0;
while ExcelApp.ActiveSheet.UsedRange.Rows.Count do
begin
varCounter := varCounter + 1;
varVariablePole := ExcelApp.Range['I'+IntToStr(varCounter)];
if varVariablePole = '' then Break else
begin
varP_article := varVariablePole;

varVariablePole := ExcelApp.Range['A'+IntToStr(varCounter)];
varP_visible := StrToInt(varVariablePole);

varP_date := Date;

dmContanierIcon.quProductAll.SQL.Text := 'INSERT INTO dbt_ProductAll(p_visible, p_date, p_article)' + CRLF +
'VALUES(:_varP_visible, :_varP_date, :_varP_article)';

//Ошибка при добавлении этой строки
dmContanierIcon.quProductAll.ParamByName('_varP_visible').AsInteger := varP_visible;
//-----------------------------------
dmContanierIcon.quProductAll.ParamByName('_varP_date').AsDate := varP_date;
dmContanierIcon.quProductAll.ParamByName('_varP_article').AsString := varP_article ;
end;
dmContanierIcon.quProductAll.ExecSQL;
end;

ExcelApp.ActiveWorkbook.Close;
ExcelApp.Application.Quit;
end;

Answer 1

[Владимир Мартьянов]

Отладчик УЖЕ не помог?

Comments

[animr]

Нет, не помог.

[Владимир Мартьянов]

animr: И даже строку, где происходит ошибка вы в отладчике не смогли найти?

[animr]

строка известна вот:
dmContanierIcon.quProductAll.ExecSQL;

а не добавляется вот это значение:
dmContanierIcon.quProductAll.ParamByName('_varP_visible').AsInteger := varP_visible;

[animr]

когда его удаляю остальные нормально добавляются, и вообще тип integer не добавляется.

[Владимир Мартьянов]

animr: Смотрите SQL запрос, который у вас получился в итоге. И пробуйте выполнить его из СУБД.

Answer 2

[kalapanga]

Предположу, что в таблице dbt_ProductAll поле p_visible не целого типа, а булево какое-нибудь.

Comments

[animr]

Таблица *dbf поле Numeric как указанна на рисунке.
Я все проверил все вроде правильно не могу понять почему это ошибка выходит

[kalapanga]

animr: Давно с dbf дела не имел. Могу и попутать чего. Но вроде Numeric там это строковое представление числа указанного размера. Ему наверное в запросе тип параметра AsInteger не катит. Может строковое представление и надо давать?

[kalapanga]

animr: Наверное поэтому "и вообще тип integer не добавляется". Numeric это не Integer

[animr]

если не использовать параметры а тупо добавлять то Numeric как Integer спокйоно добавляется

[kalapanga]

animr: В смысле если в запросе не параметр, а прямо число написать, то добавляется? А почему бы и нет. Но с параметром попробуй всё-таки вот как-то так:
dmContanierIcon.quProductAll.ParamByName('_varP_visible').AsString := '1';
Запишет или нет?

[animr]

Так dmContanierIcon.quProductAll.ParamByName('_varP_visible').AsString := '1';
не запишется,

а если так: 'INSERT INTO dbt_ProductAll('p_visible, p_date, p_article) VALUES('+IntToStr(varP_visible)+ ', "'+DateToStr(varP_date)+ '", '+IntToStr(varP_parent)+',"'+varP_article+')';
то все хорошо работает, я просто хотел код защитить от SQL инъекции.

[kalapanga]

animr: Так-то понятно, что будет работать! А вот какого же типа параметр должен быть, чтобы в numeric нормально значение вставилось? Может тогда так:
.ParamByName('_varP_visible').Value := varP_visible;
или вообще
.ParamByName('_varP_visible').AsVariant := varP_visible;
Хотя это, наверное, одно и то же.

[kalapanga]

animr: Посмотри здесь: stackoverflow.com/questions/3225178
У автора AsFloat проехало. Numeric ведь на самом деле не только целые хранить может. А тип Integer в общем случае по размеру в Numeric(1,0) не влезает.