Params.ParamByName

[fapsons]

Hallo Leute,

habe das Problem, dass ich bei unten aufgeführter Procedure immer die Fehlermeldung bekomme, dass die einzelnen Parameter nicht gefunden wurden.
Lege ich die falsch fest?
Kann ich nicht die Schreibweise :ZE, :BDE, usw. benutzen und Sie nachher mit Params.ParamByName('ZE').Value definieren?

Gruß,
-fapsons--

Delphi-Quellcode:

procedure Set_DB_Values;
var i :Integer;
    SQL_Line: array[1..5] of String;
    SQL_Prompt :String;
begin

 SQL_Line[1] := 'UPDATE Version v ';
 SQL_Line[2] := 'SET v.ze = :ZE, v.bde = :BDE, v.pep = :PEP, v.zk = :ZK, v.av = :AV, v.webze = :WEBZE, v.antrv = :ANTRV,';
 SQL_Line[3] := 'v.sprachv = :SPRACHV, v.anz_client = :nCLIENT, v.pc_ddp = :PCDDP, v.server_name = :SERVERNAM,';
 SQL_Line[4] := 'v.ma_anz = :MAANZ';
 SQL_Line[3] := 'WHERE (v.vsid =''' + inttostr(reg.Versions_ID) + ''')';

 for i := 1 to length(SQL_Line) do SQL_Prompt := SQL_Prompt + SQL_Line[i];


 with D_DataModule.DataQuery do
 begin
  SQL.Clear;
  SQL.Text := SQL_Prompt;
  Params.ParamByName('ZE').Value := bool_to_JN(reg.ZE);
  Params.ParamByName('BDE').Value := bool_to_JN(reg.BDE);
  Params.ParamByName('PEP').Value := bool_to_JN(reg.PEP);
  Params.ParamByName('ZK').Value := bool_to_JN(reg.ZK);
  Params.ParamByName('AV').Value := bool_to_JN(reg.AV);
  Params.ParamByName('WEBZE').Value := bool_to_JN(reg.WebZE);
  Params.ParamByName('ANTRV').Value := bool_to_JN(reg.AntragsV);
  Params.ParamByName('SPRACHV').Value := inttostr(reg.Sprachversion);
  Params.ParamByName('nCLIENT').Value := inttostr(reg.nClients);
  Params.ParamByName('PCDDP').Value := reg.PC_DDP;
  Params.ParamByName('SERVERNAM').Value := reg.ServerName;
  Params.ParamByName('MAANZ').Value := inttostr(reg.nMitarbeiter);
  Params.ParamByName('VERSKEY').Value := reg.VersionKey;
  Params.ParamByName('VERSID').Value := inttostr(reg.Versions_ID);
  Params.ParamByName('FILID').Value := inttostr(reg.Filial_ID);
  ExecSQL;
 end;
end;