Datei mit FireDac "Case Sensitive" filtern

[ATS3788]

Hallo
Ich habe folgenden Pascal Code

Delphi-Quellcode:

                  if Msg.WParam = 0 then
                  FDTable2.FilterOptions := FDTable2.FilterOptions  + [foCaseInsensitive]
                  else
                  FDTable2.FilterOptions := FDTable2.FilterOptions  - [foCaseInsensitive];

                  _Char := Pointer(msg.LParam);

                  S := '%' + StrPas(_Char) + '%';
                  S := QuotedStr(S);


                  FDTable2.Filter := 'FELD1 like ' + S;
                  FDTable2.Filtered := True;

und leider funktioniert das filtern "Case Sensitive" nicht.

[Union]

Entweder über ein Macro:

Code:

FDTable2.Filter := '{ucase(FELD1)} like ' + S;

oder mit dem OnFilterRecord Event.

[himitsu]

Case-Insensitive geht, was ich vor paar Wochen in einer Testanwendung mitbekommen hab.

Aber er will auch Case-Sensitive, also nix mit UPPER, ILIKE oder Dergleichen, was ja alles für das Case-Insensitive ist.


PS: Dieser Filter ist Clientseitig, in der Datenbankklasse und das unterstützt nicht alles, das die Datenbank serverseitig kann.
Und das UCASE-Makro ist nur ein Platzhalter für das "UpperCase" des grade verbunden DBMS. (serverseitig)
http://docwiki.embarcadero.com/RADSt..._%28FireDAC%29



Vielleicht ein Bug, wo alles Case-Insensitive behandelt wird?

Hast du mal die TFDQuery probiert?
Oder in FDTable2 für FELD1 einen Index angelegt?

[edit]
Gibt es in Firebird eine Collation/Collate, die besagt, daß das Feld case-insensitive ist? (so wie z.B. im MySQL)

[Union]

Folgender Code funktioniert so wie erwartet, case sensitive. Falls das beim OP nicht geht, liegt es evtl. an der Konfiguration des FireBird.

Delphi-Quellcode:

program FDCaseInsensitive;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Data.DB,
  FireDAC.Stan.Def,             // IFDStanConnectionDef
  FireDAC.Phys.SQLite,          // TFDPhysSQLiteDriverLink
  FireDAC.Comp.Client,          // TFDConnection
  FireDAC.Phys.SQLiteVDataSet;  // TFDLocalSQL

const
  Filters : Array[0..1] of string = ('ABC', 'abc');

var
  Connection : TFDConnection;
  LocalSQL   : TFDLocalSQL;
  MemTable   : TFDMemTable;
  Filter     : string;

  procedure DumpTable;
  begin
    Writeln('Filter: '+MemTable.Filter);
    MemTable.First;
    while not MemTable.Eof do
    begin
      Writeln(MemTable['FELD1']);
      MemTable.Next;
    end;
  end;

begin
  try
    Connection := TFDConnection.Create(nil);
    Connection.DriverName := 'SQLite';

    LocalSQL := TFDLocalSQL.Create(nil);
    LocalSQL.Connection := Connection;

    MemTable := TFDMemTable.Create(nil);
    MemTable.Name := 'Testtable';
    MemTable.LocalSQL := LocalSQL;
    MemTable.FieldDefs.Add('FELD1', ftString, 20);
    MemTable.CreateDataSet;

    LocalSQL.Active := True;
    MemTable.Active := True;

    for Filter in Filters do
    begin
      MemTable.InsertRecord(['X'+Filter+'X']);
    end;

    DumpTable;

    for Filter in Filters do
    begin
      MemTable.Filter   := 'FELD1 LIKE ''%'+Filter+'%''';
      MemTable.Filtered := True;
      DumpTable;
    end;

    MemTable.Free;
    LocalSQL.Free;
    Connection.Free;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[ATS3788]

Danke himitsu und
besonders hier Union.
Danke für die Arbeit das darzulegen.
Ich habe mir eigentlich was einfacheres vorgestellt.
Das wird ja ein Riesen Aufwand um das umzusetzen.
Ohne eure Anregung wäre ich da verloren:thumb:

[himitsu]

