7.1.2-stable e sqlite3
Buongiorno,
accedendo ad alcune form contenete dei campi collegati a tabelle sqlite3 ricevo il messaggio in oggetto.
ho provato a riassegnare la connection all'apertura delle tabelle ma il messaggio di errore c'è sempre.
Le tabelle vengono prima chiuse, poi viene assegnato il database ed in ultimo vengono aperte con il seguente codice
for i:= 0 to ComponentCount-1 do
begin
try
if Components[I] is TZTable then
begin
try
begin
TTemp:= Components[I] as TZTable;
if (TTemp.Name <> 'Esercizi') and
(TTemp.Name <> 'Aziende') then
begin
Filename:= TTemp.Tablename;
//informa('il file è :' + filename);
TTemp.Active:=False;
TTemp.Connection:=ZConnection1;
TTemp.Active:=True;
end else TTemp.Active:=True;
end;
except
on E: Exception do
begin
Informa('Si è verificato un errore in una o più tabelle'#13#10+
'in Apri Tabelle per ' + FileName);
exit;
end;
end;
end;
except
on E: Exception do
begin
Informa('Si è verificato un errore in una o più tabelle'#13#10+
'in Apri Tabelle per ' + FileName+
' è necessario riconvertire gli archivi'#13#10+
' o scegliere un altro esercizio'#13#10+
'Sarà attivato l''Esercizio di Esempio');
DataConta.Aziende.Active:=True;
DataConta.Esercizi.Active:=True;
exit;
end;
end;
end;