dazu hole ich mir die Namen der Tabellen in eine Stringliste
Code: Alles auswählen
SHOW TABLES
Code: Alles auswählen
procedure CheckTable(Tabelle: String);
begin
with DataModul.ZQuery_tmp do begin
Close;
SQL.Clear;
SQL.Add('CHECK TABLE :Tab');
ParamByName('Tab').AsString := Tabelle;
Open; // möglicherweise auch mit ExecSQL;
end;
Op: check
Msg_type: status
Msg_text: OK
Ich bekomme allerdings die SQL Fehlermeldung für fehlerhafte "Syntax". Die Abfragen mit Parametern funktionieren sonst alle.
die weiteren Vorgehensweisen sind dann:
ANALYZE TABLE tabelle // -Msg_text = Table is alredy up to date
REPAIR TABLE tabelle // -Msg_text = OK
OPTIMIZE TABLE tabelle