Realizar un Update en delphi con un query concondicion desde otro query!!!

[rotsen26]

Buenas tardes, como dice en el título, necesito hacer un update en un query con la condicion agarrandolo de otro query, si alguien puede ayudareme se lo agradecería mucho...

[ecfisa]

Empezado por rotsen26

Buenas tardes, como dice en el título, necesito hacer un update en un query con la condicion agarrandolo de otro query, si alguien puede ayudareme se lo agradecería mucho...

Hola rotsen26.

Por favor reformula tu pregunta de forma mas detallada, realmente no se entiende el contenido.

Saludos.

[rotsen26]

Código Delphi [-]
  with qry_consumo do
               begin
                 close;
                 sql.text:=' update det_consumo set estatus='+Quotedstr('DEV')+
                           ' where pk_consumo = pk_consumo ';
                  ExecSQL;

les pongo el codigo que estoy utilizando en la consulta... En el

Código Delphi [-]
where pk_consumo = pk_consumo

el pk_consumo lo quero igualar con el pk_consumo pero este está en un query... y es por eso que no se como hacer referencia a ese campo dentro del query...

[ecfisa]

Hola rotsen26.

Si no te entiendo mal, creo que sería:

Código Delphi [-]
  with qry_consumo do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE DET_CONSUMO SET ESTATUS = :PSTATUS');
    SQL.Add('WHERE PK_CONSUMO = :PCONSUMO');
    ParamByName('PSTATUS').AsString := 'DEV';
    ParamByName('PCONSUMO').Value := El_Otro_Qry.FieldByName('PK_CONSUMO').Value;
    ExecSQL;
  end;

Saludos.

[rotsen26]

Código Delphi [-]
  with qry_consumo do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE DET_CONSUMO SET ESTATUS = :PSTATUS');
    SQL.Add('WHERE PK_CONSUMO = :PCONSUMO');
    ParamByName('PSTATUS').AsString := 'DEV';  //marca error en el AsString
    ParamByName('PCONSUMO').Value := El_Otro_Qry.FieldByName('PK_CONSUMO').Value;
    ExecSQL;
  end;

El error dice 'TParameter' deos not contain a member named 'AsString'

Saludos!!!

Te comente el error...

[ecfisa]

Hola rotsen26.

Empezado por rotsen26

...
El error dice 'TParameter' deos not contain a member named 'AsString'

Saludos!!!

Te comente el error...

Es posible... el código que te puse es orientativo, no todos los componentes poseen las mismas propiedades y métodos. Algunos, como por ejemplo TADOQuery, no admiten la propiedad AsString en los parámetros. Y entre los detalles que has omitido está el tipo de componentes con los que te conectas (también que SGBD estas usando).

Intentá de este modo:

Código Delphi [-]
ParamByName('PSTATUS').Value:= 'DEV';

Si no funciona, comentanos con que componentes y SGBD estas trabajando

Prácticamente no hay límites en los caracteres que podes incluir en un mensaje, acostumbrate a detallar minuciosamente el problema y el ambiente en que se produce. Cuanta mas información brindes sobre la situación mas rápidamente se solucionará.

Saludos.