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

[ecfisa]

Hola rotsen26.

Esta es tu sentencia SQL:

Código SQL [-]
UPDATE DET_CONSUMO dc, det_alm_art daa 
SET dc.ESTATUS = :PSTATUS, 
    dc.comentario=: DBMemo1,  /* Error: Aquí hay un espacio entre ':' y DBDemo1  */
   daa.existencia=:exi
WHERE PK_CONSUMO = :PCONSUMO

Según entiendo, estas intentando modificar múltiples tablas con [UPDATE] mediante esa sentencia SQL.
Al menos en los [SGBD] que conozco y hasta donde sé, no es posible.

Por otro lado todavia sigues sin mencionar cuál SGBD estas utilizando... Infiero que los componentes que utilizas deben ser ADO por el uso de la propiedad Parameters.

Es por eso que insistimos en la importancia de brindar la mayor información posible !!!

Saludos.

[rotsen26]

Empezado por ecfisa

Hola rotsen26.

Esta es tu sentencia SQL:

Código SQL [-]
UPDATE DET_CONSUMO dc, det_alm_art daa 
SET dc.ESTATUS = :PSTATUS, 
    dc.comentario=: DBMemo1,  /* Error: Aquí hay un espacio entre ':' y DBDemo1  */
   daa.existencia=:exi
WHERE PK_CONSUMO = :PCONSUMO

Según entiendo, estas intentando modificar múltiples tablas con [UPDATE] mediante esa sentencia SQL.
Al menos en los [SGBD] que conozco y hasta donde sé, no es posible.

Por otro lado todavia sigues sin mencionar cuál SGBD estas utilizando... Infiero que los componentes que utilizas deben ser ADO por el uso de la propiedad Parameters.

Es por eso que insistimos en la importancia de brindar la mayor información posible !!!

Saludos.

Por si no leíste al último hice un comentario el porque había despegado los :. Y estoy utilizando MySQL. Con ADOQuery y DataSource, el problema es que solo quiero quitar un regristro de la base de datos, pero al darle clic al boton se me quitan todos los que aparecen en el GRID...

[ecfisa]

Empezado por rotsen26

.., el problema es que solo quiero quitar un regristro de la base de datos, pero al darle clic al boton se me quitan todos los que aparecen en el GRID...

Hola.

Si estas usando un sólo TADOQuery, tanto para mostrar los resultados como para realizar el update y este asociado a un DBGrid, tenes que salvar la sentencia SQL anterior y restaurarla luego de realizar la operación:

Código Delphi [-]
var
  BackSQL: string;
begin
  with qry_dev do
  begin
    BackSQL := SQL.Text;
    (*
      ...
      Aqui la operación anterior (tu código) 
      ...
    *)
    Close;
    SQL.Text:= BackSQL;
    Open;
  end;
  ...

Empezado por rotsen26

Por si no leíste al último hice un comentario el porque había despegado los :

Había leido, pero no entendí a que te referías. Te comento que existen las etiquetas [noparse]:D[/noparse] para eliminar ese efecto, ejemplo:

Código Delphi [-]
   SQL.Add('UPDATE DET_CONSUMO dc, det_alm_art daa SET dc.ESTATUS = :PSTATUS, dc.comentario=:DBMemo1,...');

Encontrarás todo acerca ellas aqui: [Etiquetas vB]


Por otro lado, según estos enlaces, parece que MySQL (motor que no conozco) si permite realizar ese tipo de sentencias:

• UPDATE multiple tables with one UPDATE statement
• MySQL, update multiple tables with one query
• How to update two tables in one statement?

Saludos.