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;
Gruss
EL