Paradox-Feldtypen zuweisen

[marabu]

Hallo Lombi,

im Hinblick auf deinen baldigen Umstieg auf ein RDBMS solltest du dir vielleicht schon einmal angewöhnen mit einem leeren result set zu arbeiten, wenn du sowieso nur Insert() oder Append() benutzen möchtest:

Delphi-Quellcode:

procedure TFArtikelListe.BtnNeuClick(Sender: TObject);
var
  Value: Double;
begin
  FArtikel.Show;
  with FArtikel.QueryArtikel do
  begin
    SQL.Text := 'SELECT * FROM Artikel WHERE 1 = 0';
    Open;
    Append;
    FieldByName('EAN').AsString := EditEAN.Text;
    // ...
    Post;
  end;
end;

Freundliche Grüße vom marabu