Folgendes Minimalbeispiel:
Man werfe auf sein Form1 folgendes:
- TFDPhysSQLiteDriverLink
- TFDGUIxWaitCursor
- TFDConnection
Setze für FDConnection.Params.Database einen Dateipfad seiner Wahl
sowie das Event "AfterConnect":
und nutze folgenden Code:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
FDConnection1.Connected := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
donger = '( ͡° ͜ʖ ͡°)';
statement = 'INSERT INTO [myTable] VALUES(:id, :someText)';
fieldTypes: TArray<TFieldType> = [TFieldType.ftString, TFieldType.ftWideString];
begin
FDConnection1.ExecSQL(statement, ['Günther', donger]);
end;
procedure TForm1.handleAfterConnect(Sender: TObject);
const
buildScript =
'CREATE TABLE [myTable]('+
' [id] TEXT PRIMARY KEY NOT NULL UNIQUE ON CONFLICT REPLACE, '+
' [someText] TEXT);';
begin
// FDConnection1.ExecSQL(buildScript); // nur beim ersten mal wenn die Datei noch nicht existiert
end;
Im Button1.Click füge ich über
TFDConnection.ExecSQL(..)
Werte in die Tabelle ein. "Günther" ist noch ok, "( ͡° ͜ʖ ͡°)" hingegen nicht mehr - Hier kommen nur noch die Klammern richtig in der Datenbank an.
Grund ist dass FireDAC, soweit nichts explitit angegeben ist, für die Parameter wohl einen FeldTyp "String" statt "WideString" annimmt. Kann ich das irgendwo steuern? Was für einen Sinn macht es noch
Ansi-Strings zu nehmen?
Ich habe bei der
TFDConnection
die Einstellung Params.StringFormat gefunden und auf
Unicode gestellt, aber das macht keinen Unterschied...