Es un pequeño ejemplo de como crear, rellenar y leer un dataset con dos tablas y una columna en cada tabla, en vb.net.
Creo que la manera más sencilla de ejecutarlo, sería crear una ventana en vb.net, agregar un botón y en el evento _click del mismo, insertar el código de abajo.
Básicamente el código crea un dataset, inserta una tabla en él y posteriormente una columna en esa tabla. Para luego mediante un bucle insertar varias líneas en dicha tabla y posteriormente leerlo.
Para mostrar que un dataset puede tener varias tablas, lo que hacemos es crear una nueva tabla en el mismo dataset, con otra columna, insertar líneas y leerlas.
Recordar que en programación algo se puede hacer de muchas maneras, y muchas veces la necesidad de cada uno, hará que una forma u otra sea la más apropiada.
Además, aprovechamos esta entrada para probar el plugin CodeMirror Blocks para insertar código. Es un plugin de wordpress desarrollado por Vicky Agravat que permite embeber código dentro de la página mostrándolo dentro de un editor de código.
El anterior Plugin ha dejado de funcionar, por lo que he cambiado a Enlighter de Andi Dittrich
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'EJEMPLO DE DATASET INDEPENDIENTE DE BASE DE DATOS, CREADO DINAMICAMENTE. DE COMO SE PUEDE RELLENAR Y COMO SE PUEDE RECORRER
MessageBox.Show("EJEMPLO DE DATASET INDEPENDIENTE DE BASE DE DATOS, CREADO DINAMICAMENTE. DE COMO SE PUEDE RELLENAR Y COMO SE PUEDE RECORRER")
'creacion de un dataset con una tabla llamada tabla que contiene una columna llamada columna
Dim midataset As New DataSet
midataset.Tables.Add("TABLA") 'Inserccion de una tabla llamada TABLA en midataset
midataset.Tables("TABLA").Columns.Add("COLUMNA") 'Inserccion de una columna llamada "COLUMNA en la tabla "TABLA" de midataset
'cargamos el dataset con datos, en este caso hacemos un bucle de 1 a 5 y metemos el valor
For iaux As Integer = 1 To 5
Dim lineaainsertar As DataRow = midataset.Tables("TABLA").NewRow
lineaainsertar.Item("COLUMNA") = iaux 'introduccion de datos en lineaainsertar
midataset.Tables("TABLA").Rows.Add(lineaainsertar) 'inserccion de lineaainsertar en la tabla "TABLA" de midataset
Next
'recorremos la tabla del dataset y mostramos los datos
For Each leolineadataset As DataRow In midataset.Tables("TABLA").Rows()
MessageBox.Show(leolineadataset("COLUMNA").ToString)
Next
midataset.Tables.Add("OTRATABLA") 'Inserccion de una tabla llamada OTRATABLA en midataset
midataset.Tables("OTRATABLA").Columns.Add("OTRACOLUMNA") 'Inserccion de una columna llamada "OTRACOLUMNA en la tabla "TABLA" de midataset
'cargamos el dataset con datos, en este caso hacemos un bucle de 50 a 60 y metemos el valor
For iaux As Integer = 50 To 60
Dim lineaainsertar As DataRow = midataset.Tables("OTRATABLA").NewRow
lineaainsertar.Item("OTRACOLUMNA") = iaux 'introduccion de datos en lineaainsertar
midataset.Tables("OTRATABLA").Rows.Add(lineaainsertar) 'inserccion de lineaainsertar en la tabla "OTRATABLA" de midataset
Next
'recorremos la tabla del dataset y mostramos los datos
For Each leolineadataset As DataRow In midataset.Tables("OTRATABLA").Rows()
MessageBox.Show(leolineadataset("OTRACOLUMNA").ToString)
Next
'PON UNPUNTO DE INTERRUPCION EN LA LINEA DEL MENSAJE DE FIN Y MIRA LA LUPA EN MIDATASET
MessageBox.Show("FIN")
End Sub