Almacenar un TDateTimePicker en MySQL
 

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

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

Bienvenido Gusso

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

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

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

Tienes razón...

ParamByName no va solo...:D

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

Saludos cordiales

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

Si y en efecto creo que es buena idea "tomarse la molestia" de especificar en cada parametro el tipo; mas alla de que el codigo funcione bien sin hacerlo, ayuda a transmitir que intencion se tenia al momento de desarrollar y documentar el codigo

Código Delphi [-]
procedure TParameter.SetValue(const Value: Variant);
const
  SizedDataTypes = [ftUnknown, ftString, ftFixedChar, ftWideString, ftFixedWideChar,
    ftMemo, ftWideMemo, ftBlob, ftBytes, ftVarBytes];
var
  NewSize: Integer;
  NewValue: OleVariant;
begin
  if VarIsClear(Value) or VarIsNull(Value) then
    NewValue := Null
  else
  begin
    if DataType = ftUnknown then
      SetDataType(VarTypeToDataType(VarType(Value)));
    { Convert blob data stored in AnsiStrings into variant arrays first }
    if (DataType = ftBlob) and (VarType(Value) = varString) then
      NewValue := StringToVarArray(Value) else
      NewValue := Value;
  end;
  if DataType in SizedDataTypes then
  begin
    NewSize := VarDataSize(NewValue);
    if (Size = 0) or (NewSize > Size) then
      Size := NewSize;
  end;
  ParameterObject.Value := NewValue;
end;

En SetValue se encarga de, si esta en ftUnknown que es el valor por defecto como mencionas, intentar asignarle el correcto de acuerdo al tipo de dato

De acuerdo. Más aún, el IDE de Delphi debería tener una flecha gorda y grande indicando las propiedades SQL y Parameters del ADOQuery en el inspector de objetos. Esto de construir la sentencia sql sobre la marcha debería estar prohibido ;)

// Saludos

Venias bien.. ahora ya no somos mas amigos :D

En Delphi 2010 por lo menos existe.. tanto para la sentencia SQL como los parametros



Ahora bien, yo prefiero hacerlo por codigo como ya lo dije alguna vez

Saludos

En realidad, es una cuestión de gustos y costumbres. Puedes incluso hacer todo al estilo antiguo y enlazar componentes (Datasets, DataSources, DBAware) vía código. Lo fundamental es hacerlo con orden.

Si se prefiere no guardar las sentencias SQL en la propiedad que con tanto esmero diseñaron los creadores de delphi :D, está bien, pero haces la asignación de la sentencia sin sustituir los parámetros y después asignas el valor a éstos.

La concatenación de strings en una consulta sql es garantia de que pronto no se entenderá el código, además de que cualquier posibilidad de consultas preparadas se va al olvido.

// Saludos

Regresando a la sentencia original

Código Delphi [-]
ADOQuery1.SQL.Add('insert into empleados values ("NULL"....

me gustaría anotar que realizar un "insert into" sin especificar las columnas de la tabla es una práctica no muy recomendada porque se convierte en un fragmento de código más a mantener cuando se agreguen nuevas columnas a la tabla. Por otra parte enumerar las columnas a insertar hace el código más autodocumentado. Ademas, con frecuencia, no es necesario especificar todas las columnas de la tabla y podemos permitir que el motor de bases de datos coloque los valores por defecto previamente definidos por el DBA.

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

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

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

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;

Busca en Google:

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