Almacenar un TDateTimePicker en MySQL

[Gusso]

Que tal colegas!!

Ocupo su ayuda!!

Les platicare un poco de mi proyecto... ya que soy novato, para mi Universidad estoy creando un sistema gestor de Base de Datos con MySQL diseñado para un hospital, entonces quiero trabajar con fechas para diferentes consultas... ahora mi problema este es mi código:

Código Delphi [-]
  ADOQuery1.SQL.Add('insert into empleados values ("NULL","' + NombreEmp.Text +
    '","' + ApPatEmp.Text +'","'+ ApMatEmp.Text +'","'+ DireccionEmp.Text +'","'+
    TelefonoEmp.Text +'","'+ CelularEmp.Text +'","'+ AreaTrab.Text +'","'+ NumSS.Text +
    '","'+ CompEstudios.Text +'","'+ Password.Text +'","'+ TipoUsuario.Text +'","'+
    FechNacEmp +'","'+ FechIngreso +'")');
  ADOQuery1.ExecSQL;
  ADOQuery1.SQL.Clear;
  ADOQuery2.Open;

donde los campos FechNacEmp y FechIngreso los tengo con un TDateTimePicker, y en mi base en MySQL esos campos los tengo declarados como DATE pero no puedo almacenarlo, cuando intento correr me manda error en compilación diciendo que son incompatibles los tipos String a Date, es decir no puedo almacenarlo en mi BD porque los demas campos son String y FechNacEmp y FechIngreso son tipo DATE, si le agrego la propiedad ToString a estos DateTimePicker en mi BD aparece como 0000-00-00, lo cambie a Varchar en MySQL y lo almacena como "DateTimePicker" quisiera orientación para como poder almacenar la fecha que yo quiera elegir en mi DateTimePicker, espero haber sido lo suficientemente explicíto con mi problema

[adrall]

Yo utilizo la funcion FormatDateTime:

Código Delphi [-]
ADOQuery1.SQL.Add('insert into empleados values ("NULL","'+NombreEmp.Text+'","'+ApPatEmp.Text+'","
'+   ApMatEmp.Text+'","'+DireccionEmp.Text+'","'+TelefonoEmp.Text+'","'+CelularEmp.Text+'","'+AreaTrab.Te  xt
+'",   "'+NumSS.Text+'","'+CompEstudios.Text+'","'+Password.Text+'","'+TipoUsuario.Text+'","'+FormatDateTim  e('YYYY/MM/DD', FechNacEmp)
+'"  ,"' +FormatDateTime('yyyy/mm/dd',FechIngreso)+'")'); ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear; ADOQuery2.Open;

Siempre en formato "yyyy/mm/dd"

Saludos

[[AgustinOrtu]]

Bienvenido Gusso

Busca en los foros sobre parametros SQL que se hablo mil veces sobre este tema

[cloayza]

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

[[AgustinOrtu]]

ADO no soporta los .AsString, .AsInteger, .AsXXX en los parametros; lamentablemente hay que usar .Value

[cloayza]

Tienes razón...

Empezado por AgustinOrtu

ADO no soporta los .AsString, .AsInteger, .AsXXX en los parametros; lamentablemente hay que usar .Value

ParamByName no va solo...

Código Delphi [-]
ADOQuery1.Parameters.ParamByName('Campo').Value:=1;

Saludos cordiales

[roman]

Empezado por AgustinOrtu

ADO no soporta los .AsString, .AsInteger, .AsXXX en los parametros; lamentablemente hay que usar .Value

Cierto. Pero la clase TParameter tiene el atributo DataType en donde se le puede especificar el tipo de datos del parámetro, que, por defecto es ftUnknown.

// Saludos

[Gusso]

Empezado por AgustinOrtu

Bienvenido Gusso

Busca en los foros sobre parametros SQL que se hablo mil veces sobre este tema

Ya busque, ya lo intente, por eso pido su ayuda porque nada me ha funcionado

[roman]

A ver, partiendo de lo que escribió cloayza en el mensaje #4:

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

[orodriguezca]

La solución de roman debería funcionar, pero no me queda claro en el mensaje #1 si FechNacEmp y FechIngreso son variables de tipo TDate o si son objetos de tipo TDateTimePicker.

Si son objetos de tipo TDateTimePicker los valores de fecha deberían pasarse así:

Código Delphi [-]
ADOQuery1.Paramters.ParamByName('FechNacEmp').DataType := ftDate;
ADOQuery1.Parameters.ParamByName('FechNacEmp').Value := FechNacEmp.Date;

ADOQuery1.Parameters.ParamByName('FechIngreso').DataType := ftDate;
ADOQuery1.Parameters.ParamByName('FechIngreso').Value := FechIngreso.Date;

[[AgustinOrtu]]

Empezado por Gusso

Ya busque, ya lo intente, por eso pido su ayuda porque nada me ha funcionado

Busca en Google:

1. "Delphi parametros sql"
2. "Clubdelphi parametros sql"