Visual Basic.Net : Operaciones con una base de datos (3)

Los nuevos objetos de Visual Basic.Net (1)

Uno de los mayores cambios que ha sufrido la nueva suite de programación .NET en comparación con las anteriores de Microsoft es la creación de nuevos objetos para el tratamiento de los datos. Estos nuevos objetos son: DataAdapter y DataSet.

El DataAdapter se sitúa entre la base de datos y el DataSet. Por un lado gestiona las conexiones con la base de datos de forma automática, él decide cuando se abre y cuando se cierra una conexión y toma los datos que se le han solicitado a la base de datos. Y por el otro lado sirve al DataSet los datos en formato XML que toma de la base de datos. Dicho de otra manera el DataSet y la base de datos nunca están en relación directa.

El DataSet es un almacén de datos que puede contener datos de varias tablas de la base de datos y tener en cuenta las relaciones que existen entre ellas. Es como una copia de una parte de una base de datos que contiene objetos que dan acceso a sus tablas (columnas y filas), restricciones y relaciones entre tablas.

Gráficamente seria algo parecido a:

Podremos crear una instancia del objeto DataAdapter de varias maneras:

A)Crear una instancia sin comando ni conexión.

• Dim Sqladp As SqlDataAdapter
• Dim cmd As SqlCommand
• Sqladp = New SqlDataAdapter()
• Sqladp.SelectCommad = cmd

B)Crear una instancia especificando el comando a emplear.

• Dim Sqladp As SqlDataAdapter
• Dim cmd As SqlCommand
• Sqladp = New SqlDataAdapter(cmd)

C)Especificar una cadena SQL y la conexión que se desea utilizar.

• Dim Sqladp As SqlDataAdapter
• Dim cn As SqlConnection
• Dim CadenaSql As String
• CadenaSql = “Select * From MiTabla”
• Sqladp = New SqlDataAdapter(CadenaSql, cn)

D)Especificar una cadena SQL y una cadena de conexión.

• Dim Sqladp As SqlDataAdapter
• Dim CadenaSql As String
• CadenaSql = “Select * From MiTabla”
• Sqladp = New SqlDataAdapter(CadenaSql,
• “Data Source=pcr; initial catalog=base;user id=sa;password=”)

El DataAdapter debe tener un comando Select valido para poder crear una instancia correcta y tomar datos de la base de datos para pasarlos al DataSet. En caso que lo que deseemos sea eliminar datos de la base de datos en lugar de consultarlos podríamos ejecutar un comando DELETE de Sql con parámetros:

• Dim cn As OleDbConnection
• Dim Sqladp As New SqlDataAdapter
• Sqladp.DeleteCommand.CommandText = “Delete * From MiTabla “ & “Where Nombre =
• @Cliente”
• Sqladp.DeleteCommand.Connection = cn
• Sqladp.DeleteCommand.Parameters.Add(“@Cliente, OleDbType.VarChar, 15)

Si por el contrario se tratara de una sentencia Sql de modificación lo resolveríamos de la siguiente manera:

• Dim cn As OleDbConnection
• Dim Sqladp As New SqlDataAdapter
• Sqladp.UpdateCommand.CommandText = “Update Clientes “ _
• & “ Set Ciudad = “@Ciudad” Where Nombre = @Cliente”
• Sqladp. UpdateCommand.Connection = cn
• Sqladp. UpdateCommand.Parameters.Add(“@Cliente, OleDbType.VarChar, 15)

En un próximo post mostraremos como crear una instancia con las herramientas visuales que nos proporciona Visual Basic.Net

Enlaces interesantes

• Varias Herramientas de programación
• Programas para Visual Basic .NET