ADODataset Insert Update

[gro]

Erstmals besten Dank für die rasche Antwort.

Zu 1: Der obige Codeteil ist reduziert auf ein absolutes Minimum. Die einzelnen Inserts/Updates befinden sich innerhalb einer Transaktion. (ADOTargetConnection.BeginTrans und alle 1000 Records ein ADOTargetConnection.CommitTrans) Alle 1000 Records ein Commit ist/war eine Anforderung des Kunden.


Zu 2: Mit dem Dataset "TargetUpdate" wird genau das gemacht. Im Commandtext steht bereits ein SQL wobei sich die WHERE Bedingung aus den Infdexfeldern zusammensetzt.

Dazu kommt noch ein kleines (für mich grosses) Problem: Wenn ich statt eins Datasets einen ADOQuery verwende kann ich in den Blobfelder keine Werte setzen. Sobald ich dieses versuche bekomme ich die Fehlermeldung "Invalid conversation" ???

Dies funktioniert mit BLOB/CLOB Feldern nicht!

Delphi-Quellcode:

  ADODataSet1.First;
  ADOQuery1.SQL.Clear;
  szSql := 'UPDATE schema.table SET ' +
           'FILEDATA = :FILEDATA, DESCRIPTION = :DESCRIPTION ' +
           'WHERE OBJECID = :OBJECTID';

  ADOQuery1.SQL.Add (szSql);
  ADOQuery1.Prepared := TRUE;

  while (ADODataSet1.Eof = FALSE) do begin
    for iCount := 0 to ADODataSet1.FieldCount - 1 do begin
      szField := ADODataSet1.Fields[iCount].FieldName;

      aField := ADOQuery1.Parameters.FindParam(szField);
      if (aField <> nil) then begin
        if (ADODataSet1.Fields[iCount].IsNull = FALSE) then begin
          ADOQuery1.Parameters.ParamByName(szField).Value :=
              ADODataSet1.Fields[iCount].Value;
        end;
      end;
    end;
    ADOQuery1.ExecSQL;
    ADODataSet1.Next;
  end;

Zu 3: Auf allen Tagettabellen sind Indizes vorhanden

-----------------------------------------------------------------------------

Was mir nicht eingeht, ist dass nach einem .INSERT und anschl. .POST die Targettabelle den Cursor auf der richtigen Position stehen hat (und dies auch nach der EXCEPTION DUPLICATE ROWS -803) aber kein Update auf diesen Record danach mehr möglich ist. Wenn ich dieses irgendwie umgehen könnte wäre mein Problem gelöst.

Folgendes könnte ich mir vorstellen. Aber wie?

Delphi-Quellcode:

    // insert versuchen
    aDataSet.Insert;

    // werte eintragen
    // ...

    aDataSet.Post;
  EXCEPT
    on e: exception do begin
      // ??? Was muss man hier machen das das funktioniert???
      aDataSet.Edit;

      // ev. werte nochmals eintragen
      // ...

      aDataSet.Post;
  END;

MfG Pit