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;