ClientDataSet mit zwei Filtern

[H.Bothur]

Moin,

ich habe eine ClientDataSet das ich mit folgendem Source filtere und anzeigen lasse:

Delphi-Quellcode:

function TKund.KundenSuchen(const KundenNummer: String; var KundenRec: TKundenRec): Boolean;
(* Anzeige des DBGrid aus Rückgabe des gewählten Datensatzes *)
begin
  DatenUebernahme := false;
  ClientDataSet_Kunden.Filtered := True;
  ClientDataSet_Kunden.Filter := CTitelKundenNr +'=' +KundenNummer;
  Kund.ShowModal;
  if DatenUebernahme then
  begin
    KundenRec.Firma1 := ClientDataSet_Kunden.FieldByName(CTitelFirma1).AsString;
    KundenRec.Firma2 := ClientDataSet_Kunden.FieldByName(CTitelFirma2).AsString;
  end;
  if DatenUebernahme then Result := true else Result := false;
end;

Das funktioniert auch wunderbar. Jetzt möchte ich aber nach einem zweiten Feld zusätzlichen Filtern .. also

Delphi-Quellcode:

  ClientDataSet_Kunden.Filter := CTitelKundenNr +'=' +KundenNummer +' AND ' +CTitelFirma1 +'=' +FilterString;

Wenn ich z. B. den FilterString auf den Text "RIO" setze dann bekomme ich eine Exception mit der Meldung "Das Feld 'Rio' wurde nicht gefunden." Also mache ich das irgendwie falsch - aber wie mache ich es richtig ??

Gruß
Hans

[haentschman]

Hallöle...:P
Manchmal helfen ein paar Hochkommata...8-)

Delphi-Quellcode:

ClientDataSet_Kunden.Filter := CTitelKundenNr + '=' + KundenNummer + ' AND ' + CTitelFirma1 + '=' + QuotedStr(FilterString);

[himitsu]

Wenn das RIO auch ein Text/String sein soll, dann solltest du es auch wie einen "String" schreiben.

Und warum nehmen Alle immer QuotedStr?
Das ist einfach nicht richtig.
Dafür gibt es irgendwo in den Units der DB-Komponente passende "Escape"-Funktionen (EscapeName, EscapeValue oder so), welche das richtig machen,
denn

Delphi-Quellcode:

'feld = ' + QuoteStr('Das ist ein Text mit " und \ drin')

[H.Bothur]

Vielen Dank, so klappt das jetzt.

Zwei Dinge habe ich aber nicht verstanden:

1) Warum muss ich beim zweiten Text das QuotedStr nutzen, aber nicht beim ersten String (Kundennummer) ?
2) @himitsu: Was meinst Du mit der Bemerkung "'feld = ' + QuoteStr('Das ist ein Text mit " und \ drin')" ?
Wenn ich das in Delphi ausprobiere kommt genau das raus was ich erwarte !

Gruß
Hans

[H.Bothur]

Sorry - eine Sache verstehe ich leider immer noch nicht:

Filter auf nur ein Feld - klappt !

Delphi-Quellcode:

  CTitelKundenNr := 'Nummer';
  CTitelFirma1 := 'Firma1';
  ClientDataSet_Kunden.FilterOptions := [foCaseInsensitive];
  ClientDataSet_Kunden.Filtered := True;
  ClientDataSet_Kunden.Filter := CTitelKundenNr +'=' +QuotedStr(KundenNummer);

Suche nach zwei Feldern, zweites Feld mit Anfangsbuchstaben und dann Asterix - klappt !

Delphi-Quellcode:

  FilterString := 'M';
  CTitelKundenNr := 'Nummer';
  CTitelFirma1 := 'Firma1';
  ClientDataSet_Kunden.FilterOptions := [foCaseInsensitive];
  ClientDataSet_Kunden.Filtered := True;
  ClientDataSet_Kunden.Filter := CTitelKundenNr +'=' +QuotedStr(KundenNummer) +' AND ' +CTitelFirma1 +'=' +QuotedStr(FilterString +'*');

