Fehler bei ADOTable.Post

[Detlef]

Hallo Delphianer,
wenn ich in einem Zyklus mehrere Sätze in eine MDB-Tabelle schreibe
bekomme ich beim Post des 2. Satzes die Fehlermeldung:

'Fehler bei einem aus mehreren Schritten bestehenden Vorgang. Prüfen
Sie die einzelnen Statuswerte.'
Der Code sieht etwa so aus:

Delphi-Quellcode:

while not adodataset1.Eof do begin
      buchform.adotable1.append;
      buchform.ADOTable1['KNR']:=adodataset1['KNR'];
      tempbetrag:=adodataset1['Betrag']*100;
      strintdm(tempbetrag,stempbetrag,0);
      buchform.ADOTable1['Betrag']:=stempbetrag;
      buchform.ADOTable1['Empf']:=adodataset1['Empf'];
      buchform.ADOTable1['Text']:=adodataset1['Text'];
      buchform.ADOTable1.Post;
      adodataset1.next;
   end;

Die Tabellendefinition:

Delphi-Quellcode:

object ADODataSet1KNR: TStringField
  DisplayWidth = 40
  FieldName = 'KNR'
  Size = 40
end
object ADODataSet1Betrag: TCurrencyField
  FieldName = 'Betrag'
end
object ADODataSet1Empf: TWideStringField
  FieldName = 'Empf'
  Size = 50
end
object ADODataSet1Text: TWideStringField
  FieldName = 'Text'
  Size = 50

end

Der erste Satz wird ordnungsgemäß gespeichert. Erst ab dem 2.
passierts dann.

Wer hat einen Tip ?

Gruß Detlef

[edit=MrSpock]Code Tags eingefügt. Mfg, MrSpock[/edit]

[Matt]

Die Fehlermeldung kann ziemlich viel bedeuten, ich kenne Sie im Zusammenhang mit ASP und ADO und ich HASSE sie, weil so nichts aussagend. Ich würde ADO veranlassen dir eine konkrete Fehlermeldung zu generieren. Habe hier im Forum diesen Beitrag gefunden. Würde mal versuchen so den Fehler genauer zu betiteln.

ADO-Fehler (bestehend aus mehreren Schritten) anzeigen

[Detlef]

Hallo Matt,
habe das nun gemacht und bekomme Zusatzinfo

#-2147217887 Microsoft Cursor Engine.

Wo finde ich dazu etwas?

Detlef

[Gollum]

Hallo,

so ganz schlau werde ich aus Deinem Code nicht. Was mir aber aufgefallen ist, dass Du das Dataset in einer Schleife durchläufst, die Daten aber mit Append in die Tabelle schreibst???? Noch dazu, was soll das Dataset.Next am Schluß???

Lasse einmal die While-Schleife und das Next weg, dann sollte es gehen. Ansonsten würde ich Dir eine Query empfehlen und die Daten mit "INSERT INTO" in die Tabelle schreiben.

[Matt]

Hast Du eventuell bei deiner ADO-Connection etwas verändert bei "CursorLocation" z.B.?
Steht die vielleicht auf "clUseServer"?

Nimm mal zum testen alle Default-Werte der Connection!

Gruß Matt

[Detlef]

Hallo Gollum,
ich habe ein Dataset, dessen Sätze ich in die TABLE übernehmen möchte.
Deshalb die Schleife und das DATASET.NEXT. Normalerweise mache ich solche Dinge (erfassen und datensatzweise in eine TABLE übernehemen)
ja auch und es klappt. Nur in diesem Fall passierts beim Post oder
beim Append des nächsten Satzes in der Schleife. Ich habe schon auf
AUTOINC-Feld getippt oder auf das Betragsfeld im BCD-Format. Aber
richtig eingrenzen kann ich es nicht.
Hallo Matt,
ich benutze CONNECTIONSTRING mit
CURSOR-Location=clclient
Cursortype=ctkeyset.
Habe nichts an den Standards geändert.

Ich bin momentan

Rudi Ratlos :wall:

Detlef

[mikhal]

Du verwendest als Feldnamen einen Bezeichner ('TEXT'). Eventuell hängt sich die Jet an dieser Stelle auf.

Text ist ein Feldtyp in der MS Jet.

Grüße
Mikhal

[Detlef]

Ist leider mit anderem Feldnamen auch nicht besser.
Schade (hatte so gehofft)
Detlef

[Gollum]

Hallo,

ich habe mir Deinen Code noch einmal angeschaut und dabei ist mir aufgefallen, dass Du in Deinem Beispiel die Felder und nicht die Feldinhalte zuweist. Vielleicht hilft es, wenn Du Deinen Code folgendermassen umänderst:

Delphi-Quellcode:

while not adodataset1.Eof do 
begin 
  buchform.adotable1.append; 
  buchform.ADOTable1['KNR'].AsString:=adodataset1['KNR'].AsString; 
  tempbetrag:=adodataset1['Betrag'].AsFloat*100; 
  strintdm(tempbetrag,stempbetrag,0); 
  buchform.ADOTable1['Betrag'].AsFloat:=stempbetrag; 
  buchform.ADOTable1['Empf'].AsString:=adodataset1['Empf'].AsString; 
  buchform.ADOTable1['Text'].AsString:=adodataset1['Text'].AsString; 
  buchform.ADOTable1.Post; 
  adodataset1.next; 
end;

[edit]
Da ich nicht sicher weiss, ob obiges Beispiel funktioniert, könntest Du noch evtl. folgendes probieren:

Delphi-Quellcode:

  ...
  buchform.ADOTable1.FieldByName('KNR').AsString:=adodataset1.FieldByName('KNR').AsString; 
  ....

[/edit]

[Detlef]

Hallo Gollum,

Dein letztes Beispiel hat dahingehend geholfen, daß es nun erst beim
dritten Satz bumst. Das ist ja interessant!
Kann so etwas auch mit dem Autoincrementfeld etwas zu tun haben?
Ich stehe so richtig auf dem Schlauch!

Detlef