Быстрый экспорт данных в Access

[Kerby666]

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

И что вы показали? Повторяю, если Code NUMERIC, а Barcode String, то

ADOQuery1.Parameters.ParamByName('Barcode').Value:= Barcode;

всегда будет давать ошибку во время Actve:=True

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

[Аватар]

q:=StrToInt(Barcode);

[Kerby666]

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

q:=StrToInt(Barcode);

Есть положительная динамика. Штрих-код прочитался. Ошибка следующая
First chance exception at $7732C41F. Exception class EConvertError with message ''4607001770350' is not a valid integer value'. Process Project1.exe (1736)

[Аватар]

Значит Single сделать. Кто же знал, что размерность такая

[maLoy*508]

можно Int64

[Kerby666]

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

Значит Single сделать. Кто же знал, что размерность такая

Дико извиняюсь, но это как?

[Kerby666]

Сообщение от maLoy*508

можно Int64

function TForm1.ItemByBarcode(const Barcode: string;
  var Item: TBarcodeItem): Boolean;
  var q:int64;
begin
  q:=StrToInt(Barcode);
ADOQuery1.SQL.Text:='SELECT Line1, Line2 FROM Base WHERE code = :Barcode';
  ADOQuery1.Parameters.ParamByName('Barcode').Value:= q;
  ADOQuery1.Active:=true;
Result:=not ADOQuery1.IsEmpty;
If Result then
  begin
    Item.Line1 := ADOQuery1.FieldByName('Line1').Value;
    Item.Line2 := ADOQuery1.FieldByName('Line2').Value;
  end;
end;

не прокатило

[maLoy*508]

ошибка та же?
так как максимальное значение int64 = 9223372036854775807

[Slym]

пока меня небыло ветка выросла на 3 страницы
давай проект уже, запакуй и приаттач сюда, с базой и дбфкой
а то удаленная отладка какаято

P.S.
я ведь специально что нужно сделать заранее закоментил... а ты зачем то раскоментил
препаринг немного ускоряет поиск

и еще ты ещеш в дбф или уже в мдб?

[Kerby666]

Сообщение от maLoy*508

ошибка та же?
так как максимальное значение int64 = 9223372036854775807

да все также