Delphi 10.1 FireDacとSqliteの日付発行

Question

私はアンドロイドアプリで作成されたテーブルを持っています。

CREATE TABLE IF NOT EXISTS `TimeSheet 
    `TKey` INTEGER PRIMARY KEY AUTOINCREMENT, 
    `PriKey1` INT NOT NULL, 
    `PriKey2` DEFAULT NULL, 
    `PriKey3` DEFAULT NULL, 
    `STime` DATETIME DEFAULT NULL, 
    `ETime` DATETIME DEFAULT NULL, 
    `Note` BLOB); 

いくつかのデータをさまざまな日付でロードしました。

また、一度に1日のデータしか表示されないようにフィルタリングする必要があります。私はどこステートメントSDATEは、いくつかのDD-MM-1800の日付を持って削除した場合、そうする

Delphiコードは

FD := "a date"; 
QuTimeSheet.Active := False; 
QuTimeSheet.SQL.Text := 'Select Date(STime) as SDate, Time(STime) as STime,  Time(ETime) as ETime, Task.TaskName From TimeSheet' + #13 + #10 + 
' LEFT JOIN task ON (TimeSheet.PriKey1 = task.TKey)';// + #13 + #10 + 
'Where SDate = ''' + formatdatetime('YYYY-MM-DD',FD) + ''';'; 
QuTimeSheet.Active := True; 

を下回っています。これは、Date（STime）dosentがDelphiで動作することを示しています。

もSDATE

デルファイdosentとしてSTRFTIME（％Y- & M-％のD、STIME）を試みたSTRFTIME Androidデバイスのクラッシュを好むように見えます。

はフィルタ

QuTimeSheet.Filtered := False; 
    QuTimeSheet.Filter := 'SDate = ''' + formatdatetime('YYYY-MM-DD',FD) + ''''; 
    QuTimeSheet.Filtered := True; 

または

QuTimeSheet.Filtered := False; 
    QuTimeSheet.Filter := 'SDate = ''' + Datetostr(FD) + ''''; 
    QuTimeSheet.Filtered := True; 

これは何をフィルタリングしないを使用してみました。

これはMySqlとSqlite turorialsサイトで動作するような簡単なステートメントです。

なぜ私のアプリにはありませんか？

Answer 1

SQLの連結を停止し、代わりにパラメータを使用します。また、あるタイプから別のタイプへの変換をやめ、データベース・ドライバーがそれをあなたに任せるようにしてください。引用符で囲む必要があるものを引用する方法（引用しないものを引用しない）と、日付の値を適切に書式設定する方法を知っています。また、SQLインジェクションを防止します。

（私はこのマシン上のSQLiteを持っていないので、テストされていない）このような何かが動作するはずです：

var 
    TheDate: TDateTime; 
begin 
    TheDate := EncodeDate(2015, 1, 1); 
    QuTimeSheet.Active := False; 
    QuTimeSheet.SQL.Text := 'Select Date(STime) as SDate, Time(STime) as STime,'#13 + 
         ' Time(ETime) as ETime, Task.TaskName From TimeSheet'#13 + 
         ' LEFT JOIN task ON (TimeSheet.PriKey1 = task.TKey)'#13 + 
         'Where SDate = :SDateVal'; 
    QuTimeSheet.ParamByName('SDateVal').AsDateTime := TheDate; 
    QuTimeSheet.Active := True; 
end;