Daten aus einem MySQL Server in Editfeld ausgeben

[Mackhack]

Hi,

ist zwar mit einer ADS Datenbanke mal entstanden aber das sollte dir vlt. weiterhelfen. Ist auch nur ein Ausschnitt!

Delphi-Quellcode:

...
with DatenModul.AdsQuery1 do
  begin
    Active := False;
    SQL.Text := 'SELECT * FROM RawMaterial WHERE Number=' + IntToStr(ANumber);
    Active := True;
    EdtBarcode.Text := FieldByName('BarCode').AsString;
    EdtTitle.Text := FieldByName('Benennung01').AsString;
    EdtTitle2.Text := FieldByName('Benennung02').AsString;
    CatId1 := FieldByName('Kategorie_Zahl').AsString;
    CatId2 := FieldByName('Kategorie_Zahl2').AsString;
    if ( FieldByName('Hersteller_Nr').AsInteger = -1 ) then
    begin
      EdtSupplierNo.Text := '';
    end
    else
    begin
    ...
    end;
  end;
end;