1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

adoq1: TADOQuery;
adoq2: TADOQuery;
adoq3: TADOQuery;

procedure oncreate
begin
  adoq1.close;
  adoq1.sql.clear;
  adoq1.sql.append('select * from tabelle1');
  adoq1.execsql;
  adoq2.close;
  adoq2.sql.clear;
  adoq2.sql.append('select * from tabelle2');
  adoq2.execsql;
  adoq3.close;
  adoq3.sql.clear;
  adoq3.sql.append('update tabelle1');
  adoq3.execsql;
  adoq1.close;
  adoq1.sql.clear;
  adoq1.sql.append('select * from tabelle1');
  adoq1.execsql;
end;

procedure appexception(sender: tobject; e: exception);
begin
  if e.classname=EOLEException
    then
      begin
        //hier soll nun herausgefunden werden, welche ADOQuery die Exception ausgelöst hat
        //anschließend soll deren SQL-Statement zur späteren Fehleranalyse in einer Textdatei gespeichert werden
      end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function DoSQL(aAdoCon : TAdoConnection; aSQL : string) : boolean;
var
  aQuery : TAdoQuery;
begin
  result := false;
  try
    aAdoQuery := TAdoQuery.Create(NIL);
    try
      aAdoQuery.Connection := aAdoCon;
      aAdoQuery.SQL.Add(aSQL);
      result := true;
    except
      on e : exception do begin
        // Hier Fehlerauswertung
      
      end;
    end;
  finally
    aAdoQuery.Close();
    FreeAndNil(aAdoQuery);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

//Fehlermeldung ist eine Prozedur zum Speichern einer Fehlermeldung in eine Logdatei

procedure ADOQExecSQL(ADOQ: TADOQuery);
var
  i: integer;
begin
  try
    ADOQ.ExecSQL;
  except
    Fehlermeldung('Es ist ein Fehler bei der Ausführung einer SQL-Anweisung aufgetreten.');
    for i:=0 to ADOQ.SQL.Count-1 do
      Fehlermeldung(ADOQ.Name+': '+ADOQ.SQL:[i]);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

//Fehlermeldung ist eine Prozedur zum Speichern einer Fehlermeldung in eine Logdatei

procedure ADOQExecSQL(ADOQ: TADOQuery);
var
  i: integer;
begin
  try
    ADOQ.ExecSQL;
  except
    on e : exception do
    begin
      Fehlermeldung('Es ist folgender Fehler bei der Ausführung einer SQL-Anweisung aufgetreten:'+e.Message);
      for i:=0 to ADOQ.SQL.Count-1 do
        Fehlermeldung(ADOQ.Name+': '+ADOQ.SQL:[i]);
    end;
  end;
end;