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
