Kein Datensatz->Fehler abfangen & DBEdit zurückschreiben

[raeschnix]

Hi!

Also ich würds in etwa so lösen:

Delphi-Quellcode:

  myCommandText := 'SELECT * FROM kunden WHERE KDNR = '''+Edit2.Text+''';';

  ADOConnection1.Connected := True;
  if not ADODataSet1.Active then
    ADODataSet1.open;

  with ADODataSet1 do
    begin
      DisableControls; // damit nix ruckelt (Bei mehr DS in einem Grid z.B)
      CommandText := mycommandtext;
      Requery;
      EnableControls;
    end;

Dazu bauste noch ne RecordCount Variable ein und prüfst vorher ab ob > = 0 und gibst ne entsprechende Meldung aus.

Gruss
raeschnix

P.S Wo ist die Formatierung hin in der Vorschau ???

[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]