Typed DataSets - Ejercicio II

Examinar una tabla - Selección de Registros

Fecha: 29/Jul/2005 (27 de Julio de 2005)
Autor: Ing. Fernando Luque Sánchez  -  DCE  4  Estrellas

[email protected]


Sres. Desarrolladores, siguiendo con los artículos referentes al manejo de DataSets Tipificados comparto en esta ocasión con  ustedes otro ejemplo. Los artículos anteriores se encuentran en:

Ejemplo de Typed DataSets http://www.elguille.info/colabora/NET2005/FernandoLuque_TypedDataSetI.htm

Teoría de Typed y UnTyped DataSets
http://www.elguille.info/colabora/NET2005/FernandoLuque_DataSetsII.htm

http://www.elguille.info/colabora/NET2005/FernandoLuque_DataSetsI.htm

Sobre el control Tabcontrol
http://www.elguille.info/colabora/NET2005/FernandoLuque_Control_TabControl.htm

El Ejemplo

En esta oportunidad el ejemplo muestra un form con el  siguiente diseño:

Al seleccionar un registro en la ficha Registro Seleccionado se muestran sus datos de la siguiente forma:

En el proyecto se ha incluído un DataSet tipificado con el siguiente elemento:

A continuación sigue código en Visual Basic:

Private Sub Cargar(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles MyBase.Load

        daAutores.Fill(dsDatos)

        Pos = 0

        CargarDatos()

        dgAutores.DataSource = dsDatos.Tables(0)

    End Sub

 

    Private Sub DataGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgAutores.Click

        Me.Pos = dgAutores.CurrentRowIndex

        CargarDatos()

    End Sub

 

    Private Sub CargarDatos()

        Dim fila As DataRow

        fila = dsDatos.Tables(0).Rows(Pos)

        Me.txtIdAutor.Text = fila(0)

        Me.txtApellidos.Text = fila(1)

        Me.txtNombres.Text = fila(2)

        Me.txtFono.Text = fila(3)

        Me.txtDire.Text = fila(4)

        Me.txtCiudad.Text = fila(5)

        Me.txtEstado.Text = fila(6)

        Me.txtPostal.Text = fila(7)

        Me.txtContacto.Text = IIf(fila(8), "Si", "No")

        Me.lblRegistro.Text = "Registro " & Me.Pos + 1 & " de " & dsDatos.Tables(0).Rows.Count

 

    End Sub

El código completo está en el archivo adjunto al final del artículo. La Base de datos es Pubs y la tabla con la que se trabaja en Authors. Actualiza tu cadena de conexión.

Suerte a todos y  A SEGUIR DESARROLLANDO

Ing. Fernando Luque Sánchez
CIP 61806
Desde Trujillo - Perú para el mundo


Espacios de nombres usados en el código de este artículo:

System.Data
System.Data.SQLClient


Fichero con el código de ejemplo: FernandoLuque_TypedDataSetEj02.zip - Tamaño 14 KB


ir al índice