функция обновления записи

[Droid]

подскажите плз народ как можно сделать так, чтобы заменить параметр на компонент dm.ADOQ_PACid_p.Value ?

function TFD_DOL.reconect(s: string): variant;
begin
DM.ADOQ_DL.Close;
dm.ADOQ_DL.SQL.Clear;
dm.ADOQ_DL.SQL.Add('+S+');
dm.ADOQ_DL.open;
result:=s;
end;

reconect('SELECT * FROM p_i_dolgnost pid LEFT OUTER JOIN p pt ON pid.id_p=pt.id_p INNER JOIN dolgnost d ON pid.id_dolgnosti=d.id_dolgnosti 
WHERE pid.id_p='+dm.ADOQ_PACid_p.Value+';');

inttostr не катит

[soleil@mmc]

боюсь что это здесь лишнее

dm.ADOQ_DL.SQL.Add('+S+');

а здесь ни к чему

WHERE pid.id_p='+dm.ADOQ_PACid_p.Value+';');

а чтобы все заработало, нужно писать хотя бы так

WHERE pid.id_p='+dm.ADOQ_PACid_p.AsInteger);

только что мешает добавить 2й параметр - айдишник и подставлять его как параметр?!

function TFD_DOL.reconect(s: string; pKey:integer): variant;
begin
DM.ADOQ_DL.Close;
dm.ADOQ_DL.SQL.Clear;
dm.ADOQ_DL.SQL.Add(S);
dm.ADOQ_DL.SQL.Prepare;
dm.ADOQ_DL.SQL.Parameters.ParamByName('pKey').Value := pKey;
dm.ADOQ_DL.open;
result:=s;
end;

reconect('SELECT * FROM p_i_dolgnost pid LEFT OUTER JOIN p pt ON pid.id_p=pt.id_p INNER JOIN dolgnost d ON pid.id_dolgnosti=d.id_dolgnosti 
WHERE pid.id_p= :pKey', dm.ADOQ_PACid_p.Value);

[Droid]

Сообщение от soleil@mmc

боюсь что это здесь лишнее

dm.ADOQ_DL.SQL.Add('+S+');

а здесь ни к чему

WHERE pid.id_p='+dm.ADOQ_PACid_p.Value+';');

а чтобы все заработало, нужно писать хотя бы так

WHERE pid.id_p='+dm.ADOQ_PACid_p.AsInteger);

только что мешает добавить 2й параметр - айдишник и подставлять его как параметр?!

function TFD_DOL.reconect(s: string; pKey:integer): variant;
begin
DM.ADOQ_DL.Close;
dm.ADOQ_DL.SQL.Clear;
dm.ADOQ_DL.SQL.Add(S);
dm.ADOQ_DL.SQL.Prepare;
dm.ADOQ_DL.SQL.Parameters.ParamByName('pKey').Value := pKey;
dm.ADOQ_DL.open;
result:=s;
end;

reconect('SELECT * FROM p_i_dolgnost pid LEFT OUTER JOIN p pt ON pid.id_p=pt.id_p INNER JOIN dolgnost d ON pid.id_dolgnosti=d.id_dolgnosti 
WHERE pid.id_p= :pKey', dm.ADOQ_PACid_p.Value);

то что ты написал проверил все и по нескольку раз и не катит

function TFD_DOL.reconect(s: string): variant;
begin
result:=s;
DM.ADOQ_DL.Close;
dm.ADOQ_DL.SQL.Clear;
dm.ADOQ_DL.SQL.Add(S);
dm.adoq_dl.parameters.parambyname('idp').value:=dm.ADOQ_PACid_p.Value;
dm.ADOQ_DL.open;
end;

reconect('SELECT * FROM p_i_dolgnost pid LEFT OUTER JOIN p pt ON pid.id_p=pt.id_p INNER JOIN dolgnost d ON pid.id_dolgnosti=d.id_dolgnosti 
WHERE pid.id_p=:idp;');

а так все работает )