Damit nicht jeder immer andere Variablennamen verwendet geb ich mal einen Anfang vor.
Delphi-Quellcode:
gCon := TZConnection.Create(nil);
Q := TZQuery.Create(nil);
with gCon do
begin
Protocol := 'sqlite-3';
Database := 'asdf.db';
Connect;
end;
Q.Connection := gCon;
Dabei sind
Delphi-Quellcode:
gCon: TZConnection;
Q: TZQuery;
private Variablen einer der Klasse in der das ganze geschehen soll.
Die Klasse soll dann später für das
Handle einer "Vokabeldatenbank" zuständig sein, sodass ich beim interface nicht mehr mit sqlite beschäftigen muss.
1. private
Delphi-Quellcode:
function TableExists(mTable: String): Boolean;
begin
Q.SQL.Add('SHOW TABLE STATUS LIKE `'+mTable+'`');
Q.ExecSQL;
end;
Wo steht der Rückgabewert und lese ich diesen aus (ins result)
2. gleiches Problem wie bei 1. nur das ich diesmal die Zeilen einer Tablle zählen würde
Q.SQL.Add('SELECT count(*) from `'+mTable+'`');