Grabar hora en Access

[silver07]

Hola a todos, trabajo con Delphi-7 y Access 2003, en el cual tengo una tabla con un campo fecha y otro hora, y al grabar en la tabla por hora se registra la fecha tambien para esto utilizo DateTimePicker, me pregunto si alguien me podría ayudar con respecto a como grabar solo la fecha en el campo fecha y la hora en el campo hora utilizando estos componentes DateTimePicker.


Muchas gracias...

[rodrigodeoz]

Saludos !!
Mira para aue no guardes la fecha el DateTimePicker Tiene una propiedad llamada Data ahi le cambias de DateTime A Time y listo te dara solo la hora y Tiene otra propiedad llamada Format donde eliges el formato en tu caso el formato de la hora si es hrs o es pm,am.

Esporo haberte ayudado

[silver07]

No entendí muy bien

Para grabar en la tabla lo hago de la siguiente manera:

Código Delphi [-]
Dtmodulo.ADOTactividades.FieldByName('Fecha').asDateTime:=DateTimePicker1.Date;
Dtmodulo.ADOTactividades.FieldByName('Hora').asDateTime:=DateTimePicker1.Time;

Y no me funciona de este modo en el caso de la hora, me guarda la fecha.

[rodrigodeoz]

mira tienes que cambias asDateTime por asDate y asTime asi:

Código Delphi [-]
Dtmodulo.ADOTactividades.FieldByName('Fecha').asDate:=DateTimePicker1.Date
Dtmodulo.ADOTactividades.FieldByName('Hora').asTime:=DateTimePicker1.Time;
;

[silver07]

Disculpa amigo pero en esa terminación .asDate y .asTime no me permite compilar el sistema...

Presenta el siguiente error:

[Error] actividades.pas(119): Undeclared identifier: 'asDate'
[Error] actividades.pas(120): Undeclared identifier: 'asTime'
[Fatal Error] Sisconem.dpr(21): Could not compile used unit 'Formularios\actividades.pas'

Solo funciona si le coloco .asDateTime en ambos casos....

[[Lepe]]

En ADO creo se utiliza siempre "Value" en lugar de AsDate, AsTime, etc.

Saludos

[rodrigodeoz]

entonces utiliza la siguiente sintaxis:

Código Delphi [-]
parambyname('f').Value:=fecha.Date;

[aldmoscardi]

hola, en verdad el accses es todo un tema para eso, pero bueno proba con esto

Código Delphi [-]
Dtmodulo.ADOTactividades.FieldByName('Fecha').asString := FormatDateTime('dd/MM/yyyy',DateTimePicker1.Date);
Dtmodulo.ADOTactividades.FieldByName('Hora').asString := FormatDateTime('hh:mm', DateTimePicker1.Time);

espero te sirva saludos y exitos