Umgang mit Query's

[mikhal]

Dein Fehler ist bereits hier begründet:

Zitat:

procedure TForm1.UniQuery4BeforeInsert(DataSet: TDataSet);
begin
UniQuery4.ParamByName('ticket_id').AsInteger:=UniQ uery1.FieldByName('ticket_id').AsInteger;
UniQuery4.ParamByName('user').AsInteger:=2;
UniQuery4.ParamByName('datum').AsDateTime:=now;
UniQuery4.ParamByName('kommentar').AsString:=DBAdv Memo2.Lines.Text;
end;

Ich verwende normalerweise das Event OnNewRecord, aber es sollte auch in dem gewählten Event funktionieren.

Dann verwende ich den Variablennamen DataSet, weil es mir einfach zu lästig ist, über den Query-Namen nachzudenken...

Aber der Fehler ist dein Versuch, über die Parameterliste zu gehen. Gehe über die Feldnamen und weise diesen die Werte zu...

Code:

procedure TForm1.UniQuery4BeforeInsert(DataSet: TDataSet);
begin
    UniQuery4.FieldByName('ticket_id').AsInteger:=UniQuery1.FieldByName('ticket_id').AsInteger;
    UniQuery4.FieldByName('user').AsInteger:=2;
    UniQuery4.FieldByName('datum').AsDateTime:=now;
    UniQuery4.FieldByName('kommentar').AsString:=DBAdvMemo2.Lines.Text;

Grüße
Mikhal