donpedro
07-08-2019, 02:55:35
Hello y bendiciones. Aqui estoy de nuevo con un nuevo error
Estoy usando Delphi 2009 y Sql Server 2012.
Tengo un modulo de registro de pacientes donde uso componentes de base de datos EJ: DBedits, DBradiogroup Etc...
El unico comoponente que no es de base de datos es el DateTimePicker y con ese componente es que tengo el error. Me explico:
En el evento BeforePost del AdoTable correspondiente a la tabla pacientes coloco el siguiente codigo:
procedure TFrmpacientes.TpacientesBeforePost(DataSet: TDataSet);
begin
Dataset.FieldByName('Fecha Nacimiento').AsString:=DateToStr(DBfechanac.Date);
end;
Con ese codigo en ese evento no tengo problema. El problema esta, cuando coloco en el evento AfterScroll del AdoTable el siguiente codigo, para que cuando navegue por los registros el DateTimePicker tome la fecha que esta almacenada en la tabla pacientes.
procedure TFrmpacientes.TpacientesAfterScroll(DataSet: TDataSet);
begin
DBfechanac.Date:=StrToDate(Dataset.FieldByName('Fecha Nacimiento').AsString);
end;
Entonces cuando ejecuto el programa y entro al modulo Registro de Pacientes, al hacer clic en el boton Nuevo Registro sale el error: "Is Not a Valid Date Time". He probado cambiando el campo de Fecha de Nacimiento a DATE en la base de datos y hace lo mismo.
Gracias de antemano por la ayuda brindada
Estoy usando Delphi 2009 y Sql Server 2012.
Tengo un modulo de registro de pacientes donde uso componentes de base de datos EJ: DBedits, DBradiogroup Etc...
El unico comoponente que no es de base de datos es el DateTimePicker y con ese componente es que tengo el error. Me explico:
En el evento BeforePost del AdoTable correspondiente a la tabla pacientes coloco el siguiente codigo:
procedure TFrmpacientes.TpacientesBeforePost(DataSet: TDataSet);
begin
Dataset.FieldByName('Fecha Nacimiento').AsString:=DateToStr(DBfechanac.Date);
end;
Con ese codigo en ese evento no tengo problema. El problema esta, cuando coloco en el evento AfterScroll del AdoTable el siguiente codigo, para que cuando navegue por los registros el DateTimePicker tome la fecha que esta almacenada en la tabla pacientes.
procedure TFrmpacientes.TpacientesAfterScroll(DataSet: TDataSet);
begin
DBfechanac.Date:=StrToDate(Dataset.FieldByName('Fecha Nacimiento').AsString);
end;
Entonces cuando ejecuto el programa y entro al modulo Registro de Pacientes, al hacer clic en el boton Nuevo Registro sale el error: "Is Not a Valid Date Time". He probado cambiando el campo de Fecha de Nacimiento a DATE en la base de datos y hace lo mismo.
Gracias de antemano por la ayuda brindada