Suche nach zwei Feldern, zweites Feld OHNE Anfangsbuchstaben und dann Asterix - klappt nicht sondern es gibt kein Ergebnis !

Delphi-Quellcode:

  FilterString := ''; { <- hier ist der Unterschied }
  CTitelKundenNr := 'Nummer';
  CTitelFirma1 := 'Firma1';
  ClientDataSet_Kunden.FilterOptions := [foCaseInsensitive];
  ClientDataSet_Kunden.Filtered := True;
  ClientDataSet_Kunden.Filter := CTitelKundenNr +'=' +QuotedStr(KundenNummer) +' AND ' +CTitelFirma1 +'=' +QuotedStr(FilterString +'*');

Meine Idee war das ich den Suchstring zeichen für Zeichen aufbaue und dann eben partiell danach suche. Nur - wenn ich noch keine Suchstring habe müsste der Filter

Delphi-Quellcode:

+CTitelFirma1 +'= *')

doch eigentlich alle Datensätze anzeigen, oder ?

Gruß
Hans

[Jumpy]

Wie ist das denn, wenn du statt "=" ein "like" verwendest?

UNd nicht unbedingt relevant, aber sollte man nicht erst den Filter definieren und dann Filtered=True setzen?

[H.Bothur]

Moin Jumpy,

Zitat:

Zitat von Jumpy (Beitrag 1374965)

Wie ist das denn, wenn du statt "=" ein "like" verwendest?

Dann bekomme ich in der Zeile

Delphi-Quellcode:

  ClientDataSet_Kunden.Filter := CTitelKundenNr +' LIKE ' +QuotedStr(KundenNummer) +' AND ' +CTitelFirma1 +' LIKE ' +QuotedStr(FilterString +'*');

Eine Exception in Modul MIDAS - Lesen von Adresse 000000

Zitat:

Zitat von Jumpy (Beitrag 1374965)

UNd nicht unbedingt relevant, aber sollte man nicht erst den Filter definieren und dann Filtered=True setzen?

Das hat keine Auswirkung - es wird immer noch nichts angezeigt :-(

Hans

[jobo]

Wenn man "nach alles" sucht (also der Stern), kann man die Bedingung auch prima weglassen.
Bin nicht sicher, aber das Like gehrt glaub ich nicht zu dem Funktionsumfang bzw. dieser Filterimplementierung. Bzw. die Wildcard Funktion im Code Beispiel des TE mit <feld>='M*', die offenbar ein Ergebnis liefert, zeigt ja, dass die Implementierung so mit Gleichheitszeichen gedacht ist/funktioniert.
Könnte mir vorstellen, dass ein führendes "*" einfach nicht unterstützt ist wegen Performance. Müsste man mal Doku lesen.

[H.Bothur]

OK - dann muss ich den Suchstring eben entsprechend per IF zusammensetzen - ich hatte nur gedacht das man sich das sparen kann.

Gruß
Hans

[Uwe Raabe]

Zitat:

Zitat von H.Bothur (Beitrag 1374959)

Meine Idee war das ich den Suchstring zeichen für Zeichen aufbaue und dann eben partiell danach suche. Nur - wenn ich noch keine Suchstring habe müsste der Filter

Delphi-Quellcode:

+CTitelFirma1 +'= *')

doch eigentlich alle Datensätze anzeigen, oder ?

Das ist nicht zwingend der Fall. Die Dokumentation sagt:

Zitat:

Wenn ein String in einem Filter mit einem Sternchen endet (*), lassen sich auch Teil-Strings suchen.

Der Sonderfall eines leeren Teil-Strings ist damit nicht explizit abgedeckt. Ich schlage vor, in dem Fall den kompletten Vergleich zusammen mit dem AND wegzulassen.