Código Delphi
[-] if nuevo = 1 then
begin
DM.QryPacientes.Insert;
DM.QryPacientesidpaciente.Value := DM.QryPacientes.RecordCount + 1;
end
else
DM.QryPacientes.Edit ;
with DM do
begin
QryPacientespxNombres.Value := Trim(edtnombre.Text);
QryPacientespxApellidos.Value := Trim(edtapellido.Text);
QryPacientespxDocumento.Value := Trim(edtdocumento.Text);
QryPacientespxCorreo.Value := Trim(edtdocumento.Text);
QryPacientespxDireccion.Value := Trim(mdireccion.Lines.Text);
QryPacientespxTelefonos.Value := Trim(mtelefono.Lines.Text);
QryPacientespxEstado.Value := chkactivo.Checked;
QryPacientesidSexo.Value := QrySexoidSexo.Value;
QryPacientesidEstadoCivil.Value:=QryECidEstadoCivil.Value;
QryPacientesidZona.Value := QryZonaidZona.Value;
QryPacientesidCiudad.Value := QryCiudadidCiudad.Value;
QryPacientesidSector.Value := QrySectoridSector.Value;
QryPacientesidSeguro.Value := QryArsidArs.Value;
QryPacientespxNacidoen.AsDateTime := dtpnacimiento.DateTime;
QryPacientes.Post;
end;
He probado los cambios y todo perfecto siempre y cuando no cambie la fecha. Desde que selecciona una fecha he intento grabar obtengo el error.
First chance exception at $7640DF72. Exception class EDatabaseError with message 'Conversion failed when converting date and/or time from character string'.