Skip to main content
se eliminaron 22 caracteres en el cuerpo
Origen Enlace
J. Castro
  • 2.5k
  • 8
  • 21
  • 32

DATA GRID NO MUESTRA DATOS 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 * FROMSELECT * 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!

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!

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!

Origen Enlace

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!