ACCESO A DATOS - USANDO DATASETS

Hola de nuevo. En esta ocasion veremos como obtener los datos de una Base de Datos y almacenarlos en unDataSet.
Si leyeron mi post anterior partiremos de la misma idea solo que en vez de usar DataReaders, usaremos un DataAdapter. Empezemos.

'Los namespace son los mismos

Dim cnn as SqlConnection
Dim strConexion as String
Dim strQuery as String
Dim DA as SqlDataAdapter
Dim DS as New DataSet

'estableciendo la conexión
strConexion = ”Data Source=localhost; Catalog = MiBaseDatos; Integrated Security = True”
strQuery = “SELECT * FROM Tabla”

Try
Cnn = New SqlConnection(strConexion)
'abrimos la conexión
cnn.Open()
DA = New SqlDataAdapter(strQuery, strConexion)
DA.Fill(DS, "MiTabla")
Catch(ex As Exception)
'informamos al usuario de los errores que hayan ocurrido
Finally
cnn.Close()
End Try

Como pueden ver no es mucho el codigo a comparacion de cuando usamos los DataReaders. Al usar un DataAdapter este automaticamente, carga los datos a nuestro Dataset dependiendo de nuestra consulta.
Una vez que ya tengamos los datos en el DataSet podremos manupularlos a nuestro gusto eliminando, actulizando, insertando, ordenando, etc... este es una de las ventajas de usar DataSet.
Solo falta aclarar que estos cambias se guardar en el DataSet, para guardarlos fisicamente en nuestra Base de Datos basta emplear el metodo Update.

DA.Update(DS, "MiTabla")

Con esto los cambios que haya tenido nuestra tabla se guardaran.