
Errores al intertar registro y al mostrarlos
Publicado por jose antonio (21 intervenciones) el 11/03/2016 20:33:26
Bueno en primer lugar agradecer la rapidez que la que los miembros de este foro me contestaron el problema anterior, ahora al avanzar el proyecto tengo alguno mas ( como no ), al mostrar datos de los campos en los textbox del formulario, algunos campos en la tabla estan en blanco y al mostrarlos me sale este error: La conversión del tipo 'DBNull' en el tipo 'String' no es válida.
como podria solucionarlo?? la verdad que por mas que leo no me entero
este es el codigo fuente
Private Sub cargar_datos()
t_dni.Text = registro.Tables("miembros_club").Rows(0).Item("c_dni")
t_nombre.Text = registro.Tables("miembros_club").Rows(0).Item("c_nombre")
t_apellidos.Text = registro.Tables("miembros_club").Rows(0).Item("c_apellidos")
DateTimePicker1.Value = registro.Tables("miembros_club").Rows(0).Item("c_fecha_nac")
calcula_edad()
p_foto.ImageLocation = registro.Tables("miembros_club").Rows(0).Item("c_foto")
t_direccion.Text = registro.Tables("miembros_club").Rows(0).Item("c_direccion")
t_localidad.Text = registro.Tables("miembros_club").Rows(0).Item("c_localidad")
t_ultimo_grado.Text = registro.Tables("miembros_club").Rows(0).Item("c_ultimo_grado")
t_profesion.Text = registro.Tables("miembros_club").Rows(0).Item("c_profesion")
t_telefono.Text = registro.Tables("miembros_club").Rows(0).Item("c_telefono")
t_email.Text = registro.Tables("miembros_club").Rows(0).Item("c_email")
t_observaciones.Text = registro.Tables("miembros_club").Rows(0).Item("c_observaciones")
t_cod_entidad.Text = registro.Tables("miembros_club").Rows(0).Item("c_banco")
t_cod_oficina.Text = registro.Tables("miembros_club").Rows(0).Item("c_oficina")
t_dc.Text = registro.Tables("miembros_club").Rows(0).Item("c_dc")
t_cta.Text = registro.Tables("miembros_club").Rows(0).Item("c_cta")
t_titular.Text = registro.Tables("miembros_club").Rows(0).Item("c_titular_cta")
t_codigop.Text = registro.Tables("miembros_club").Rows(0).Item("c_codigo_postal")
t_provincia.Text = registro.Tables("miembros_club").Rows(0).Item("c_provincia")
t_academico.Text = registro.Tables("miembros_club").Rows(0).Item("c_nivel_academi")
t_entidad.Text = registro.Tables("miembros_club").Rows(0).Item("c_caja_bco")
't_clasificacion.Text = registro.Tables("miembros_club").Rows(0).Item("modalidad")
t_domicilia.Text = registro.Tables("miembros_club").Rows(0).Item("domici_federa")
t_profesor.Text = registro.Tables("miembros_club").Rows(0).Item("profesor")
't_centro.Text = registro.Tables("miembros_club").Rows(0).Item("gimnasio")
't_nom_tutor.Text = registro.Tables("miembros_club").Rows(0).Item("nom_tutor")
't_apelli_tutor = registro.Tables("miembros_club").Rows(0).Item("apelli_tutor")
't_parentesco.Text = registro.Tables("miembros_club").Rows(0).Item("parentesco")
't_cesion_images.Text = registro.Tables("miembros_club").Rows(0).Item("cesion_images")
End Sub
gracias de antemano
como podria solucionarlo?? la verdad que por mas que leo no me entero
este es el codigo fuente
Private Sub cargar_datos()
t_dni.Text = registro.Tables("miembros_club").Rows(0).Item("c_dni")
t_nombre.Text = registro.Tables("miembros_club").Rows(0).Item("c_nombre")
t_apellidos.Text = registro.Tables("miembros_club").Rows(0).Item("c_apellidos")
DateTimePicker1.Value = registro.Tables("miembros_club").Rows(0).Item("c_fecha_nac")
calcula_edad()
p_foto.ImageLocation = registro.Tables("miembros_club").Rows(0).Item("c_foto")
t_direccion.Text = registro.Tables("miembros_club").Rows(0).Item("c_direccion")
t_localidad.Text = registro.Tables("miembros_club").Rows(0).Item("c_localidad")
t_ultimo_grado.Text = registro.Tables("miembros_club").Rows(0).Item("c_ultimo_grado")
t_profesion.Text = registro.Tables("miembros_club").Rows(0).Item("c_profesion")
t_telefono.Text = registro.Tables("miembros_club").Rows(0).Item("c_telefono")
t_email.Text = registro.Tables("miembros_club").Rows(0).Item("c_email")
t_observaciones.Text = registro.Tables("miembros_club").Rows(0).Item("c_observaciones")
t_cod_entidad.Text = registro.Tables("miembros_club").Rows(0).Item("c_banco")
t_cod_oficina.Text = registro.Tables("miembros_club").Rows(0).Item("c_oficina")
t_dc.Text = registro.Tables("miembros_club").Rows(0).Item("c_dc")
t_cta.Text = registro.Tables("miembros_club").Rows(0).Item("c_cta")
t_titular.Text = registro.Tables("miembros_club").Rows(0).Item("c_titular_cta")
t_codigop.Text = registro.Tables("miembros_club").Rows(0).Item("c_codigo_postal")
t_provincia.Text = registro.Tables("miembros_club").Rows(0).Item("c_provincia")
t_academico.Text = registro.Tables("miembros_club").Rows(0).Item("c_nivel_academi")
t_entidad.Text = registro.Tables("miembros_club").Rows(0).Item("c_caja_bco")
't_clasificacion.Text = registro.Tables("miembros_club").Rows(0).Item("modalidad")
t_domicilia.Text = registro.Tables("miembros_club").Rows(0).Item("domici_federa")
t_profesor.Text = registro.Tables("miembros_club").Rows(0).Item("profesor")
't_centro.Text = registro.Tables("miembros_club").Rows(0).Item("gimnasio")
't_nom_tutor.Text = registro.Tables("miembros_club").Rows(0).Item("nom_tutor")
't_apelli_tutor = registro.Tables("miembros_club").Rows(0).Item("apelli_tutor")
't_parentesco.Text = registro.Tables("miembros_club").Rows(0).Item("parentesco")
't_cesion_images.Text = registro.Tables("miembros_club").Rows(0).Item("cesion_images")
End Sub
gracias de antemano
Valora esta pregunta


0