Modificar registro con Query
 

Hola a todos:
Tengo una gran duda que no se como darle solución y es por eso que me encuentro aki. Veran, yo tengo una tabla paradox 7 con x numeros de registros. Ahora bien, como yo puedo modificar esos registros con un Query? Yo lo que heco es poner un boton con 1 edit y un boton. EN el boton le puse la sgte sentencia.

Código Delphi [-]
  
With FrmAlmacen.QFiltrar do
    begin
      Close;
       Sql.Text:='UPDATE Almacen.db SET Ubicacion:valor, Observaciones: valor1';
       Params[0].AsString:=EdtUbicacion.Text;
       Params[1].AsString:=EdtObservaciones.Text;
      Open;
    end;

Al hacer esto me da un error que dice: "Invalid use of keyword. Token: ?".
No se a que se debe. Por favor si saben como ayudarme espero lo hagan.
Gracias de antemano.

Hola,

La consulta SQL podría ser tal que este modo:

Código SQL [-]
UPDATE Almacen.db SET Ubicacion = 'valor', Observaciones = 'valor1'

Pero, piensa que lo normal es acotar la actualización tal que:

Código SQL [-]
UPDATE Almacen.db SET Ubicacion = 'valor', Observaciones = 'valor1' WHERE CampoClave = N;

Puesto que de otro modo actualizarías todos los registros... y tal vez no sea eso lo que quieras.

Hola...

Para ejecutar este tipo de SQL debes usar el método ExecSQL de TQuery...

Ahora, tu query está mal formada:

Código Delphi [-]
with FrmAlmacen.QFiltrar do
begin
  Close;
  Sql.Text:='UPDATE Almacen.db SET Ubicacion = :valor, Observaciones = :valor1';
  Params[0].AsString:=EdtUbicacion.Text;
  Params[1].AsString:=EdtObservaciones.Text;
  ExecSQL
end

Pero si te fijas bien, ese update lo que va a hacer es modificarte todos los registros de la tabla con los valores que le estás enviando. Para actualizar solo un registro necesitas especificarlo mediante la cláusula WHERE. Puedes hacer algo así:

Código Delphi [-]
Sql.Text:='UPDATE Almacen.db SET Ubicacion = :valor, Observaciones = :valor1 where Id = :Id';
// ...
Params[2].AsString := 'Identificador de campo';

Saludos...

Hola,

Se debe a que en la sentencia Sql, falta la asignación de los parámetros...

Código SQL [-]
UPDATE Almacen.db 
SET Ubicacion = :valor, 
Observaciones = :valor1

Uhm, ese Update actualiza todos los registros, tal vez deba especificarle un Where para que actualice los registros apropiados.

changos... llegué de tercero :(

Hola,

No te preocupes TOPX, los terceros serán los primeros, lo dice un libro mu famoso. ;)

Bueno, gracias, dec :D

Gracias por contestar:
Ya he resuelto el problema. 1000 gracias.
Suerte.

Hey chicos:
Disculpen que los vuelva a molestar. Hice lo que me digeron, o sea esto:

Código Delphi [-]
  
With FrmAlmacen.QFiltrar do
    begin
      Close;
       Sql.Text:='UPDATE Almacen.db SET Ubicacion :valor, Observaciones :valor1 WHERE ID :Identificador';
       Params[0].AsString:=EdtUbicacion.Text;
       Params[1].AsString:=EdtObservaciones.Text;
       Params[2].AsInteger:=FrmAlmacen.Identificador;
      ExecSQL;
    end;

Esto esta perfecto, pero me da el mismo error. Echenle un vistazo al codigo que les puse arriba e indiquenme donde esta el error. Que es lo que está mal?
Gracias y disculpen la molestia

Hola Alexandro,
Te estás comiendo los iguales antes de los parámetros. Como que estás con un poquito de hambre:D

Código Delphi [-]
'campo = :El_parametro'

Saludos,

Gracias Delphius. La verdad es que no me daba cuenta. Y por cierto...no tengo hambre :D.
Suerte y sigue así.
Hasta pronto