Im Notfall von Filter auf OnFilterRecord umzustellen sollte ein geringer Aufwand sein.

[Union]

Vermutlich hat der DB-Designer entschieden, dass so was nicht gehen soll und daher das Feld mit einer ci_ Collation definiert.

[ATS3788]

Bei Zeos war das eine Feature das ohne
Probleme umzusetzen war. Ich schreibe zur Zeit meine
XE Programme in XE7 um.
Dabei ist ein Programm für meinen Elektrokram.

Es ist hilfreich wenn man BC338, oder Bc338 oder bc338
eingibt und immer das gleich im einem String Grid ausgegeben wird.
Ich werde es mal mit OnFilterRecord probieren.

[mkinzler]

Wenn es mit der selben Datenbank unter Zeos geht, liegt es wohl nicht an der Datenbank.

[ATS3788]

Mhhh
Funktionieren tut es aber man muss es wohl noch verbessern

Delphi-Quellcode:

procedure TForm1.FilterNoCaseSensitive(Table : TFDTable );
var
_Connection : TFDConnection;
LocalSQL : TFDLocalSQL;
MemTable : TFDMemTable;
Filter   : string;
S        : string;
Stream   : TStream;
arr      : t64Array;
i        : Integer;
begin
     Stream   := TStream.Create;

     _Connection := TFDConnection.Create(nil);
     _Connection.DriverName := 'SQLite';

     LocalSQL := TFDLocalSQL.Create(nil);
     LocalSQL.Connection := _Connection;

     MemTable := TFDMemTable.Create(nil);
     MemTable.Name := 'Testtable';
     MemTable.LocalSQL := LocalSQL;

     MemTable.FieldDefs.Add('Counter', ftLargeint);
     MemTable.FieldDefs.Add('FELD1', ftString, 1000);
     MemTable.CreateDataSet;

     LocalSQL.Active := True;
     MemTable.Active := True;



     Table.First;
     while not Table.Eof do  begin
     MemTable.Insert;

     MemTable['COUNTER'] := Table['COUNTER'];
     Stream := Table.CreateBlobStream(Table.FieldByName('FELD1') , bmRead);
    S := RTF_Stream_To_Plain_Text(Stream);
    S := LowerCase(S);
      MemTable['FELD1'] := S;
      MemTable.Post;
      Table.Next;
     end;

       MemTable.Filter := 'FELD1 LIKE ''%'+'test'+'%''';
       MemTable.Filtered := False;

    MemTable.Filtered := True;
  arr := DumpTable(MemTable, ListBox2.Items);

   S := '';
  for i := Low(arr) to High(arr) do
   S := S +  IntToStr(arr[i]) + ',';

   Delete(S,Length(S), 1);
   S := 'COUNTER in (' + S + ')';

   FDTable1.Filter := S;
   FDTable1.Filtered := True;


     MemTable.Free;
     LocalSQL.Free;
     _Connection.Free;

      Stream.Free;
   end;

Nochmal Danke für die Hilfe

[ATS3788]

Ich poste alles damit vielleicht
jemand mal einen nutzen hat.

Delphi-Quellcode:

function RTF_Stream_To_Plain_Text(Stream : TStream) : string;
var
RichEdit     : TRichEdit;
begin
try
RichEdit := TRichEdit.CreateParented(HWND_MESSAGE);
RichEdit.Parent := nil;
RichEdit.PlainText := False;
RichEdit.WordWrap := false;
RichEdit.Visible := false;

Stream.Position := 0;
RichEdit.Lines.LoadFromStream(Stream);

Result := RichEdit.Lines.Text;
finally
RichEdit.Free;
end;
 end;



function DumpTable(MemTable : TFDMemTable;const UniqueInt : string) : t64Array;
var
i : Int64;
 begin
     i := 0;
      MemTable.First;
       while not MemTable.Eof do  begin
        inc(i);
         SetLength(Result , i);
       Result[i-1] := MemTable.Fields.FieldByName(UniqueInt).AsLargeInt;
       MemTable.Next;
     end;
   end;


