Llena un DataGridView 2 Funciones Que les servira By Ponchale

[Ponchale]

Bueno aca les traigo 2 funciones simple que hize para realizar el llenado de un DataGridView con esto evitamos repetir codigo cada vez que tengamos que realizar esta operacion.

Código: (vbnet) [Seleccionar]

Public Sub EnlGrid(ByVal Sql As String, ByVal Grd As DataGridView)
        Dim da As New MySqlDataAdapter(Sql, cnn)
        Dim ds As New DataSet
        Try
            da.Fill(ds, "table")
            Grd.DataSource = ds
            Grd.DataMember = "table"


        Catch myerror As MySqlException
            MsgBox("Error en la consulta SQL", MsgBoxStyle.Information)
        End Try
    End Sub

    Public Sub EnlGridVs(ByVal Sql As String, ByVal Grd As DataGridView, ByVal Tabla As String)
        dvFiltro = New DataView(dsCombo.Tables(Tabla))
        dvFiltro.RowFilter = Sql
        Try
            Grd.DataSource = dvFiltro
            '   Grd.DataMember = Tabla

        Catch myerror As MySqlException
            MsgBox("Error en la consulta SQL", MsgBoxStyle.Information)
        End Try
    End Sub
Espero que lo disfruten cualquier duda inquietud o ejemplo de como usarlo por favor dejar un comentario