Ver Mensaje Individual
  #4  
Antiguo 27-11-2015
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 913
Reputación: 22
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Si me lo permites, te sugiero utilizar parámetros para esto, a ver que te parece:

Código Delphi [-]
    ADOQuery1.SQL.Add('insert into empleados values (:ValorNulo, :NombreEmp, :ApPatEmp, :ApMatEmp, : DireccionEmp, 
    :TelefonoEmp, :CelularEmp, :AreaTrab, :NumSS, :CompEstudios, :Password, :TipoUsuario, :FechNacEmp, :FechIngreso)');

  //Asignando valores a los parametros, en el cual puedes asignar de acuerdo al tipo de dato que representan.
  ADOQuery1.ParamByName('ValorNul').AsString:=Null;
  ADOQuery1.ParamByName('NombreEmp').AsString:=NombreEmp.Text;
  ADOQuery1.ParamByName('ApPatEmp').AsString:=ApPatEmp.Text;
  ADOQuery1.ParamByName('ApMatEmp').AsString:=ApMatEmp.Text;
  ADOQuery1.ParamByName('DireccionEmp').AsString:=DireccionEmp.Text;
  ADOQuery1.ParamByName('TelefonoEmp').AsString:=TelefonoEmp.Text;
  ADOQuery1.ParamByName('CelularEmp').AsString:=CelularEmp.Text;
  ADOQuery1.ParamByName('NumSS').AsString:=NumSS.Text;
  ADOQuery1.ParamByName('CompEstudios').AsString:=CompEstudios.Text;
  ADOQuery1.ParamByName('TipoUsuario').AsString:=TipoUsuario.Text;
  ADOQuery1.ParamByName('FechNacEmp').AsDateTime:=FechNacEmp;
  ADOQuery1.ParamByName('FechIngreso').AsDateTime:=FechIngreso;

  ADOQuery1.ExecSQL;
  ADOQuery1.SQL.Clear;
  ADOQuery2.Open;

Saludos cordiales
Responder Con Cita