DATAGRIDVIEW no muestra los datos.
Publicado por julian (3 intervenciones) el 06/09/2018 00:06:32
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.
Espero puedan ayudarme, muchas gracias y buenas noches!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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!
Valora esta pregunta
0