Filter mit like

Nomis · Beiträge: 72

Hänge mal wieder etwas

und zwar funktioniert folgende Zeile ohne Probleme

Quelltext

1:	Table3.Filter := combobox3.text+' =' + QuotedStr(edit7.text);

wenn ich diese jedoch Ändere in

markieren

Quelltext

1:	Table3.Filter := combobox3.text+' Like' + QuotedStr(edit7.text+'%');

ändere sagt er mir, daß die Operation nicht anwendbar ist hat da jemand schonmal Erfahrung mit gemacht??

hitstec · Beiträge: 295

Versuchs damit:

markieren

Quelltext

1:	Table3.Filter := combobox3.text+' Like '#39+edit7.text+'%'#39);

Nomis · Beiträge: 72

Funktioniert leider nicht. Kann das irgendwie mit meiner Paradox7 Datenbank zu tun haben?

Renegade · Beiträge: 358 Win XP Pro, Win 7 Beta BDS 2006

Moin erstmal!

Und wenn du es so versuchst?

markieren

Quelltext

1:	Table3.Filter := combobox3.text+' Like' + QuotedStr(edit7.text)+'%';

Gruß Renegade

_________________
Sokrates (468 v.Chr. - 399 v.Chr.)
"Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen."

hitstec · Beiträge: 295

Auf jedenfall muss ein Leerzeichen nach Like stehen, im Klartext muss es so aussehen:

markieren

Quelltext

1:	... LIKE 'text%'

Renegade · Beiträge: 358 Win XP Pro, Win 7 Beta BDS 2006

Nomis hat folgendes geschrieben:

Funktioniert leider nicht. Kann das irgendwie mit meiner Paradox7 Datenbank zu tun haben?

Ich weiß nicht wie aufwendig das für dich wäre mal ne andere db zur probe zu testen. cih würds machen denn eigentlich sollte dein code funzen.

Gruß Renegade

_________________
Sokrates (468 v.Chr. - 399 v.Chr.)
"Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen."

Nomis · Beiträge: 72

Renegade hat folgendes geschrieben:

Table3.Filter := combobox3.text+' Like' + QuotedStr(edit7.text)+'%';

Da gibt er mir Lusigerweise keine Felermeldung allerdings muss ich erst den gesamten Ausdruch in edit 7 eingeben bevor er mir in dem DBGrid was anzeigt troz like und % hast du da eine erklährung für??
Eigentlich möchte ich schon nach dem ersten Buchstaben alle einträge die den Buchstaben als erstes haben anzeigen lassen

Renegade · Beiträge: 358 Win XP Pro, Win 7 Beta BDS 2006

In welchem ereignis hast du den code denn untergebracht?

_________________
Sokrates (468 v.Chr. - 399 v.Chr.)
"Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen."

Delta7 · Hält's aus hier Beiträge: 12

Hallo Zusammen,

wenn Du das so schreibst
Table3.Filter := combobox3.text+' Like' + QuotedStr(edit7.text)+'%';
dann steht im SQL String das letzte ' VOR dem %.

Versuch doch mal

markieren

Quelltext

1:
2:

Table3.Filter := combobox3.text+' Like ''' + edit7.text+'%'''; 
//(Ungetestet).

Allerdings bin ich mir nicht ganz sicher, ob eine like 'irgendwas%' Syntax als Filter funktioniert.

Probier mal statt der Table eine query.

markieren

Quelltext

1:
2:
3:
4:

  query1.close;  //optional
  query1.sql.clear;
  query1.sql.add('Select * from TABELLE where '+combobox3.text+ ' like '''+edit7.text+'%''';  //Tabelle ist natürlich der entsprechende Name
  query1.open;  //Ab hier solltest Du dein Ergebnis sehen

Allerdings auch ungetestet :lol:

Viel Spass

_________________
Ein Byte hat 8 Bit. Wer's nicht glaubt, soll seinen Rechner aufschrauben und nachzählen.

Nomis · Beiträge: 72

Renegade hat folgendes geschrieben:

In welchem ereignis hast du den code denn untergebracht?

Habe es in die Oncange von edit7 geschrieben hier mal der ganze Code :

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Edit7Change(Sender: TObject);
begin
if form6.lesen = true then
  begin
    if (combobox3.Text = 'Nr') or (combobox3.text = 'Buch') then
       begin
        edit7.maxlength := 4;
        Table3.filtered := true;
    Table3.Filter := combobox3.text+' Like ' + QuotedStr(edit7.text+'%'); 
        panel16.Visible := true;
        end
      else
        begin
        edit7.maxlength := 20 ;
        Table3.filtered := true;
     Table3.Filter := combobox3.text+' Like ' + QuotedStr(edit7.text+'%'); 
        panel16.Visible := true;
      end;

  end;
end;

Wie gesagt dabei sgt er mir Operation nicht anwendbar

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme