Suchfunktion in Paradoxtabelle ?

[Vader]

hallo,

wenn ich so suche muß ich den ganz richtigen namen eingeben in das suchfeld sonst findet er mir nichts !

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var suche: string;
begin
suche:= edit1.Text;
Table1.Locate('Nachname', suche, [loCaseInsensitive]); 
Showmessage('Folgende Nachname wurde gefunden');
end;

wie geht das,das ich zb. nur 2 anfangsbuchstaben eingeben muß damit er mir den namen findet ?
mfg vader

[mkinzler]

loPartialKey zu LocateOptions hinzufügen

[Vader]

super,danke

und wie funktioniert das, wenn man in mehreren tabellenfelder suchen möchte zb. ich habe 3 felder
(nachname, vorname und strasse ) jetzt weiß ich zb. nur die strasse ?
mfg vader

[mkinzler]

Delphi-Quellcode:

Table.Locate('<Feldname1>;<Feldname2>;<Feldname3>', VarArrayOf([ Wert1, Wert2, Wert3]), [loCaseInsensitive,loPartialKey]);

[Vader]

hallo

Delphi-Quellcode:

[Fehler] Unit1.pas(134): Undefinierter Bezeichner: 'Wert1'

und wo bringe ich meine variable "suche" unter in deiner codezeile ?
mfg vader

[mkinzler]

Wert1, Wert2, wert3 stand hier für gesuchter wert von DatenbankFeld1 usw.

z.B. wenn die Felder 'Name;Vorname;Strasse' ist ist Wert1 für z.B. 'Maier', Wert2 z.B. 'Peter' ...

[Vader]

[/delphi]procedure TForm1.Button5Click(Sender: TObject);
var suche: string;
begin
suche:= edit1.Text;
Table1.Locate('<Nachname>;<Vorname>;<Strasse>', VarArrayOf([ Gruber, Gerhard, Allestrasse]), [loCaseInsensitive,loPartialKey]);
end;

Delphi-Quellcode:

[Fehler] Unit1.pas(134): Undefinierter Bezeichner: 'Gruber'[delphi]

ich krieg das nicht auf eine reihe ?
mfg vader

[mkinzler]

So müßte es funktionieren:

Delphi-Quellcode:

Table1.Locate('Nachname;Vorname;Strasse', VarArrayOf([ 'Gruber', 'Gerhard', 'Allestrasse']), [loCaseInsensitive,loPartialKey]);

[Vader]

aber was ist mit meiner variable " suche " meine sucheingabe ist über ein editfeld ??
mfg vader

[mkinzler]

Ich gehe mal davon aus das Edi1-< Nachname, Edit2 -> Vorname, Edit3 -> Strasse ist.

Delphi-Quellcode:

Table1.Locate('Nachname;Vorname;Strasse', VarArrayOf([ Edit1.Text, Edit2.Text, Edit3.Text]), [loCaseInsensitive,loPartialKey]);

[Vader]

ich glaub wir haben uns falsch verstanden,
in SQL würde das so ausschauen was ich meine

Delphi-Quellcode:

SELECT * 
FROM Tabelle 
WHERE Feld1 like '%X%' 
AND   Feld2 like '%X%' 
AND   FeldN like '%X%'

mfg vader

[mkinzler]

Der Unterschied zwischen dem locate und deiner SQL-Anweisung ist, das der Locate, die Ergebnismenge der Tabelle nichtr einschränkt und Nur den Datensatzzeiger auf den 1. gefundenen Wert setzt, ansatt nur noch die passenden werte anzeigt.
Willst du zweiteres mit einer Table erreichen mußt du einen Filter setztn.

[Vader]

das was ich mit sql darstellte ist auch nicht genau was ich meine, da wird alles angezeigt mit "X",

ich möchte nach einen wort in meiner ganzen tabelle suchen, und nicht nach einen wort in einen feld der tabelle !
die suche soll alle 3 felder in meiner tabelle nach den eingegebenen suchbegriff absuchen !!
mfg vader

[mkinzler]

Zitat:

Zitat von Vader

das was ich mit sql darstellte ist auch nicht genau was ich meine, da wird alles angezeigt mit "X",

Du hast ja auch gesagt er soll nach Wörtern mit X suchen. Plazhalter in SQL ist %.

