Langsam komme ich mit diesn gazen
BDE/
ADO-Fragen durcheinander (ich verwende keins von beiden), es muss ".Value" anstatt ".AsString" heißen.
Delphi-Quellcode:
...
// Wenn SetStr beschrieben wurde -> baue UPDATE-Statement...
If SetStr <> '
'
Then
Begin
With ADOQuery1
Do
Begin
SQL.Text :=
'
Update dbo_VFL_VERZ_TEMP t' + #10 +
'
Set ' + SetStr + #10 +
'
WHERE t.Bearbeiter = :i_Versuch';
Prepared := True;
// Werte der Paramter :i_F(1 - ...)
For i := 0
To pred(SetCount)
Do
Parameters.ParamByName('
i_F' + IntToStr(i)).Value := SetVals[i];
// Hier
Parameters.ParamByName('
i_Versuch').Value := TB_Bearbeiter.Text;
// Ausführen
ExecSQL;
// Dieses "End;" stand hinter den Edit/Label-Zeugs, es sollte aber hier den With-Block schließen
End;
label27.Caption := tb_Bearbeiter.Text;
...