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

ansgarbecker · ansgarbecker · commit 02cf4cbe28bf · 2026-03-20T15:17:08.000+01:00
Refs #2437
diff --git a/extra/locale/heidisql.po b/extra/locale/heidisql.po
@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: HeidiSQL\n"
 "POT-Creation-Date: 2012-11-05 21:40\n"
-"PO-Revision-Date: 2026-03-20 10:10+0100\n"
+"PO-Revision-Date: 2026-03-20 15:16+0100\n"
 "Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
 "Language-Team: English (http://www.transifex.com/projects/p/heidisql/language/en/)\n"
 "Language: en\n"
@@ -6809,3 +6809,9 @@ msgstr "Show reverse foreign keys"
 
 msgid "Login cancelled"
 msgstr "Login cancelled"
+
+msgid "Folder in path does not exist: %s"
+msgstr "Folder in path does not exist: %s"
+
+msgid "File does not yet exist, will be created now: %s"
+msgstr "File does not yet exist, will be created now: %s"
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -2856,6 +2856,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;
@@ -2866,8 +2867,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;
 
