Hallo Perlsau,
habe ich da eben etwas verpasst?
Das Programm schreibe ich für meine Arbeit, das ist richtig.
Aber ich habe nirgends gelesen, dass man sich deshalb hier nicht helfen lassen darf...
Und nach dem Quellcode gefragt hatte bisher auch noch niemand.
Ich habe den Quellcode nicht gepostet, weil er eben doch etwas umfangreicher ist.
Ich weiß nicht, wo ich da anfangen soll und wo aufhören.
Wie ich ja bereits geschrieben habe, nutze ich die try-except-Blöcke eben nicht, weil mir das zu viel wird.
Ich gebe aber gern ein Beispiel.
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 end; end; |
Hat jemand Ideen wie man die entsprechende ADOQuery identifiziert?