Tengo una aplicacion en la cual tengo multiples tablas relacionadas a mi tabla principal que se llama MaestroPacientes. Quisiera poder desplazarme atras y hacia a delante, y todo lo demas.
Me gustaria que me ayuden con esto soy nuevo en visual net, y aqui en mi pais no esta muy difundido este lenguaje, lo que he aprendido lo he hecho solo leyendo.
Aqui les mando el codigo para que lo vean y me digan que sigue para poder navegar por mis registros, va comentariado paraa que le entiendan mejor.
Private Sub frmMaestroPaciente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'Creo el objeto de conexion
Dim conexion As New SqlConnection
'^Pasar la Cadena de conexion
conexion.ConnectionString = "data source=PROGRMADOR;" & _
"initial catalog=atencion_admision;" & _
"integrated security=SSPI;persist security info=True;" & _
"workstation id=sa;packet size=4096"
lectura()
'´Creo Adaptadores
Dim daMaestroPacientes As New SqlDataAdapter("Select * From MaestroPacientes", conexion)
Dim daMaestroBeneficiarios As New SqlDataAdapter("Select BODEGA,Categoria,Num_Exp,Apellidos,Nombres,Fecha_Nac,NO_INSS From MaestroBeneficiarios where Categoria like '%Hijo%'", conexion)
'Dim daMaestroBeneficiarioConyugue As New SqlDataAdapter("Select BODEGA,Categoria,Num_Exp,Apellidos,Nombres,Fecha_Nac,PF,NO_INSS from MaestroBeneficiarios where Categoria='%Conyugue%'", conexion)
Dim daPercapita As New SqlDataAdapter("Select * From PERCAPITA", conexion)
Dim daContratosIndividuales As New SqlDataAdapter("Select * From ContratosIndividuales", conexion)
Dim daNumeroContratos As New SqlDataAdapter("Select No_Cont,FECHA_CONT,F_INI_SERV,TIPO_AFIL,NO_INSS From NumerosContratos Order by FECHA_CONT Desc", conexion)
Dim daCatalogoEmpresa As New SqlDataAdapter("Select NO_EMPRES,EMPLEADOR,NOMINA,NOMB_EMPR,NO_INSS From CatalogoEmpresas ", conexion)
'Declaro e instancio mi Dataset
Dim dsPacientes As DataSet
dsPacientes = New DataSet
'Abro Conexion
conexion.Open()
'Utilizo los Adpatadores Para rellenar el dataset con tablas
daMaestroPacientes.Fill(dsPacientes, "MaestroPacientes")
daMaestroBeneficiarios.Fill(dsPacientes, "MaestroBeneficiarios")
daPercapita.Fill(dsPacientes, "PERCAPITA")
daContratosIndividuales.Fill(dsPacientes, "ContratosIndividuales")
daNumeroContratos.Fill(dsPacientes, "NumerosContratos")
daCatalogoEmpresa.Fill(dsPacientes, "CatalogoEmpresas")
'Cerrar Conexion
conexion.Close()
'Relaciono las 2 tablas del Dataset por Campo Comun
Try
Dim Paciente_Beneficiario As DataRelation = dsPacientes.Relations.Add("Paciente_Beneficiario", _
dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
dsPacientes.Tables("MaestroBeneficiarios").Columns("NO_INSS"))
Dim Paciente_Percapita As DataRelation = dsPacientes.Relations.Add("Paciente_Percapita", _
dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
dsPacientes.Tables("PERCAPITA").Columns("NO_INSS"))
Dim Paciente_ContratoIn As DataRelation = dsPacientes.Relations.Add("Paciente_ContratoIn", _
dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
dsPacientes.Tables("ContratosIndividuales").Columns("NO_INSS"))
Dim Paciente_NoContratos As DataRelation = dsPacientes.Relations.Add("Paciente_NoContratos", _
dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
dsPacientes.Tables("NumerosContratos").Columns("NO_INSS"))
Dim Paciente_Catalogo As DataRelation = dsPacientes.Relations.Add("Paciente_Catalogo", _
dsPacientes.Tables("MaestroPacientes").Columns("NO_INSS"), _
dsPacientes.Tables("CatalogoEmpresas").Columns("NO_INSS"))
'Enlazo mis datos a los controles de mi formulario
txtExpediente.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.NUM_EXP")
txtInss.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.NO_INSS")
txtPrimerNombre.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.PriNombre")
txtSegundoNombre.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.SegNombre")
txtPrimerApellido.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.PriApellido")
txtSegundoApellido.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.SegApellido")
txtEstado.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Percapita.ESTADO")
txtPercapita.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Percapita.PACIENTE")
txtConyugue.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_ContratoIn.Nombre_Cony")
chkBodega.DataBindings.Add("Checked", dsPacientes, "MaestroPacientes.BODEGA")
chkSinExpediente.DataBindings.Add("Checked", dsPacientes, "MaestroPacientes.SinExp")
chkBaja.DataBindings.Add("Checked", dsPacientes, "MaestroPacientes.BAJA")
DateTimePicker1.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.FECHA_ING")
cboSexo.DataSource = dsPacientes.Tables("MaestroPacientes")
cboSexo.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.SEXO")
cboSexo.DisplayMember = "SEXO"
cboNombreEmpresa.DataSource = dsPacientes
cboNombreEmpresa.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Catalogo.NOMB_EMPR")
cboNombreEmpresa.DisplayMember= "CatalogoEmpresas.NOMB_EMPR"
cboNumeroEmpresa.DataSource = dsPacientes
cboNumeroEmpresa.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Catalogo.NO_EMPRES")
cboNumeroEmpresa.DisplayMember= "CatalogoEmpresas.NO_EMPRES"
cboPatronalEmpresa.DataSource = dsPacientes
cboPatronalEmpresa.DataBindings.Add("Text", dsPacientes, "MaestroPacientes.Paciente_Catalogo.EMPLEADOR")
cboPatronalEmpresa.DisplayMember= "CatalogoEmpresas.EMPLEADOR"
grdHijos.DataSource = dsPacientes
grdHijos.DataMember = "MaestroPacientes.Paciente_Beneficiario"
grdContratos.DataSource = dsPacientes
grdContratos.DataMember = "MaestroPacientes.Paciente_NoContratos"
Catch exa As SystemException
'Capturo el error a la hora de cargar las tablas en mi dataset
MessageBox.Show("Error al Cargar Datos" & ControlChars.CrLf & exa.Message)
End Try
Catch ex As SqlException
'Si se produce algun error
'Lo capturo mediante el objeto
'de excepciones particular
'para el proveedor de sqlServer
MessageBox.Show("Error al Conectar a la Base de Datos" & ControlChars.CrLf & ex.Message & ControlChars.CrLf & ex.Server)
End Try
End Sub
