Tabelle durchsuchen ohne Angabe eines Feldnamens

[smart]

Halle,

wie kann ich eine Tabelle ohne Angabe von Feldnamen, also die ganze Tabelle durchsuchen?

[mkinzler]

Direkt überhaupt nicht. Man könnte dynamisch die Felder der Tabelle ermitteln und dann in diesen suchen.

[smart]

Zitat:

Zitat von mkinzler (Beitrag 1139083)

Direkt überhaupt nicht. Man könnte dynamisch die Felder der Tabelle ermitteln und dann in diesen suchen.

ist es nicht möglich eine Tabelle so ähnlich wie eine Stringliste zu durchsuchen?

[Bummi]

Mir wird ganz schlecht bei dem was ich jetzt schreibe...

Delphi-Quellcode:

Found := -1;
While not DS.EOF and (Found=-1) do
  begin
    For i := 0 to DS.FieldCount - 1 do
       begin
           if pos(Uppercase(Search),Uppercase(DS.Fields[i].asString))>0 then
             begin
                 Found := i;
                 break;
             end;
       end;
  if found=-1 then DS.Next; 
  end;

(ungetestet)

[Stevie]

Zitat:

Zitat von Bummi (Beitrag 1139091)

Mir wird ganz schlecht bei dem was ich jetzt schreibe...

Mir auch, wenn ich den Einsatz von Pos>0 und Upper oder Lowercase lese, wo man einfach ContainsText (case insensitive) oder ContainsStr (case sensitive) benutzen könnte :)

Zu dem eigentlichen Problem eine kleine Rückfrage: Willst du eine Tabelle in der Datenbank durchsuchen (also per SQL) oder hast du ein DataSet in deinem Program? Bei letzterem könnte Locate helfen.

[Bummi]

@Stevie
Ja der Befehl schreibt sich kürzer....
ich hatte mich vor längerem trotzdem für meine Version entschieden.

Delphi-Quellcode:

var
 tc:Cardinal;
 i:Integer;
begin
    tc := GetTickCount;
    for I := 0 to 10000000 do
        begin
          ContainsStr('Ein kleiner Text mit wenig Inhalt','TEXT');
        end;
    Memo2.Lines.Add(IntToStr(GetTickCount - tc));

    tc := GetTickCount;
    for I := 0 to 10000000 do
        begin
          Pos(UPPERCASE('TEXT'),UPPERCASE('Ein kleiner Text mit wenig Inhalt'));
        end;
    Memo2.Lines.Add(IntToStr(GetTickCount - tc));

end;

4727
3916

[Stevie]

Performance gegen Korrektheit einzutauschen find ich nen schlechten Deal - such mal mit deiner Version nach Umlauten - von Unicode fang ich jetzt mal nicht an.

Außerdem musst du ContainsText vergleichen, denn du machst eine case insensitive Suche - die schneidet beim direkten Zeitvergleich noch schlechter ab.

[Bummi]

Ich geb mich geschlagen ....
In einer "üblichen" Umgebung schlägt zwar die AnsiUppercase Variante immer noch bei weitem die Containstextvariante, aber was ist heute noch "üblich"

[smart]

Wieso klappt dieser Code nicht?

Delphi-Quellcode:

      Form1.ABSTable1.Locate(Form1.ABSTable1.Fields['*'].DisplayName , Edit1.Text,[loPartialKey]);

in Edit1 seht der zu suchende Text.

[Stevie]

Auch wenn du als Abfrage

Code:

select * from table

hast, wirst du kein field haben, was als Name '*' hat. Wenn du in allen Feldern suchen willst musst du als ersten Parameter für Locate die Liste aller Felder abgeben, in denen du suchen willst - durch Semikolon getrennt.