Hallo!
Entwickle mit Delphi5 Ent., Update #1, ADOUpd 1+2.
Kriege eine Fehlermeldung, wenn ich einen Datensatz, der EOF oder BOF ist löschen möchte. Das Recordset ist mit LoadFromFile gelesen wurden und weist keine Connection (=nil) auf.
Folgender Quelltext klappt bei allen Datensätzen, die nicht EOF | BOF sind; dsWaren und dsImportWaren sind ADODataSets.
<pre>
begin
w1 := data.getImpWare;
if (w1.Nipc<>-1)
then begin
w2 := data.findWareByNIPC(w1.Nipc);
if (w2.Nipc<>w1.Nipc)
then data.dsWaren.Append; //Neu
w1.Freigegeben := true;
data.setWare(w1);
data.dsWaren.Post;
data.dsImportWare.Edit;
data.dsImportWare.DeleteRecords(arCurrent);
//Bei DeleteRecords tritt der Fehler auf
data.dsImportWare.Post
end
end;
</pre>
BTW: Gibt es eigentlich eine Möglichkeit, wie bei VisualStudio.NET automatisch typisierte Datensets zu erstellen? Das ist wirklich sehr komfortabel und produktiv :-)
Vielen Dank für Eure Hilfe im voraus. Im Buch "ADO mit Delphi" von Herrn Kosch habe ich auch nichts gefunden.
Gruß, Nils
Entwickle mit Delphi5 Ent., Update #1, ADOUpd 1+2.
Kriege eine Fehlermeldung, wenn ich einen Datensatz, der EOF oder BOF ist löschen möchte. Das Recordset ist mit LoadFromFile gelesen wurden und weist keine Connection (=nil) auf.
Folgender Quelltext klappt bei allen Datensätzen, die nicht EOF | BOF sind; dsWaren und dsImportWaren sind ADODataSets.
<pre>
begin
w1 := data.getImpWare;
if (w1.Nipc<>-1)
then begin
w2 := data.findWareByNIPC(w1.Nipc);
if (w2.Nipc<>w1.Nipc)
then data.dsWaren.Append; //Neu
w1.Freigegeben := true;
data.setWare(w1);
data.dsWaren.Post;
data.dsImportWare.Edit;
data.dsImportWare.DeleteRecords(arCurrent);
//Bei DeleteRecords tritt der Fehler auf
data.dsImportWare.Post
end
end;
</pre>
BTW: Gibt es eigentlich eine Möglichkeit, wie bei VisualStudio.NET automatisch typisierte Datensets zu erstellen? Das ist wirklich sehr komfortabel und produktiv :-)
Vielen Dank für Eure Hilfe im voraus. Im Buch "ADO mit Delphi" von Herrn Kosch habe ich auch nichts gefunden.
Gruß, Nils
Comment