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