Debido a la insistencia de algunos lectores de este blog, me complace retomar un antiguo ejemplo donde rellenamos un DGV con los datos de una hoja XLS y posteriormente creamos una BD con la tabla correspondiente y en formato MDB. Por lo tanto seguro que con las nuevas herramientas podremos realizar tareas similares con mucho menos código, por eso matizo que se trata de un ejemplo reanimado de 2005 al 2010 J
Las versiones tanto de la XLS como la MDB corresponden al 97-2003. Para poder ejecutar este ejemplo necesitas crear un nuevo proyecto ‘Winforms’ en VB y simplemente copiar y pegar el código en el ‘form1’.
Tenéis que tener en cuenta para que funcione necesitas guardar tu hoja en la carpeta del proyecto ‘Bin/Debug’ (o reléase) según estés compilando y con el nombre ‘Libro1.xls’.
No dudéis en contactar conmigo para aclarar cualquier duda, además si necesitas el proyecto el completo estaré encantado de facilitártelo (Lo tengo para Visual Studio 2010).
Espero vuestras valoraciones.
Happy reentrada!
Pep Lluis,
' --------------------------------------------------------------------------------------------
' * AVISO IMPORTANTE * Este programa es propiedad (c)2010 Pep Lluis Bano.
' * AVISO IMPORTANTE * Se autoriza su uso, solo con fines formativos.
'
' EL USO DE ESTA APLICACION IMPLICA LA ACEPTACION DE LAS CONDICIONES DE USO QUE SE APLICAN
' AL PROGRAMARIO "Open Source", ESTE PROGRAMA SE PROPORCIONA "COMO ESTA", NO OBLIGANDO AL
' AUTOR A CONTRAER COMPROMISO ALGUNO PARA CON QUIENES LO UTILICEN, ASI COMO DECLINANDO
' CUALQUIER REPONSABILIDAD DIRECTA O INDIRECTA, CONTRAIDA POR LOS MISMOS EN SU UTILIZACION
' FUERA DE LOS PROPOSITOS PARA EL QUE FUE ESCRITO Y DISEÑADO.
'
' CUALQUIER MODIFICACIÓN Y DISTRIBUCION DEL MISMO DEBERA CONTENER Y CITAR SU FUENTE Y ORIGEN.
'
' ASI MISMO EL AUTOR AGRADECERA CUALQUIER COMENTARIO o CORRECCION QUE LOS LECTORES CONSIDEREN
' CONTRIBUYENDO ESTOS ULTIMOS A MEJORAR LA APLICACION CON FINES FORMATIVOS.
' CONSIDEREN ENVIAR SUS COMENTARIOS ulizando la opcion [Contact]
' --------------------------------------------------------------------------------------------
Imports ADOX
Imports System.Data.OleDb
Imports System.Text.RegularExpressions
Public Class Form1
'Definir conexion,adaptador y Dataset
Private MiXlsConexion As OleDbConnection
Private MiXlsAdaptador As OleDbDataAdapter
Private MiXlsDataSet As New DataSet()
Private MiXlsDGV As New DataGridView
Private MiMdbConexion As New OleDbConnection
Private MiMdbAdaptador As New OleDbDataAdapter
Private MiMdbDataSet As New DataSet()
Private Mienlazador As New BindingSource
Private MiMdbDGV As New DataGridView
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
MiMdbConexion.Close()
End Sub
Private Sub Form1_Load() Handles MyBase.Load
Dim MiXlsEtiqueta As New Label
MiXlsEtiqueta.Text = "Contenido de la Hoja Excel"
MiXlsEtiqueta.TextAlign = ContentAlignment.MiddleCenter
MiXlsEtiqueta.BorderStyle = BorderStyle.Fixed3D
MiXlsEtiqueta.BackColor = Color.Green
MiXlsEtiqueta.ForeColor = Color.White
MiXlsEtiqueta.Dock = DockStyle.Top
Dim MiXlsDGBPanel As New Panel
MiXlsDGBPanel.AutoSize = True
MiXlsDGV.Dock = DockStyle.Top
MiXlsDGBPanel.Controls.AddRange(New Control() {MiXlsDGV, MiXlsEtiqueta})
Dim MiMdbEtiqueta As New Label
MiMdbEtiqueta.Text = "Contenido de la BD resultante"
MiMdbEtiqueta.TextAlign = ContentAlignment.MiddleCenter
MiMdbEtiqueta.BorderStyle = BorderStyle.Fixed3D
MiMdbEtiqueta.BackColor = Color.Maroon
MiMdbEtiqueta.ForeColor = Color.White
MiMdbEtiqueta.Dock = DockStyle.Top
Dim MiMdbDGBPanel As New Panel
MiMdbDGBPanel.AutoSize = True
MiMdbDGV.Dock = DockStyle.Top
MiMdbDGBPanel.Controls.AddRange(New Control() {MiMdbDGV, MiMdbEtiqueta})
Dim BotonDeActualizar As New Button
BotonDeActualizar.Dock = DockStyle.Bottom
BotonDeActualizar.Text = "Generar Archivo MDB"
Me.AutoSize = True
Me.Text = "De XLS a MDB"
MiXlsDGBPanel.Dock = DockStyle.Top
MiMdbDGBPanel.Dock = DockStyle.Top
Me.Controls.AddRange(New Control() {MiMdbDGBPanel, MiXlsDGBPanel, BotonDeActualizar})
AddHandler BotonDeActualizar.Click, AddressOf GenerarMdb
LeerXls()
End Sub
Private Sub LeerXls()
'Abrir y llenar el DGV con la hoja de excel
MiXlsConexion = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Extended Properties = 'Excel 8.0';" + _
"Data Source=|DataDirectory|\libro1.xls;")
MiXlsAdaptador = New OleDbDataAdapter("SELECT * FROM [Hoja1$]", MiXlsConexion)
MiXlsConexion.Open()
MiXlsAdaptador.Fill(MiXlsDataSet)
MiXlsDGV.DataSource = MiXlsDataSet.Tables(0)
End Sub
Private Sub GenerarMdb()
'Eliminar la BD1 si existe
If My.Computer.FileSystem.FileExists("Bd1.mdb") Then
My.Computer.FileSystem.DeleteFile("Bd1.mdb")
End If
'
Dim Nombrede_MiBd = "Bd1.mdb"
Dim NombreDe_MiTabla = "Detalles"
' Para crear una nueva BD de Access, me viene a la
' memoria la funcion Catalog del ADOX.DLL
Dim Catalogo As New ADOX.Catalog()
Catalogo.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Nombrede_MiBd)
'
' Una vez creado el nuevo catalogo añadiremos
' la tabla utilizando el suministrador OLEDB
MiXlsConexion = New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & Nombrede_MiBd)
'
' Obtenendremos el esquema de la nueva BD
MiXlsConexion.Open()
Dim MiEsquema As DataTable = MiXlsConexion.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, NombreDe_MiTabla, "Detalles"})
'
' El ultimo paso sera crear la estructura en funcion a las columnas de la hoja
Dim Campos As String = "Create Table [" + NombreDe_MiTabla + "] ("
For Each col As DataGridViewTextBoxColumn In MiXlsDGV.Columns
If Campos.EndsWith(")") Or Campos.EndsWith("Key") Then Campos += ", "
Campos += "[" + Regex.Replace(col.DataPropertyName, " ", "_") + "] Text(50)"
Next
Campos += ")"
Dim MiMandato As New OleDbCommand(Campos, MiXlsConexion)
MiMandato.ExecuteNonQuery()
MiXlsConexion.Close()
'
' Añadir todos las filas como registros a la BD
MiMdbConexion = New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & Nombrede_MiBd)
MiMdbAdaptador = New OleDbDataAdapter("SELECT * FROM Detalles", MiMdbConexion)
Dim commandbuilder As New OleDb.OleDbCommandBuilder(Me.MiMdbAdaptador)
MiMdbConexion.Open()
MiMdbAdaptador.Fill(MiMdbDataSet)
Dim Registro As DataRow
For Each row As DataGridViewRow In MiXlsDGV.Rows
If row.Index < MiXlsDGV.RowCount - 1 Then
Registro = MiMdbDataSet.Tables(0).NewRow
For Each col As DataGridViewColumn In MiXlsDGV.Columns
'Añadir una entrada por celda
Registro(col.Index) = row.Cells(col.Index).Value
Next
'Añadir una linea por fila
MiMdbDataSet.Tables(0).Rows.Add(Registro)
End If
Next
MiMdbAdaptador.Update(MiMdbDataSet)
MiMdbDGV.DataSource = MiMdbDataSet.Tables(0)
MiMdbConexion.Close()
End Sub
End Class
