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:

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:


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+'","'+FormatDateTime('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:


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...
ADO no soporta los .AsString, .AsInteger, .AsXXX en los parametros; lamentablemente hay que usar .Value :(


ParamByName no va solo...:D


ADOQuery1.Parameters.ParamByName('Campo').Value:=1;


Saludos cordiales

[roman]

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

[AgustinOrtu]

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


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

[roman]

Si y en efecto creo que es buena idea "tomarse la molestia" de especificar en cada parametro el tipo;

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

[AgustinOrtu]

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


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

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

http://thumbs.subefotos.com/a5c5bc7a388cd44ddc7b1096f1b24968o.jpg (http://subefotos.com/ver/?a5c5bc7a388cd44ddc7b1096f1b24968o.png)

Ahora bien, yo prefiero hacerlo por codigo como ya lo dije alguna vez (http://www.clubdelphi.com/foros/showpost.php?p=496181&postcount=12)

Saludos

[roman]

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

[orodriguezca]

Regresando a la sentencia original 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.

[Gusso]

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:


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í:


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]

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"