paradox db über ttable durchsuchen

[derprof]

hi leute
bin mal wieder am coden.
ich schreib im mom ein programm um eine paradoy db zu bedienen,
eine normale suchfunktion habe ich shcon drin.

Delphi-Quellcode:

 suche:= edit1.Text;
Table1.Locate('CD-Titel', suche, [loCaseInsensitive]);

suche ist in dem fall eine variable die der user mit dem gesuchten cd-titel füllt.
nun kann es ja vorkommen das der user z.b. bravo hits eingibt und das er nicht einer so 10 in seiner cd sammlung hat.
wie realisiere ich das, dass der user aufmerksam gemacht wird das es 10 stück gibt und das er alle nach einander angezeigt bekommt.

wietere infos zum projekt:
ttable und datasource komponente.

vielen lieben dank an euch


mfg martin

[Narayana]

nabend,

ich weiß ehrlich gesagt nicht wie das Locate arbeitet, aber in einer normalen SELECT anweisung kann man bei SQL duch einfügen von % erreichen, dass auch ähnliche Begriffe gefunden werden

Beispiel:

'%a'
sucht alles, was mit a aufhört.

Vielleicht funktioniert es da ja auch, wenn du an die suche (also den Inhalt der Variable) ein % anhängst...

[Thanatos81]

Versuchs mal hiermit:

Delphi-Quellcode:

table1.filter := 'CD-Titel > '+#39+suche+#39;
table1.filtered = true;

Und lass dir die DataSource einfach in nem DBGrid anzeigen

[derprof]

hi leider brachte beides keinen erfolg,
table filter bringt mein programm zum absturz.
was kann ich noch machen

mfg martin

[GuenterS]

du könntest statt der ttable eine tquery verwenden, wo Du eben ein entsprechendes Select SQL Statements reinhaust ala select * ffrom tabellenname where spalte like '%:SUCHE%'

wobei SUCHE dann ein Parameter ist den du mit
ParamByName('SUCHE').AsString := 'blabla' befüllen kannst.

(ganz grob mal)
die TQuery kannst als source für ein DBGRid verwenden.

[Thanatos81]

Zitat von derprof:

[...]table filter bringt mein programm zum absturz.[...]
mfg martin

Das ist aber sehr ungewöhnlich. Welche Fehlermeldung kommt denn? Und kannste vielleicht mal posten, wie die procedure/function aussieht, in der du den filter gesetzt hast?

[derprof]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);

  begin

 suche:= edit1.Text;
Table1.Locate('CD-Titel', suche, [loCaseInsensitive]);
Showmessage('Folgende CD wurde gefunden');
end;

[derprof]

help me

[GuenterS]

Hast Du es denn schon mit der TQuery probiert, wie ich weiter oben geschrieben habe?

[derprof]

hi kannst mir sagen was ich genau da machen muss?