Hi,
Zitat von
Spider:
sql.Close; //Wenn hier der Fehler hier ist dann mach davor noch sql.Free
das wird auf keinen Fall gehen, weil du dann das Objekt freigibst und dann nochmal drauf zugreifst. So alsob du den Apfel zerstörst, bevor du ihn isst.
Nimm zuerst mal das "begin" und das "end" nach dem Finally weg. Das ist sinnlos.
Das Problem ist vermutlich das "zeilen.free", denn später greifst du nochmal draufzu. Versuch mal folgendes nach dem finally:
Delphi-Quellcode:
finally
richedit1.Lines.Add('
Daten OK');
trans.Commit;
sql.Close;
richedit1.Lines.Add('
================================================================');
richedit1.Lines.Add(IntToStr(zeilen.count)+'
Datensätze in Datenbank geschrieben!');
richedit1.Lines.Add('
================================================================');
zeilen.Free;
end;
Chris