A ver, partiendo de lo que escribió
cloayza en el mensaje #4:
Cita:
ADOQuery1.SQL.Add('insert into empleados values (:ValorNulo, :NombreEmp, :ApPatEmp, :ApMatEmp, : DireccionEmp,
:TelefonoEmp, :CelularEmp, :AreaTrab, :NumSS, :CompEstudios, :Password, :TipoUsuario, :FechNacEmp, :FechIngreso)');
|
Podrías intentar esto:
Código Delphi
[-]
ADOQuery1.ParamByName('ValorNul').Value := Null;
ADOQuery1.ParamByName('NombreEmp').Value := NombreEmp.Text;
ADOQuery1.ParamByName('ApPatEmp').Value := ApPatEmp.Text;
ADOQuery1.ParamByName('ApMatEmp').Value := ApMatEmp.Text;
ADOQuery1.ParamByName('DireccionEmp').Value := DireccionEmp.Text;
ADOQuery1.ParamByName('TelefonoEmp').Value := TelefonoEmp.Text;
ADOQuery1.ParamByName('CelularEmp').Value := CelularEmp.Text;
ADOQuery1.ParamByName('NumSS').Value := NumSS.Text;
ADOQuery1.ParamByName('CompEstudios').Value := CompEstudios.Text;
ADOQuery1.ParamByName('TipoUsuario').Value := TipoUsuario.Text;
ADOQuery1.ParamByName('FechNacEmp').DataType := ftDate;
ADOQuery1.ParamByName('FechNacEmp').Value := FechNacEmp;
ADOQuery1.ParamByName('FechIngreso').DataType := ftDate;
ADOQuery1.ParamByName('FechIngreso').Value := FechIngreso;
ADOQuery1.ExecSQL;
// Saludos