[afunez2007]

Empezado por microbiano

la verdad ya probe pasando el dato com tipo fecha y aun asi no lo acepta.

hice la prueba con la siguiente instruccion y funciona pero la verdad me queda duda del por que no puedo hacerlo con parametros.

Código Delphi [-]sql.Add('INSERT INTO VOLANTES ('); Sql.Add(' usuario,'); sql.Add(' recibe,'); sql.Add(' volante,'); sql.Add(' fecha_oficio'); sql.Add(' ) values ('); sql.Add(' '+QuotedStr(Fprincipal.wusuario)+', '); sql.Add(' '+QuotedStr(wrecibio)+', '); sql.Add(' '+QuotedStr(woficio)+', '); sql.Add(' '+QuotedStr(DateToStr(wfechaoficio))+')');

Ese es el problema de utilizar sql.add, a mi en lo particular me gusta mas el sql.text:

Código Delphi [-]
with fmodulo.qry_registra do
   begin
     sql.Text:='insert into volantes(usuario,recibe,volante,fecha_oficio)'
             +' values (:usuario,:recibe,:volante,:fecha_oficio)';
     Parameters.ParamByName('usuario').Value:=Trim(Fprincipal.wusuario);
     Parameters.ParamByName('recibe').Value:=wrecibio;
     Parameters.ParamByName('volante').Value:= woficio;
     Parameters.ParamByName('fecha_oficio').Value:= Fregistro.dtp_fecha_oficio.Date;
     try
      ExecSQL;
      application.MessageBox('Registro Almacenado Correctamente','',mb_ok + mb_iconinformation);
      exit;
     except
      on E:EOleException do
       begin
        //showmessage('Problemas con query ['+text+']');
        MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
        exit;
       end; 
     end;
   end;