Da fehlen mir jetzt mal wieder so ein bißchen die Kenntnisse.
ich hab mal sowas gemacht, allerdings per Copy and Paste hier aus dem Forum.
Delphi-Quellcode:
begin
QryMB256PLUS.SQL.Clear;
QryMB256PLUS.SQL.Text := '
SELECT FIRST 4000 * FROM MB100 ORDER BY ID DESC';
if not QryMB256PLUS.Active
then begin
iError := 0;
Repeat
Try
QryMB256PLUS.Open;
Except
on e :
Exception Do begin
sMessage := e.
Message;
Inc(iError);
Application.ProcessMessages;
Sleep(1000);
end;
end;
until QryMB256PLUS.Active
or (iError > 5);
// <- bitte ausprobieren, ob 5 reicht oder eventuell höher sein muss.
if iError > 5
then begin
ShowMessage('
Die Datenbank konnte mit ' + IntToStr(iError) + '
Versuchen nicht geöffnet werden.'
+ #13 + '
Die letzte Fehlermeldung lautete: ' + sMessage);
Application.Terminate;
// <- oder sonstige Fehlerbehandlung.
end;
end;
wie müsste ich das den hier machen. Oder besser, wie mache ich das im allgemeinen. Sollte das ja dann wahrscheinlich immer nach einem INSERT oder UPDATE machen. Evtl. auch bei SELECT.
Gruß Jens