SQL: Groß und Kleinschreibung bei LIKE übergehen?

Andi1982 · Beiträge: 497 WinXP HE D6 Enterprise

Hallo,
ich habe eine MP3 Datenbank mit einer suchfunktion aus folgendem Select:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.BitBtn1Click(Sender: TObject);
var Bed1, Bed2: String;
begin
   Bed1 := QuotedStr('%' + Edit1.Text + '%');
   Bed2 := QuotedStr('%' + Edit2.Text + '%');
   query1.Active := False;
   query1.SQL.Text := 'Select * From Lieder.db ' +
                      'where Titel LIKE ' + Bed1 +
                      ' and Interpret LIKE ' Bed2;
   query1.Active := True;
end;

Aber wenn jetzt in der Tabelle "Shadows of the Night" eingebe und mit "shadow" suche, findet er es nicht. Kann man die gross/kleinschreibung irgendwie übergehen? MIt der Suchfunktion hier im Forum gehts ja auch wenn man alle klein eingibt.

Gruß Andi

Moderiert von tommie-lie: Code- durch Delphi-Tags ersetzt

_________________
Solange die Bombe tickt ist alles in Ordnung, erst wenn sie damit aufhört wird es problematisch...

Luncustaf · Beiträge: 324 Win 2k D7 Ent.

hi

use UpperCase and LowerCase

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.BitBtn1Click(Sender: TObject); 
var Bed1, Bed2: String; 
begin 
   Bed1 := QuotedStr('%' + Edit1.Text + '%'); 
   Bed2 := QuotedStr('%' + Edit2.Text + '%'); 
   query1.Active := False; 
   query1.SQL.Text := 'Select * From Lieder.db ' + 
                      'where Titel LIKE ' + LowerCase(Bed1) + //alles wird klein
                      ' and Interpret LIKE ' UpperCase(Bed2); //alles wird groß
   query1.Active := True; 
end;

gr€€tz

Moderiert von UGrohne: Code- durch Delphi-Tags ersetzt

Andi1982 · Beiträge: 497 WinXP HE D6 Enterprise

Ja aber wenn ich in der Spalte Titel jetzt "Shadows of the night" drinstehen habe und mit "SHADOW" oder "shadow" suche findet er es aber genauso wenig. Das ist ja mein problem. In manchen SQL gibt es diese möglichkeit:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Sourcecode: 
procedure TForm1.BitBtn1Click(Sender: TObject); 
var Bed1, Bed2: String; 
begin 
   Bed1 := QuotedStr('%' + Edit1.Text + '%'); 
   Bed2 := QuotedStr('%' + Edit2.Text + '%'); 
   query1.Active := False; 
   query1.SQL.Text := 'Select * From Lieder.db ' + 
                      'where Titel LIKE ' + Bed1 + 
                      ' and Interpret LIKE ' + Bed2 +' no_case'; 
   query1.Active := True; 
end;

Also einfach ein No_case hinten dran hängen. Aber meine BDE (paradox 7) will das nicht!

Moderiert von UGrohne: Code- durch Delphi-Tags ersetzt

_________________
Solange die Bombe tickt ist alles in Ordnung, erst wenn sie damit aufhört wird es problematisch...

yukon-troll · Beiträge: 60

Hi,

normalerweise mache ich das immer so
(zumindestens unter Interbase/Firebird)

markieren

Delphi-Quelltext

1:
2:
3:
4:

Bed1 := QuotedStr(AnsiUpperCase('%' + Edit1.Text + '%'));

sqlstring :=   'Select * From Lieder.db ' + 
               'where UPPER(Titel) LIKE ' + Bed1 + ...

MfG Wim

Moderiert von tommie-lie: Code- durch Delphi-Tags ersetzt

Andi1982 · Beiträge: 497 WinXP HE D6 Enterprise

@yukon-troll: Dann sucht er aber mit "SHADOW" und findet nichts weils in der Table so steht "Shadow".

Versteht ihr mein Problem?

_________________
Solange die Bombe tickt ist alles in Ordnung, erst wenn sie damit aufhört wird es problematisch...

yukon-troll · Beiträge: 60

in Edit1 steht z.B. -> ShaDOw
mit QuotedStr(AnsiUpperCase('%' + Edit1.Text + '%')) wird daraus -> "%SHADOW%"
in derDatenbank steht zwar -> Shadow
aber mit UPPER(Titel) wird dabei auf -> SHADOW verglichen !

Mfg yukon-troll

Andi1982 · Beiträge: 497 WinXP HE D6 Enterprise

Oh Danke!!!!

Das ist das was ich gesucht habe! Habs nur nicht gesehen am Anfang!! Vielen Dank!!!

_________________
Solange die Bombe tickt ist alles in Ordnung, erst wenn sie damit aufhört wird es problematisch...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme