Wenn du in alle Einträge, bei denen "Versuchsfl_Bezeichnung = Versuch" ist, ändern willst:
Delphi-Quellcode:
Var
ProcessedRecs : Integer;
Begin
...
With ADOQuery1
Do
Begin
SQL.Text :=
'
Update dbo_Versuchsflaechen_ST t' + #10 +
'
Set t.Vesuchs_ID = :i_VersFlID' + #10 +
'
WHERE t.Versuchsfl_Bezeichnung = :i_Versuch';
prepared := True;
Parameters.ParamByName('
i_VersFlID').Value := VersFlID;
Parameters.ParamByName('
i_Versuch').Value := Versuch;
ProcessedRecs := ExecSQL;
End;
MessageDlg(IntToStr(ProcessedRecs) + '
records updated ...', mtInformation, [mbOK], 0);
...
End;