ich möchte nach einen wort in meiner ganzen tabelle suchen, und nicht nach einen wort in einen feld der tabelle !
die suche soll alle 3 felder in meiner tabelle nach den eingegebenen suchbegriff absuchen !!
mfg vader[/quote]

SQL-Code:

SELECT 
    *
FROM 
    Tabelle
WHERE 
    Feld1 like :such OR
    Feld2 like :such OR
    FeldN like :such

Delphi-Quellcode:

Query.ParamByName('such').asString := '%*+Edit1.Text+'%';

t

[Vader]

nein, ich hab aber TTablezugriff und nicht TQueryzugriff in meinen project,
siehe beitrag #1
mfg vader

[mkinzler]

Zitat:

Zitat von Vader

nein, ich hab aber TTablezugriff und nicht TQueryzugriff in meinen project,
siehe beitrag #1
mfg vader

kann man doch leicht ändern ;-)

oder man setzt die FilterOptions foCaseInsensitive auf true. Setzt den Filter auf
'Name = '''%'+Edit1.Text+'%''' or Vorname = ... ';

Und dann Filtered auf True

[Vader]

du schreibst:

Zitat:

oder man setzt die FilterOptions foCaseInsensitive auf true. Setzt den Filter auf
'Name = '''%'+Edit1.Text+'%''' or Vorname = ... ';

bezieht sich das auf TTable vom beitrag #1, oder bezieht sich das auf TQuery ??
mfg vader

[mkinzler]

Auf die Table, ich würde aber die Variante mit dem Query wählen!

[Vader]

hallo

du schreibst:

Zitat:

oder man setzt die FilterOptions foCaseInsensitive auf true. Setzt den Filter auf
'Name = '''%'+Edit1.Text+'%''' or Vorname = ... ';

1.FilterOptions foCaseInsensitive habe ich auf true gesetzt
2.Setzt den Filter auf 'Name = '''%'+Edit1.Text+'%''' , wo muß ich das setzten bzw. reinschreiben, im objektinspektor - eigenschaft "Filter" ?

mfg vader

[mkinzler]

Zitat:

Setzt den Filter auf 'Name = '''%'+Edit1.Text+'%''' , wo muß ich das setzten bzw. reinschreiben, im objektinspektor - eigenschaft "Filter" ?

da in der Filterbedingung eine Variable enthalten ist, mußt du dies zur Laufzeit am in der onChange Eventbehandlungsroutine des Edits setzten.

Delphi-Quellcode:

Table1.Filter := 'Name = '+QuotedStr( (Sender as TEdit).Text)+' or Vorname='+QuotedStr( (Sender as TEdit).Text)+' or Strasse = '+QuotedStr( (Sender as TEdit).Text);
Table1.Filtered := True;

[Vader]

es schaut jetzt so aus:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
Table1.Filter := 'Nachname = '+QuotedStr( (Sender as TEdit).Text)+' or Vorname='+QuotedStr( (Sender as TEdit).Text)+' or Strasse = '+QuotedStr( (Sender as TEdit).Text);
Table1.Filtered := True;
end;

wenn ich jetzt in das suchedit was eingebe, sind alle daten in meinem DBGrid verschwunden ?
mfg vader

[mkinzler]

Huch, ich habe ja total die % vergessen. Ersetzte

Delphi-Quellcode:

QuotedStr( (Sender as TEdit).Text)

durch

Delphi-Quellcode:

QuotedStr( '%'+(Sender as TEdit).Text+'%')

[Vader]

wieder das gleiche , es sind die daten weg !!!!!

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
Table1.Filter := 'Nachname = '+QuotedStr( '%'+(Sender as TEdit).Text+'%')+' or Vorname='+QuotedStr( '%'+(Sender as TEdit).Text+'%')+' or Strasse = '+QuotedStr( '%'+(Sender as TEdit).Text+'%');
Table1.Filtered := True;
end;

mfg vader

[mkinzler]

Ich habe grad noch mal in der Delphihilfe nachgesehen, bei, Filter der TTable ist * Joker.

[Vader]

Delphi-Quellcode:

( '*'+(Sender as TEdit).Text+'*')

wieder dsa gleiche, daten sind weg !
mfg vader