EVariantInvalidOpError - ungültigeVariantenoperation

[emsländer]

Salvete,

ich stehe mal wieder wie ein Ochs vorm Berg:

Table Notizen - Spalte zu_Akte bigint not null - primary key
- Spalte inhalt nvarchar(max) - null

Beim Versuch des Insert kommt eine Fehlermeldung: Im Projekt .... ist eine Exception der Klasse EVariantInvalidOpError mit der Meldung 'ungültigeVariantenoperation' aufgetreten.

Delphi-Quellcode:

const _querymemo : string = 'Select * from Notizen where zu_Akte =';

.
.
.
.

function speicher_notizen : boolean;
  var _stmp : string;
  _query : Tadoquery;
begin
  result := false;
  _stmp := _querymemo + FrmMain.edt_aktennr.Text;
  _query := Tadoquery.Create(nil);
  with _query do begin
    connection := FrmMain.ADOConnMUS;
    try
      _query.sql.Text := _stmp;
      _query.open;
      if eof then begin
        insert;
        FieldValues['zu_Akte'].values := FrmMain.edt_aktennr.Text;    - // Hier kommt die Fehlermeldung
        FieldValues['inhalt'].values  := FrmNotizen.memotext.Text;
        post;
      end else begin
        edit;
        FieldValues['inhalt'].values  := FrmNotizen.memotext.Text;
        post;
      end;
    finally
      freeandnil(_query);
      result := true;
    end;
  end;
end;

:gruebel: :gruebel: :gruebel:

Gruss

EL

[sx2008]

Delphi-Quellcode:

FieldValues['zu_Akte'] := FrmMain.edt_aktennr.Text;

FieldValues['zu_Akte'] stellt schon ein Variant dar.
Wenn du daran noch .values anhängst, "denkt" Delphi es handelt sich um einen Funktionsaufruf,
der natürlich nur dann klappen kann, wenn der Variantdatentyp = IDispatch ist.
Ist es aber in dem Fall nicht -> ungültige Variantenoperation.