problema para llenar un datagridview

[Ka0stj]

Hola rlavisse

Yo utilizo el siguiente método sub y me funciona a la perfección:

Código vb:

Public Sub Cargar_DatagridView(ByVal Instruccion_Sql, ByVal dgv, ByVal dataset, ByVal tabla)
 
        'Asigno a mi objeto SqlConnection mi cadena de conexión
        objConn = New SqlConnection(miconexion.StrConexion)
 
        'Reseteo el Dataset para no mostrar repetidos
        dataset.Clear()
        Try
            ' Abro la conexión
            objConn.Open()
            
            'Declaro una variable String que contendra la cadena de mi consulta a ejecutar
            Dim sql As String = Instruccion_Sql
 
            'Declaro una variable tipo SqlCommand
            Dim cmd As New SqlCommand(sql, objConn)
 
            'Color alternado de celdas
            With dgv
                .RowsDefaultCellStyle.BackColor = Color.White
                .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
            End With
 
            'Creo un SqlDataAdapter y le mando mi cadena y conexión
            adaptador = New SqlDataAdapter(sql, objConn)
            
            'Lleno mi dataset 
            adaptador.Fill(dataset, tabla)
            dgv.DataSource = dataset.Tables(tabla)
 
            'ejecuto mi consulta
            cmd.ExecuteNonQuery()
            cmd.Dispose()
           
           'Cierro la conexión
            objConn.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            objConn.Close()
        End Try
 
    End Sub
 

Espero y te sirva, cualquier duda la comentas... Saludos