Hallo
in meinem Prorgramm kommt diese Meldung: "zuviele offene Tabellen". Ich habe als Datenbank eine Pardix-
DB und als Komops ein TQuery.
für meine Querys habe ich mir eine Funktion geschrieben:
Code:
function TForm1.execquery(querystring:string):integer;
begin;
qrmain.Close;
if dolog = true then memo1.Lines.Add(datetimetostr(now)+': '+querystring);
qrmain.sql.Clear;
qrmain.sql.Add(querystring);
qrmain.ExecSql;
qrMain.Open;
result := qrmain.RecordCount;
end;
eingetlich dürfte doch maximal 1 Tabelle offen sein, nachdem ich bei zweiten
Query die erste wieder schließe.
Wie bekomm ich die Meldung weg?