Autor Beitrag
kiwicht
ontopic starontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic star
Beiträge: 1021

Win 7, MacOS
Delphi x, VBA, PHP, ...
BeitragVerfasst: Mo 02.12.02 13:18 
Hallöle...

ich hab jetzt schon das halbe archiv hier durchgewühlt, aber nirgends ne antwort auf meine frage bekommen...

und zwar will ich, wie der titel ja schon sagt, mit nur einem edit-feld mehrere spalten meiner table durchsuchen.

hatte erst folgendes probiert:

table1.locate('feld1; feld2; feld2', VarArrayOf([edit1.text, edit1.text. edit1.text], [loCase...])

funzt natürlich nicht....

wer weiß weiter?

thx im voraus

kiwicht
LCS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1305
Erhaltene Danke: 1

WIN 7, WIN 8
Delphi XE5, Delphi XE, Delphi 2007
BeitragVerfasst: Mo 02.12.02 13:48 
Hi
kiwicht hat folgendes geschrieben:

ausblenden Quelltext
1:
table1.locate('feld1; feld2; feld2', VarArrayOf([edit1.text, edit1.text. edit1.text], [loCase...])					

funzt natürlich nicht....

Funzt schon, allerdings nicht so wie du willst :wink: Das würde einen Datensatz suchen bei dem im Feld1 und im Feld2 usw. der eingegebene Text steht.
In deinem Fall wärs einfacher eine TQuery mit einem SQL-Befehl zu verwenden. Wenn du nach Strings suchst:
ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
 sb := QuotedStr(UpperCase(Edit1.Text) + '%'); //sb ist ein String
 with TQuery.SQL do begin
   Clear;
   Add( 'SELECT * FROM TABELLE where Upper(feld1) like ' + sb);
   Add(' OR upper(feld2) like ' + sb);
   Add(' OR upper(feldx) like ' + sb);
 end;

Wenn du nach numerischen Werten suchst:
ausblenden Quelltext
1:
2:
3:
4:
5:
6:
 with TQuery.SQL do begin
   Clear;
   Add( 'SELECT * FROM TABELLE where feld1 = ' + Edit1.Text);
   Add(' OR upper(feld2) = ' + Edit1.Text);
   Add(' OR upper(feldx) = ' + Edit1.Text);
 end;


Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...
kiwicht Threadstarter
ontopic starontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic star
Beiträge: 1021

Win 7, MacOS
Delphi x, VBA, PHP, ...
BeitragVerfasst: Mo 02.12.02 13:55 
seeehr genial.

dankschön! :D