Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)
-   -   Error al actualizar las tablas (https://www.clubdelphi.com/foros/showthread.php?t=32176)

Nathan 29-05-2006 04:22:22

Error al actualizar las tablas
 
Hola Gente
les comento el problema que tengo, que al actualizar la tabla 'detalle_factura' lo guarda con 'null'. :confused:

Código SQL [-]
procedure TDatos.DetFactura(id, id2, obs: string;  idC: integer);
begin
  Actualizar.SQL.Clear;
  with Actualizar.SQL  do
  begin
    Add('UPDATE DetFactura SET ');
      Add('Id =:valor,');
      Actualizar.Parameters.ParamByName('valor').Value:=id;
      Add('IdFact =:valor,');
      Actualizar.Parameters.ParamByName('valor').Value:=id2;
      Add('Observaciones =:valor2');
      Actualizar.Parameters.ParamByName('valor2').Value:=obs;
    Add('WHERE IdDetFact =:valorX');
    Actualizar.Parameters.ParamByName('valorX').Value:=idC;
  end;// fin with
  Actualizar.ExecSQL;
end;

lo raro es que no genera ningun error en la compilacion y ejecucion :confused: , pero lo guarda con null y cuando lo realizo por la consola de mysql no da error, alguien me podria decir que es lo que estoy haciendo mal ?.

pd.- estoy usando en la conexcion Ado y MySql.


De antemano gracias.

Lepe 29-05-2006 09:06:06

Supongo que será errores de copiar y pegar, pero tienes 3 parámetros que se llaman "valor".

Lo normal es hacerlo así:
Código Delphi [-]
procedure TDatos.DetFactura(id, id2, obs: string;  idC: integer);
begin
  Actualizar.SQL.Clear;
  with Actualizar.SQL  do
  begin
    Add('UPDATE DetFactura SET Id =: prId, IdFact =: prIdFac, Observaciones =: prObservaciones');
    Add('WHERE IdDetFact =: prIdDetFact');
      Actualizar.Parameters.ParamByName('prId').Value:=id;
      Actualizar.Parameters.ParamByName('prIdFac').Value:=id2;
      Actualizar.Parameters.ParamByName('prObservaciones').Value:=obs;
    Actualizar.Parameters.ParamByName('prIdDetFact').Value:=idC;
  end;// fin with
  Actualizar.ExecSQL;
end;
Ya que al dar valores a cada parámetro se tiene que hacer un parser de la cadena SQL para averiguar los parámetros, así que solo lo hacemos una sola vez.

Nathan 01-06-2006 02:17:04

Gracias Lepe por tu respuesta, ya resolvi el problema que me da verguenza decirlo :p , pero bueno me di cuenta que estaba utilizando parametro 'valor' para id y id2 es ahi donde se generaba el error.




Saludos.

Lepe 01-06-2006 10:05:35

Como suele decirse, 4 ojos ven más que 2 ;), y nunca está demás ver como lo hacen otra gente, siempre se toman ideas.

Saludos y me alegro que se solucionara rápido.


La franja horaria es GMT +2. Ahora son las 19:05:38.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi