Hallo...
ich versuch gerade mit einer TAdoQuery einen datensatz in eine tabelle einzufügen. beim execsql bekomme ich aber die fehlermeldung "optionales feature nicht implementiert". hat jemand einen tip? oder welchen weg soll ich gehen, um einen datensatz einzufügen?
danke
volkmar
<pre>
procedure InsertVorgang(qaUpdate: TADOquery; Vorgang, Bezeichnung, NotizText, Kopf_ID: String);
begin
qaUpdate.sql.Text :=
'Insert into A_Vorgang (ID_A_Kopf, Nummer, Bezeichnung, Datum, Zeit, Benutzer, NotizCode, NotizText) ' +
'Values (:ID_A_Kopf, :Nummer, :Bezeichnung, atum, :Zeit, :Benutzer, :NotizCode, :NotizText)';
qaUpdate.Prepared := true;
qaUpdate.parameters.ParamByName('ID_A_Kopf').Value := Kopf_ID;
qaUpdate.parameters.ParamByName('Nummer').Value := Vorgang;
qaUpdate.parameters.ParamByName('Bezeichnung').Val ue := Bezeichnung;
qaUpdate.parameters.ParamByName('Datum').Value := Date;
qaUpdate.parameters.ParamByName('Zeit').Value := Time;
qaUpdate.parameters.ParamByName('Benutzer').Value := '(kein)';
qaUpdate.parameters.ParamByName('NotizCode').Value := '(kein)';
qaUpdate.parameters.ParamByName('NotizText').Value := NotizText;
qaUpdate.execsql;
qaUpdate.Prepared := False;
end;
</pre>
ich versuch gerade mit einer TAdoQuery einen datensatz in eine tabelle einzufügen. beim execsql bekomme ich aber die fehlermeldung "optionales feature nicht implementiert". hat jemand einen tip? oder welchen weg soll ich gehen, um einen datensatz einzufügen?
danke
volkmar
<pre>
procedure InsertVorgang(qaUpdate: TADOquery; Vorgang, Bezeichnung, NotizText, Kopf_ID: String);
begin
qaUpdate.sql.Text :=
'Insert into A_Vorgang (ID_A_Kopf, Nummer, Bezeichnung, Datum, Zeit, Benutzer, NotizCode, NotizText) ' +
'Values (:ID_A_Kopf, :Nummer, :Bezeichnung, atum, :Zeit, :Benutzer, :NotizCode, :NotizText)';
qaUpdate.Prepared := true;
qaUpdate.parameters.ParamByName('ID_A_Kopf').Value := Kopf_ID;
qaUpdate.parameters.ParamByName('Nummer').Value := Vorgang;
qaUpdate.parameters.ParamByName('Bezeichnung').Val ue := Bezeichnung;
qaUpdate.parameters.ParamByName('Datum').Value := Date;
qaUpdate.parameters.ParamByName('Zeit').Value := Time;
qaUpdate.parameters.ParamByName('Benutzer').Value := '(kein)';
qaUpdate.parameters.ParamByName('NotizCode').Value := '(kein)';
qaUpdate.parameters.ParamByName('NotizText').Value := NotizText;
qaUpdate.execsql;
qaUpdate.Prepared := False;
end;
</pre>
Comment