feat: support full table status option in SQLite, showing "Rows" from COUNT(*) for each table

ansgarbecker · ansgarbecker · commit 422935a3adfb · 2026-02-10T19:36:17.000+01:00
closes #1803
diff --git a/source/connections.pas b/source/connections.pas
@@ -1636,7 +1636,7 @@ procedure Tconnform.ValidateControls;
       lblQueryTimeout.Enabled := True;
       editQueryTimeout.Enabled := lblQueryTimeout.Enabled;
       chkLocalTimeZone.Enabled := Params.NetTypeGroup = ngMySQL;
-      chkFullTableStatus.Enabled := (Params.NetTypeGroup in [ngMySQL, ngPgSQL]) and (Params.NetType <> ntMySQL_ProxySQLAdmin);
+      chkFullTableStatus.Enabled := (Params.NetTypeGroup in [ngMySQL, ngPgSQL, ngSQLite]) and (Params.NetType <> ntMySQL_ProxySQLAdmin);
       chkCleartextPluginEnabled.Enabled := Params.NetTypeGroup = ngMySQL;
       editLogFilePath.Enabled := Params.LogFileDdl or Params.LogFileDml;
 
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -7563,6 +7563,7 @@ procedure TSQLiteConnection.FetchDbObjects(db: String; var Cache: TDBObjectList)
   obj: TDBObject;
   Results: TDBQuery;
   TypeS: String;
+  UnionRowCount: TStringList;
 begin
   // Tables, views and procedures
   Results := nil;
@@ -7593,6 +7594,34 @@ procedure TSQLiteConnection.FetchDbObjects(db: String; var Cache: TDBObjectList)
       Results.Next;
     end;
     FreeAndNil(Results);
+
+    if FParameters.FullTableStatus then begin
+      UnionRowCount := TStringList.Create;
+      for obj in Cache do begin
+        if obj.NodeType <> lntTable then
+          Continue;
+        UnionRowCount.Add('SELECT '+EscapeString(obj.Name)+', COUNT(*) FROM '+QuoteIdent(obj.Database)+'.'+QuoteIdent(obj.Name));
+      end;
+      if UnionRowCount.Count > 0 then
+      try
+        Results := GetResults(Implode(' UNION ', UnionRowCount));
+        while not Results.Eof do begin
+          for obj in Cache do begin
+            if (obj.NodeType = lntTable) and (obj.Name = Results.Col(0)) then begin
+              obj.Rows := StrToInt64Def(Results.Col(1), -1);
+              obj.RowsAreExact := True;
+              break;
+            end;
+          end;
+          Results.Next;
+        end;
+        FreeAndNil(Results);
+      except
+        on E:EDbError do
+          Log(lcError, 'Full table status with row count not available in this database');
+      end;
+      UnionRowCount.Free;
+    end;
   end;
 end;
 
