Me encuentro realizando una importación de datos de una planilla excel a un datagrid en VB.net
Cosa que logro hacer, si asigno el DataTable al DataGrid. Pero lo que realmente necesito es pasar campo a campo de la planilla al DataGrid.
Para realizar esto generé una función que llamada cargar_hoja, y es así.
Private Sub cargar_hoja(f As String, s As String)
Dim dz As New DataTable
Dim cont As Integer = 1
If ((String.IsNullOrEmpty(f)) OrElse (String.IsNullOrEmpty(s))) Then _
Throw New ArgumentNullException()
Try
Dim sql As String = "SELECT * FROM [" & s & "$]"
Dim adaptador As New OleDbDataAdapter(sql, Conexion)
Dim ds As New DataTable("Excel")
Dim dt As New DataTable
adaptador.Fill(ds)
dt = limpiarFilas(ds)
gvRegistros.DataSource = dt
Catch ex As Exception
MsgBox("Error: " + ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Esto funciona, el problema es cuando trato de pasar parametro a parametro para el datagrid, e intento hacerlo de la siguiente manera.
Private Sub cargar_hoja(f As String, s As String)
Dim dz As New DataTable
Dim cont As Integer = 1
If ((String.IsNullOrEmpty(f)) OrElse (String.IsNullOrEmpty(s))) Then _
Throw New ArgumentNullException()
Try
Dim sql As String = "SELECT * FROM [" & s & "$]"
Dim adaptador As New OleDbDataAdapter(sql, Conexion)
Dim ds As New DataTable("Excel")
Dim dt As New DataTable
adaptador.Fill(ds)
dt = limpiarFilas(ds)
While dt.Rows.Count > cont
gvRegistros.Rows.Add(1)
gvRegistros.Item("col1", cont).Value() = dz.Rows(cont)("B")
gvRegistros.Item("col2", cont).Value() = dz.Rows(cont)("C")
cont += 1
End While
Catch ex As Exception
MsgBox("Error: " + ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
El Error que arroja es: "No hay ninguna fila en posición 1"
Espero puedan ayudarme