Cómo configurar un control DataGrid en tiempo de ejecución

Por Enrique Martínez Montejo

Última revisión: 17/06/2005

En el siguiente ejemplo, voy a mostrar la manera de crear los objetos necesarios para configurar y enlazar un control DataGrid en tiempo de ejecución. Por tanto, si ya tiene insertado un control DataGrid en el formulario de inicio de la solución, y ha importado en el archivo el espacio de nombre System.Data, sólo le queda copiar/pegar el siguiente código en el evento Load del formulario. Por supuesto que deberá de modificar la cadena de conexión, para abrir la base de datos Microsoft Access cuyos datos de la tabla desea mostrar en el control DataGrid.

Private Sub Form1_Load(ByVal sender As System.Object,
                       ByVal e As System.EventArgs) Handles MyBase.Load

    ' Declaramos el objeto OleDbConnection
    '
    Dim cnn As New OleDb.OleDbConnection()

    Try
        ' Construimos la cadena de conexión
        '
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=C:\Mis documentos\Neptuno.mdb"

        ' Declaramos y configuramos el objeto OleDbCommand
        '
        Dim cmd As New OleDb.OleDbCommand()
        With cmd
            .CommandText = "SELECT * FROM Clientes"
            .Connection = cnn
        End With

        ' Creamos un nuevo objeto DataAdapter,
        ' asignándole el objeto Command.
        '
        Dim da As New OleDb.OleDbDataAdapter(cmd)

        ' Abrimos la conexión
        '
        cnn.Open()

        ' Utilizamos el adaptador para crear un nuevo
        ' objeto DataTable denominada Clientes.
        '
        Dim ds As New DataSet()
        da.Fill(ds, "Clientes")

        ' Configuramos el control DataGrid
        '
        With DataGrid1
            .DataSource = ds
            .DataMember = "Clientes"
        End With

    Catch ex As OleDb.OleDbException
        MessageBox.Show(ex.Errors(0).Message)

    Catch ex As Exception
        MessageBox.Show(ex.Message)

    Finally
        ' Cerramos la conexión
        '
        cnn.Close()
        cnn = Nothing

    End Try

End Sub

El control DataGrid también se podía haber configurado de la siguiente manera:

DataGrid1.DataSource = ds.Tables("Clientes")

 

Otros enlaces de interés:

Indice de Ejemplos de ADO .NET

Cómo configurar fácilmente un control DataGrid en tiempo de diseño

---

Enrique Martínez Montejo - 2005

NOTA: La información contenida en este artículo, así como el código fuente incluido en el mismo, se proporciona COMO ESTÁ, sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo explicado, recomendado o sugerido en el presente artículo.

NOTE: The information contained in this article and source code included therein, is provided AS IS without warranty of any kind, and confers no rights. You assume any risk to implement, use or run it explained, recommended or suggested in this article.