fix: allow non existent SQLite files, only complain when its *path* does not exist

Refs #2437

Author: ansgarbecker

source/dbconnection.pas

@@ -2984,6 +2984,7 @@ procedure TSQLiteConnection.SetActive(Value: Boolean);
   ErrorHint: String;
   FileNames, EncryptionParams: TStringList;
   MainFile, DbAlias, Param, ParamName: String;
+  MainFileDir: String;
   i, SplitPos, ParamValue: Integer;
   CipherIndex, ConfigResult: Integer;
   ParamWasSet: Boolean;
@@ -2994,8 +2995,12 @@ procedure TSQLiteConnection.SetActive(Value: Boolean);
 
   if Value then begin
     // Fixes "out of memory" crash in sqlite3_open, see issue #1367
+    MainFileDir := ExtractFilePath(MainFile);
+    MainFileDir := IncludeTrailingPathDelimiter(MainFileDir);
+    if not DirectoryExists(MainFileDir) then
+      raise EDbError.Create(f_('Folder in path does not exist: %s', [MainFile]));
     if not FileExists(MainFile) then
-      raise EDbError.Create(f_('File does not exist: %s', [MainFile]));
+      Log(lcInfo, f_('File does not yet exist, will be created now: %s', [MainFile]));
 
     DoBeforeConnect;