procedure FilterNoCaseSensitive(Table : TFDTable;Filter, Field2Filter, UniqueInt : string);
var
_Connection : TFDConnection;
LocalSQL : TFDLocalSQL;
MemTable : TFDMemTable;
S        : string;
Stream   : TStream;
arr      : t64Array;
i        : Integer;
begin
     Stream   := TStream.Create;
     _Connection := TFDConnection.Create(nil);
     _Connection.DriverName := 'SQLite';
     LocalSQL := TFDLocalSQL.Create(nil);
     LocalSQL.Connection := _Connection;

     MemTable := TFDMemTable.Create(nil);
     MemTable.Name := 'Testtable';
     MemTable.LocalSQL := LocalSQL;

     MemTable.FieldDefs.Add(UniqueInt, ftLargeint);
     MemTable.FieldDefs.Add(Field2Filter, ftString, 1000);
     MemTable.CreateDataSet;

     LocalSQL.Active := True;
     MemTable.Active := True;

     Table.First;
     while not Table.Eof do  begin
     MemTable.Insert;

     MemTable[UniqueInt] := Table[UniqueInt];
     Stream := Table.CreateBlobStream(Table.FieldByName('FELD1') , bmRead);
    S := RTF_Stream_To_Plain_Text(Stream);
    S := LowerCase(S);
      MemTable[Field2Filter] := S;
      MemTable.Post;
      Table.Next;
     end;


    Filter := LowerCase(Filter);
       MemTable.Filter := Field2Filter + ' LIKE ''%'+ Filter +'%''';
       MemTable.Filtered := False;

    MemTable.Filtered := True;

        arr := DumpTable(MemTable, UniqueInt);

   S := '';
  for i := Low(arr) to High(arr) do
   S := S +  IntToStr(arr[i]) + ',';

   Delete(S,Length(S), 1);
   S := UniqueInt + ' in (' + S + ')';

   Table.Filter := S;
   Table.Filtered := True;

     MemTable.Free;
     LocalSQL.Free;
     _Connection.Free;
      Stream.Free;
   end;

FilterNoCaseSensitive(FDTable1 , 'TesT', 'FELD1', 'COUNTER');

[jobo]

Zitat:

Zitat von ATS3788 (Beitrag 1291135)

Es ist hilfreich wenn man BC338, oder Bc338 oder bc338
eingibt und immer das gleich im einem String Grid ausgegeben wird.

Also mal unabhängig davon, ob es Probleme gibt. Was Du da schreibst, ist doch CaseInSensitive.
Dafür gibt es Collate Sequenzen, die auf Deiner DB vielleicht auch eingestellt sind.. ?
Oben hast Du geschrieben, dass Du beides können willst?
Kommen bei CaseInSensitive soviel Ergebnisse raus, dass man es genauer braucht?

[ATS3788]

Danke jobo
Gut zu wissen das man so was auch in einer Datenbank vorgeben kann.
Ich wollte beiden in der Applikation haben.

[jobo]

Zitat:

Zitat von ATS3788 (Beitrag 1291571)

..
Gut zu wissen das man so was auch in einer Datenbank vorgeben kann.
Ich wollte beiden in der Applikation haben.

Das hatte Union eigentlich auch bereits geschrieben:

Zitat:

Zitat von Union (Beitrag 1291093)

Vermutlich hat der DB-Designer entschieden, dass so was nicht gehen soll und daher das Feld mit einer ci_ Collation definiert.

Wenn man beides realisieren will, bietet es sich vielleicht alternative an, DB-seitig CaseSensitive zu arbeiten (also keine CI collation zu verwenden) und das InSensitive über Upper Funktionen im SQL darüber zu legen, wenn der Anwender es aktiviert.

[mkinzler]

Und hierfür kann man dann einen weiteren expression index anlegen, wenn man es regelmässig benötigt.

[ATS3788]

Hallo
Für Leute die auf diesen Post stoßen

http://www.destructor.de/firebird/ca...tivesearch.htm

Nur die Frage ist, geht das auch für ein Blob ?
oder ist da die komplizierte Funktion besser.

[mkinzler]

Ein Textblob verhält sich bis zur Länge von 32k weitgehenst wie ein VarChar-Feld
http://www.firebirdsql.org/refdocs/l...pd21-blob.html