Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   In DBGrid suchen (https://www.delphipraxis.net/168560-dbgrid-suchen.html)

t0mmy 29. Mai 2012 07:56

Datenbank: MSSQL • Version: 2008 • Zugriff über: ADO

In DBGrid suchen
 
Hallo

Und zwar ich hab eine Prozedur wo ich in einer DBGrid mit folgendem Befehl suche:

ADOQuery_Station_Auftrag.Locate('Auftrag',Edit_Auf tragsnummer.Text,[loPartialKey,loCaseInsensitive]);

Jetzt möchte ich aber eine Fehlermeldung wenn ich keinen Eintrag frinde.
Das mit if Eof(ADOQuery_Station_Auftrag.Locate('Auftrag',Edit _Auftragsnummer.Text,[loPartialKey,loCaseInsensitive])) then ... oder if ADOQuery_Station_Auftrag.Locate('Auftrag',Edit_Auf tragsnummer.Text,[loPartialKey,loCaseInsensitive]) = Eof oder dergleichen bringt mir einen Fehler.

Bitte um hilfestellung, Danke

himitsu 29. Mai 2012 08:00

AW: In DBGrid suchen
 
Zitat:

Zitat von t0mmy (Beitrag 1168464)
oder dergleichen bringt mir einen Fehler.

Welchen?


Sicher daß Locate nicht nur einen Boolean zurückliefert?

DeddyH 29. Mai 2012 08:07

AW: In DBGrid suchen
 
Wie wär' s mit Nachschauen?
Zitat:

Sie gibt false zurück, wenn kein übereinstimmender Datensatz gefunden und der aktive Datensatz nicht gewechselt wurde.

sx2008 29. Mai 2012 08:07

AW: In DBGrid suchen
 
Delphi-Quellcode:
if not ADOQuery_Station_Auftrag.Locate('Auftrag',Edit_Auftragsnummer.Text,[loPartialKey,loCaseInsensitive]) then
begin
  ShowMessageFmt('<%s> wurde nicht gefunden', [Edit_Auftragsnummer.Text]);
  // oder auch als nicht so aufdringliche Rückmeldung
  StatusBar1.SimpleText := Format('<%s> wurde nicht gefunden', [Edit_Auftragsnummer.Text]);
end;

mkinzler 29. Mai 2012 08:10

AW: In DBGrid suchen
 
Zitat:

Sicher daß Locate nicht nur einen Boolean zurückliefert?
Locate liefert nur einen Boolean zurück. Es reicht deshalb diesen auzuwerten

t0mmy 29. Mai 2012 08:20

AW: In DBGrid suchen
 
Rückgabewert lässt grüßen -.- Danke.


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz