Skip to main content
1 de 2

DATA GRID NO MUESTRA DATOS VB.NET

Hola buenas noches queria pedir ayuda, tengo armado una consulta a un archivo de excel, el cual funciona la conexión, pero a la hora de hacer el SELECT * FROM, me aparecen todas las columnas en el datagridview pero no aparecen los datos... Quería saber si a alguno le pasó y como solucionarlo. Paso código.

  Public Sub prueba123()
    Dim nombretabla As String

    Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Programador\Desktop\Compartido\Datos_Precios_20180904.xlsx; Extended Properties=""Excel 12.0 Xml;HDR= YES"";")
        Try
            conn.Open()


            Using dt As DataTable = conn.GetSchema("Tables")

                Dim query As IEnumerable(Of String) =
                        From row As DataRow In dt.Rows.Cast(Of DataRow)()
                        Where CStr(row.Item("TABLE_TYPE")).ToUpperInvariant() = "TABLE"
                        Select CStr(row.Item("TABLE_NAME"))
                'Order By row.Item("TABLE_NAME")
                nombretabla = query.ToList(0)

            End Using

            Using cmd As New OleDb.OleDbDataAdapter("SELECT * from [" + nombretabla + "]", conn)

                Dim dta As New DataTable
                cmd.Fill(dta)
                'dta.Load(cmd.ExecuteReader)
                frmPreciosImportar.DataGridView1.DataSource = dta


            End Using

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

    End Using

End Sub

Espero puedan ayudarme, muchas gracias y buenas noches!