TDBf Error
lazarus / 16-Databases

----------------------------------------------------------------------
cov · 2008-12-12 21:53

Hi, I'm getting errors from using foolowing code:
loadProduct('supplier="0001"');

procedure TForm3.loadProduct(filter: string);
begin
  try
    Dbf1:=TDbf.Create(nil);
    Dbf1.FilePath:=dbPath;
    Dbf1.TableName:='product.dbf';
    Dbf1.Filter:=filter;
    Dbf1.Filtered:=true;
    Dbf1.Open;
    Productnumber:=Dbf1.FieldByName('number').AsString;
    EditPNumber.Text:=Productnumber;
    Edit7.Text:=Dbf1.FieldByName('Description').AsString;
    EditPOS.Text:=Dbf1.FieldByName('POSDescription').AsString;
    memotext.Text:=Dbf1.FieldByName('SubProducts').Text;
    if memotext.Count>0 then editpsubs.Text:='Yes'
    else editpsubs.Text:='No';
    EdiPStock.Text:=Dbf1.FieldByName('Stock').AsString;
    EditUnits.Text:=Dbf1.FieldByName('Units').AsString;
    EditCost.Text:=Currency2str(Dbf1.FieldByName('Cost').AsInteger);
   
EditSelling.Text:=Currency2str(Dbf1.FieldByName('Selling').AsInteger);
    EditMarkup.Text:=Dbf1.FieldByName('Markup').AsString;
    EditVAT.Text:=Dbf1.FieldByName('VAT').AsString;
    EditOnOrder.Text:=Dbf1.FieldByName('OnOrder').AsString;
  finally
    Dbf1.Close;
  end;
end; 

The error occurs on Dbf1.Open;

I think it might be because I have previously opened this database and
closed it, could this be the case?

----------------------------------------------------------------------
cov · 2008-12-13 15:23

Putting Dbf1.Free; after Dbf1.Close doesn't solve the problem.

----------------------------------------------------------------------
Loesje · 2008-12-21 22:11

It would help if we knew what the error-message was