VBNETBD_Practica14

' Practica 14
' Cargar un archivo de Excel en un DataGridView en VB.NET
' Necesitamos crear un archivo de Excel llamado Alumnos, con 3 columnas:
' NOMBRE - APELLIDO - ESCUELA - GENERACION
' Y a continuacion darle algunos datos (ej. 10 filas)
' Guardarlo de preferencia donde crearemos el proyecto de VB.NET
'
Imports System.IO
Imports System.Data.OleDb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As System.IO.StreamReader
        Archivo = Nothing

        DlgSeleccionarArchivo.Filter = "Archivos de Excel (*.xls;*.xlsx)|*.xls;*.xlsx"
        DlgSeleccionarArchivo.Title = "Seleccione el archivo de Excel"
        DlgSeleccionarArchivo.FileName = ""

        If DlgSeleccionarArchivo.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            txtRutaDelArchivo.Text = DlgSeleccionarArchivo.FileName
            ImportarArchivoDeExcel(txtRutaDelArchivo.Text)
            GridArchivoImportado.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            GridArchivoImportado.Refresh()
            GridArchivoImportado.Visible = True
        End If
    End Sub

    Private Sub ImportarArchivoDeExcel(ByVal ArchivoAImportar As String)
        Dim Conexion As OleDbConnection
        Dim DtSet As DataSet
        Dim misqlDa As OleDbDataAdapter
        Dim Consulta As String

        Consulta = ""
        'Para Excel 2007 y 2010
        Conexion = New System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ArchivoAImportar & "';Extended Properties=Excel 12.0;")
        'Para Excel 97-2003
        'Conexion = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OleDb.4.0;Data Source='" & ArchivoAImportar & "';Extended Properties=Excel 8.0;")
        Conexion.Open()

        Consulta = "select * from [Alumnos$]"
        misqlDa = New System.Data.OleDb.OleDbDataAdapter(Consulta, Conexion)
        DtSet = New DataSet()
        Dim Puente As New BindingSource()

        misqlDa.Fill(DtSet, "Alumnos")

        Puente.DataSource = DtSet
        Puente.DataMember = "Alumnos"

        GridArchivoImportado.DataSource = Puente

        Conexion.Close()

    End Sub
End Class