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

[Kerby666]

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

code какой тип имеет в таблице
что конкретно передаете запросу в Barcode

В таблице тип NUMERIC, Barcode кроме цифр ничего не содержит. На всякий поменял уже тип поля code на character - ошибка бла бла не могу преобразовать num в string. По идее все ОК тогда.

Sorry! Вот текст ошибки
First chance exception at $7732C41F. Exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type (String)'. Process Project1.exe (2780)
Тип Ноль получается. Но как так??

Если важно, использую Visual FoxPro OLE DB Provider.

[maLoy*508]

null - это не ноль, это пусто...
значение пустое получается

[Kerby666]

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

null - это не ноль, это пусто...
значение пустое получается

Вотафакблин ничего не работает значит. Поиск не пашет!

[Аватар]

В таблице тип NUMERIC, Barcode кроме цифр ничего не содержит

Если в таблице NUMERIC, зачем Barcode String? Не важно, что там одни цифры. Сделайте Barcode Integer если пользуетесь Parameters

[Kerby666]

Нашел косяк свой

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

Если в таблице NUMERIC, зачем Barcode String? Не важно, что там одни цифры. Сделайте Barcode Integer если пользуетесь Parameters

простите, уже плохо улавливаю как как это прописать в параметрах??

[Аватар]

function TForm1.ItemByBarcode(const Barcode: Integer; var Item: TBarcodeItem): Boolean;
Соответственно и обращение к функции поменяйте

или в самой функции в Integer преобразуйте

[Kerby666]

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

function TForm1.ItemByBarcode(const Barcode: Integer; var Item: TBarcodeItem): Boolean;
Соответственно и обращение к функции поменяйте

procedure TForm1.DataEvent(Sender: TObject; const Data: WideString;
  SenderID: Integer);

  function GetBarcode(const Data: string): string;
  var
    i: Integer;
  begin
    Result := '';
    for i := 1 to Length(Data) do
    begin
      if Ord(Data[i]) >= $20 then Result := Result + Data[i]
      else Break;
    end;
  end;

var
  Barcode: string;
  Item: TBarcodeItem;
begin
  PriceChecker1.SenderID:= SenderID;
  Barcode := GetBarcode(Data);
  if ItemByBarcode(Barcode, Item) then
  begin
    PriceChecker1.Line1 := Item.Line1;
    PriceChecker1.Line2 := Item.Line2;
    Label3.Caption := Item.Line1;
  end else
  begin
    PriceChecker1.Line1 := 'Товар';
    PriceChecker1.Line2:= 'Не найден';
  end;
  PriceChecker1.SendAnswer;
end;

Data:string

ну что, это конец?=((

[maLoy*508]

а в чем сейчас вопрос?

[Аватар]

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

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

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

[Kerby666]

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

а в чем сейчас вопрос?

несответствие типов Int и str не преодолеть никак?

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

попробовал это, не знаю насколько вообще грамотно, но не сработало