Suchfunktion

Becks16 · Beiträge: 405

Hallo

Ich habe folgendes problem ich schreibe ein Auftragenverwaltungsprogramm mit Kundenstamm nun möchte ich nach einzelnen Kunden bzw Kundennummersuchen. Und die gefundenen soll er mir denn in einem DBGrid anzeigen... könnte ihr mir da helfen ich habe kein plan wie das funktioniert

vielen dank schon mal im vorraus

mfg

Moderiert von UGrohne: Topic aus VCL (Visual Component Library) verschoben am Di 10.05.2005 um 08:32

_________________
Ich bin Dumm und weiss nichts :-)

jasocul · Verfasst: Di 10.05.05 08:20

Entweder TQuery mit SQL oder bei TTable die Filter-Funktion verwenden.

Becks16 · Beiträge: 405

Ja erst mal danke ich arbeite mit einer Adoquery aber wie muss ich das angehen das ich die kundennummer ein gebe und er mir im DBGrid den Kundennamen ausgibt ??

mfg

_________________
Ich bin Dumm und weiss nichts :-)

jasocul · Verfasst: Di 10.05.05 08:34

Becks16 hat folgendes geschrieben:

Ja erst mal danke ich arbeite mit einer Adoquery aber wie muss ich das angehen das ich die kundennummer ein gebe und er mir im DBGrid den Kundennamen ausgibt ??

markieren

Quelltext

1:	select kundenname where kundennummer = <SuchKundennummer>

Die Feldnamen und den Suchebegriff musst du anpassen. Wenn die "SuchKundennummer" vom Typ varchar/String ist, muss das noch ge-"quoted" werden. (also ' einbauen oder QuotedStr verwenden).

Becks16 · Beiträge: 405

Ich hab das jetzt so gemacht

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

if outsert=false
  then begin

  if edit_kundenname.Text <>'' then  //wenn es größer als leer ist dann holt er sich die aktuellen daten vom projekt
  begin
   qu_kundesuchen.Close;
   qu_kundesuchen.SQL.Clear;
   qu_kundesuchen.SQL.Add('select auftraggeber,kundennummer from kunde where auftraggeber like "'+ edit_kundenname.Text +'%"');
   qu_kundesuchen.open;

wie kann ich das denn jetzt machen das er ne ShowMessage ausgibt wenn es keinen Kunden gibt den er eingegeben hat ???

if name nicht vorhanden then showmeassage(Kundenname nicht vorhanden) oder wie ??

mfg

vielen dank schonmal im vorraus

_________________
Ich bin Dumm und weiss nichts :-)

jasocul · Verfasst: Di 10.05.05 09:32

markieren

Delphi-Quelltext

1:	if qu_kundesuchen.recordcount = 0 then showmessage('das ist eine nachricht');

Becks16 · Beiträge: 405

Wenn ich jetzt was eingebe kommt gleich ne fehler Meldung "kann datenmenge nicht ausführen" muss ich da noch was um schreiben an der zeile ??

_________________
Ich bin Dumm und weiss nichts :-)

jasocul · Verfasst: Di 10.05.05 09:58

Ein bisschen Eigeninitiative.
Lass dir mit ShowMessage dein SQL-Statement anzeigen. Vielleicht ist ein Tippfehler enthalten.
Außerdem schreibst du nicht an welcher Stelle der Fehler auftritt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme