D7 Table filter mit Substring

[beanbear6]

Hi zusammen,
ich such seit Stunden im Internet, aber alle Angebote bringen nur Fehlermeldungen.
Ich möchte ganz einfach z.B. in einem DBGrid nach Substring *test* filtern. Mit Filter z.B: Table1.Filter:='DFName=''PC*'''; funktionierte, aber warum nicht mit Table1.Filter:='DFName=''*PC*''' ?? Ich möchte ganz einfach nach Substring filtern können. Kann mir bitte jemand helfen?
Vielen Dank für jede Tip...
Gruß beanbear

[Perlsau]

Zwar kenne ich Dbase nur vom Hörensagen, weiß aber dennoch, daß Datenbanken nicht den Asterix * als Platzhalter verwenden, sondernd das Prozentzeichen % als Platzhalter dient. Zudem wird eine Suche mit Platzhalter nicht über das Gleichheitszeichen = eingeleitet, sondern über das Schlüsselwort like.

All das könntest du selbst herausfinden, wenn du dich mit den Grundlagen von SQL ein wenig näher befassen wolltest.

[DeddyH]

[OT] Asterisk <> Asterix ;) [/OT]

[nahpets]

In dBASE selbst nutzt man (wenn ich mich nur halbwegs recht erinnere) den * als [OT] Asterisk <> Asterix [/OT];-) -> Platzhalter für eine beliebige Anzahl von Zeichen und das ? für ein einzelnes Zeichen. Zumindest steht das im Der Data Becker Führer - dBASE IV (von 1989) so.

Aber das funktioniert (meines Wissens) nicht in Filtern.
Da klappt (meist) nur die nach rechts offenen Suche.

Zur BDE gehört die Localsql.hlp, da steht alles drin, was an SQL über die BDE möglich ist (für dBASE und Paradox) und laut dieser Hilfedatei wird % als Platzhalter genutzt.

Auch wenn dBASE die erste relationale Datenbank für PCs war, die mit SQL arbeitete, so war das (zumindest anfangs) doch nur ein Subset von SQL. Da ist es sinnvoller, sich mit der Doku zu dBASE auseinander zu setzen, als sich den "SQL-Standard" reinzuziehen, es mag Übereinstimmungen geben, aber die sind nicht zwingend.

[Dejan Vu]

Zitat:

Zitat von DeddyH (Beitrag 1315235)

[OT] Asterisk <> Asterix ;) [/OT]

Obelisk <> Obelix.

[jobo]

Zitat:

Zitat von beanbear6 (Beitrag 1315207)

..Mit Filter z.B: Table1.Filter:='DFName=''PC*'''; funktionierte, aber warum nicht mit Table1.Filter:='DFName=''*PC*''' ??

Das korrespondiert mit dem Hilfetext von TDataset.Filteroptions:

Zitat:

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

Im BDEDataset steht es allerdings so wieder nicht.
Mein Tip ist, dass es entweder nicht geht oder kein Treffer gefunden wird (wenn bspw. * = beliebige Zeichen <> kein Zeichen).

[nahpets]

Manche Datenzugriffskomponenten haben neben den Attributen Filter und Filtered auch noch das Attribut FilterOptions.

Hier kann gewählt werden:

foCaseInsensitiv True / False

foNoPartialCompare True / False

Damit die rechtsoffene Suche funktioniert muss der zweite Wert auf True stehen, ein Platzhalter ist dann nicht erforderlich.

Das Verhalten scheint insgesamt aber auch abhängig von der Implementierung der Komponente zu sein. Die Filter funktionieren ja auch bei solchen Komponenten, die zwar wie Datenbankzugriffskomponenten arbeiten, aber bei denen keine Datenbank im Hintergrund liegt (z. B.: tkbmMemTable). Ebenso scheinen die Filter nicht unbedingt ein entsprechendes SQL zu generieren, die Syntax bei den Filtern mag ähnlich der von SQL sein, ist aber nicht zwingend in vollem Umfang mit den Möglichkeiten von SQL identisch.

[jobo]

Zitat:

Zitat von nahpets (Beitrag 1315268)

foCaseInsensitiv True / False

foNoPartialCompare True / False

Damit die rechtsoffene Suche funktioniert muss der zweite Wert auf True stehen, ein Platzhalter ist dann nicht erforderlich.

Laut Hilfe ermöglicht dieser Switch das Suchen nach dem Wildcardzeichen selbst. Sprich der Filter wird 1 zu 1 angewendet.
foNoPartialCompare =False wäre demnach PartialCompare, das Wildcardzeichen '*' wird als Platzhalter interpretiert.

[nahpets]

Zitat:

Zitat von jobo (Beitrag 1315322)

Zitat:

Zitat von nahpets (Beitrag 1315268)

foCaseInsensitiv True / False

foNoPartialCompare True / False

Damit die rechtsoffene Suche funktioniert muss der zweite Wert auf True stehen, ein Platzhalter ist dann nicht erforderlich.

Laut Hilfe ermöglicht dieser Switch das Suchen nach dem Wildcardzeichen selbst. Sprich der Filter wird 1 zu 1 angewendet.
foNoPartialCompare =False wäre demnach PartialCompare, das Wildcardzeichen '*' wird als Platzhalter interpretiert.

Da bin ich mir aber nicht so ganz sicher, meine praktische Erfahrung ist, dass bei foNoPartialCompare = false, also letztlich PartialCompare eine rechtsoffene Suche stattfindet, quasi ein impliziter * rechts angefügt, die Angabe des * ist dabei nicht erforderlich. Bei foNoPartialCompare = True wird der * nicht geduldet, bzw. wird als Teil des Suchbegriffes angenommen.
Das man den * an beliebiger Stelle als Wildcard nutzen kann, ist mir bei Filtern bisher noch nicht aufgefallen bzw. hat noch nicht zum gewünschten/erwarteten Ergebnis geführt. Aber das mag auch abhängig von der genutzten Komponente bzw. der darunterliegenden Datenbank sein.

[joachimd]

Zitat:

Zitat von beanbear6 (Beitrag 1315207)

Ich möchte ganz einfach z.B. in einem DBGrid nach Substring *test* filtern.

in DBase bzw Xbase gibt es den $-Operator:

Delphi-Quellcode:

Table1.Filter:='"test" & DFName';

[Sigi55]

Hi,

also ich mach das wie folgt:

Delphi-Quellcode:

procedure TForm1.Edit2Change(Sender: TObject);
begin
  IF TRIM(Edit2.Text) <> '' THEN
  BEGIN
    Table1.Filtered := True;
  END
  ELSE
  BEGIN
    Table1.Filtered := False;
  END;
end;

... und dann im OnFilterRecord Event

Delphi-Quellcode:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
type
  TFilterOption = (foCaseInsensitive, foNoPartialCompare);
  TFilterOptions = set of TFilterOption;
begin
  if edit2.Text <> '' then
  begin
    Accept:= Pos(UpperCase(Edit2.Text),UpperCase(Table1.FieldByName('Text').AsString)) > 0;
  end;
end;

Geht einwandfrei ohne Joker (*)

Gruß

Sigi

[idefix2]

Delphi-Quellcode:

procedure TForm1.Edit2Change(Sender: TObject);
begin
  IF TRIM(Edit2.Text) <> '' THEN
  BEGIN
    Table1.Filtered := True;
  END
  ELSE
  BEGIN
    Table1.Filtered := False;
  END;
end;

Wirst du pro Codezeile bezahlt?

[mkinzler]

Könnte man zu

Delphi-Quellcode:

Table1.Filtered := TRIM(Edit2.Text) <> '';

verkürzen.

[baumina]

und einem schnöden > statt einem <>.

[Sigi55]

Hi,

ist euch langweilig, dass ihr euch mit solch einem Paddelkram beschäftigen müsst ? :-D

Wenn ich mir das so anschaue, stammt das noch aus der 100% Copy&Paste Zeit :-D, weil alles in Großschrift.... mach ich sonst nicht.
Aber unser Einer ist ja auch mal ganz froh, wenn er aus seinem zugegebenermaßen kleinen Wissenschatz auch mal etwas beitragen kann.

Aber ja, Ihr hab ja recht, kann man alles schlanker machen:-)
... und noch ein Lob an das Forum hier, ohne die Dephipraxis hätt ich das Proggen schon lang an den Nagel gehängt.

cu

Sigi

[frankyboy1974]

hallo,

ich hab mich mal mit dbase vor 25 Jahren beschäftigt und am Ende bin ich zu dem Ergebniss gekommen, das ist gar keine relationale Datenbank.

mfg