Das würde dann so aussehen????
Delphi-Quellcode:
procedure Tfrm_Testformular.DBGrid1DblClick(Sender: TObject);
var
currentID: Integer;
begin
with dm_Nails4You_Artikel
do
begin
currentID := AdoQuery_Artikel.FieldValues['
id'];
with ADOQuery_Artikel
do
Begin
// currentID := AdoQuery_Artikel.FieldValues['id'];
ShowMessage('
CurrentID: ' + IntToStr(CurrentID));
SQL.Text := '
INSERT INTO Preisliste(ID_Artikel, Bezeichnung) VALUES( :ID, :Bezeichnung)';
Parameters.ParseSQL(
SQL.Text, true);
Parameters.ParamValues['
ID'] := FieldValues['
id'];
Parameters.ParamValues['
Bezeichnung'] := FieldValues['
Bezeichnung'];
ExecSQL;
End;
end;
end;
Hier habe ich folgendes Resultat:
ShowMessage('CurrentID: ' + IntToStr(CurrentID)); zeigt immer 'CurrentID: 1' an, egal ob die Definition innerhalb oder ausserhalb der With-Anweisung liegt.
Dann habe ich folgende Meldung:
Ein Parameterobjekt ist nicht ordnungsgemäß definiert. Inkonsistente oder unvollständige Informationen wurden angegeben.
Habe ich hier etwas vergessen??