Ayuda Con Update

[microbiano]

bueno pues aqui estoy dandoles lata la verdad no entiendo lo que antes funcionaba ahora ya no funciona esto me paso despues de formatear la pc y despues de poner la carpeta de respaldo del sistema en la ruta que antes tenia.


bueno quiero modificar una registro de una tabla y lo hacia de la siguiente manera

Código Delphi [-]
with Fmodulo.QryTemp do
     begin
      SQL.Clear;
      sql.Add('update volantes set fecha_oficio=:P_fechaoficio');
      sql.Add('Where id_volante=:P_identificador');
      Parameters.ParamByName('p_fechaoficio').DataType:=ftDate;
      Parameters.ParamByName('P_fechaoficio').value:=wfechaoficio;//variable de tipo Tdate
      Parameters.ParamByName('p_identificador').Value:=wfirmado;
      try
        ExecSQL;
        application.MessageBox('Registro Modificado Exitosamente','',mb_ok + mb_iconinformation);
        exit;
      except
       showmessage('Problemas con Query de Modificacion ['+text+']');
       exit;
      end;
     end;

sin embargo ahora que quiero hacerlo me dice que la aplicacion usa un valor de tipo no valido para la aplicacion actual alguien sabe por que? puede pasar este error.

o que estoy haciedno mal?

[[Caral]]

Hola
No se que es FTDate ademas solo tiene 2 parametros el update el tercero no existe, trata asi:

Código Delphi [-]
with Fmodulo.QryTemp do
     begin
      sql.Text:= ' update volantes set fecha_oficio = :P_fechaoficio '+
                 ' Where id_volante = :P_identificador ';
      Parameters[0].Value:= ftDate;
      Parameters[1].value:= wfechaoficio;//variable de tipo Tdate
   //   Parameters[2].Value:=wfirmado; // este parametro no existe
      try
        ExecSQL;
        application.MessageBox('Registro Modificado Exitosamente','',mb_ok + mb_iconinformation);
        exit;
      except
       showmessage('Problemas con Query de Modificacion ['+text+']');
       exit;
      end;
     end;

Saludos

[Casimiro Notevi]

Si el campo fechaoficio es un date, entonces está sobrando la primera línea que le dice el tipo que es

Parameters.ParamByName('p_fechaoficio').DataType:=ftDate;

Por lo que sólo es necesario:

Parameters.ParamByName('P_fechaoficio').value := wfechaoficio;
Parameters.ParamByName('p_identificador').Value := wfirmado;

[[Caral]]

Hola
En tal caso sigue sobrando un parametro:

Código Delphi [-]
with Fmodulo.QryTemp do
     begin
      sql.Text:= ' update volantes set fecha_oficio = :P_fechaoficio '+
                 ' Where id_volante = :P_identificador ';
      Parameters[0].value:= wfechaoficio;
      Parameters[1].Value:= wfirmado; 
      try
        ExecSQL;
        application.MessageBox('Registro Modificado Exitosamente','',mb_ok + mb_iconinformation);
        exit;
      except
       showmessage('Problemas con Query de Modificacion ['+text+']');
       exit;
      end;
     end;

Saludos

[microbiano]

Caral.


ya probe con

Código Delphi [-]
sql.Text:= ' update volantes set fecha_oficio = :P_fechaoficio '+
                 ' Where id_volante = :P_identificador ';
      Parameters[0].Value:= ftDate;
      Parameters[1].value:= wfechaoficio

sin embargo me dice manda el error de caracteristica opcional no implementad, en cuanto a los
parametros no sobran ya que en esta linea

Código Delphi [-]
  Parameters.ParamByName('p_fechaoficio').DataType:=ftDate;

le estoy diciendo de que tipo es el parametro.

ahora bien

casimiro el campo en la abse de datos que es sqlserver200 es de tipo DATETIME.

probare cambiando el tipo de variables a donde guardo las fechas.

[microbiano]

tenia las variables de tipo Tdate las cambie a Tdatime por que en la base de datos asi esta.


ejecutando el programa la verdad me sigue el mismo erro caracteristica opcional no implmentada.