gegevens wegschrijven naar een Log helpt. Ik heb nu een foutmelding bij een on Exception
Zie hieronder.
De query haalt circa 740000 records op met 67 kolommen.
Code:
procedure..
Frm_main.Logging.WriteToLogAndFlush('10');
with DataModule_Waarderen.ZQuery_Woning do
begin
Filtered := False; //Eventueel filter uitzetten
Frm_Main.DBGrid_Model_Woningen.Enabled := True;
Close;
SQL.Clear;
if Actie = 608 then SQL.Text := Frm_Query_Editor.W_stap_9.Text; --query inlezen
try
EnableControls; //moet voor active anders wordt de dbgrid niet ververst
Frm_Main.DBGrid_Model_Woningen.Color := clWindow;
Frm_main.Logging.WriteToLogAndFlush('11');
Active:=True;
Frm_main.Logging.WriteToLogAndFlush('12');
Frm_Main.DBGrid_Woning.DataSource := DataModule_Woning.Ds_Woningen; <--HIER treedt de out of memory melding op
Frm_main.Logging.WriteToLogAndFlush('13');
Frm_Main.DBNavigator_Woning.DataSource := DataModule_Woning.Ds_Woningen;
...
except
on E: Exception do
begin
Knopafhandeling_Aan;
Frm_Main.Visueel.KnopKleur(Actie, True);
Frm_Main.StatusbarText_0 := 'De query "'+ trim(Naam) + '" is mislukt.';
Frm_Main.Logging.WriteToLog('FOUT | Uitvoeren query "' + trim(Naam)+ '" is mislukt.');
Frm_Main.Logging.WriteToLog('FOUT | Een onverwachte uitzondering heeft plaats gevonden:');
Frm_Main.Logging.WriteToLog('FOUT | ' + E.Message);
Frm_Main.Logging.WriteToLogAndFlush('FOUT | ');
end;
end;
Log file:
Code:
20:32:11 --> | : 11
20:32:11 --> | :
20:32:11 --> | : 12
20:32:11 --> | :
20:33:01 --> | : FOUT | Uitvoeren query "Stap 9" is mislukt.
20:33:01 --> | : FOUT | Een onverwachte uitzondering heeft plaats gevonden:
20:33:01 --> | : FOUT | Out of memory
20:33:01 --> | : FOUT |
20:33:01 --> | : 20
Bookmarks