Importar datos de excel a una tabla oracle

Hay veces que queremos almacenar en una base de datos, los datos que nos pasan o tenemos almacenados en una hoja Excel. En Oracle SQL Developer hay un método para hacerlo automáticamente.

En éste ejemplo crearemos primero una tabla la cual utilizaremos para la importación de los datos.

CREATE TABLE "OWNER"."AUX_TABLA" 

   ( "ID" NUMBER, 

"CAMPO1" VARCHAR2(20 BYTE), 

"CAMPO2" VARCHAR2(20 BYTE), 

"CAMPO3" VARCHAR2(20 BYTE), 

"CAMPO4" VARCHAR2(20 BYTE), 

"CAMPO5" VARCHAR2(20 BYTE)

   ) ;

--------------------------------------------------------

--  Constraints for Table AUX_TABLA

--------------------------------------------------------

  ALTER TABLE "OWNER"."AUX_TABLA" MODIFY ("ID" NOT NULL ENABLE);

Tomamos la hoja de Excel con los datos que vamos a importar (hemos creado tantas columnas en la tabla como en el Excel, además añadimos una columna ID y le ponemos una función que sume de 1 en 1 para tener el ID de las filas.

En Sql Developer hacemos click derecho sobre la tabla  y luego en «Importar Datos…».

 

 

Seleccionamos el archivo de Excel a importar.

 

 Se mostrara el paso 1 del asistente de importación de datos, click en siguiente:

 

Hacemos click en siguiente.

 

Selección de las columnas a importar, por defecto se seleccionan todas, click en siguiente:

 

 

Definimos la relación de las columnas del origen de los datos (excel) y las columnas de la tabla a la que deseamos importar, por defecto se relacionan en el orden de las columnas del excel y la tabla, debajo podemos ver los datos para asegurarnos que es lo que deseamos importar.

 

 Podemos realizarla haciendo click en Terminar.

 

con este proceso hemos importado datos de una hoja de excel a una tabla de Oracle.

 

 Este proceso también puede realizarse utilizando un archivo CSV.

Leer una hoja de Excel desde Visual Basic y VB.Net

Vamos a ver lo que hay que hacer para leer un archivo Excel desde código de Visual Basic.Net y Visual Basic 6.0

Desde vb.net

Antes de tocar código vamos al administrador de paquetes de Nuget, para ellos desde el Explorador de soluciones pulsamos con en botón derecho del ratón y elegimos Administrar paquetes Nuget.

Hecho esto, elegimos ExcelDataReader y lo agregamos a nuestro proyecto.

Una vez tenemos agregada esta referencia a nuestro programa podemos leer una hoja de Excel desde nuestro código de Visual Basic .Net del siguiente modo:

Dim ExcelApp As New Excel.Application

Dim worksheet As Excel.Worksheet

Dim workbook As Excel.Workbook

Dim oRange As Excel.Range

Dim oRange_Leer As Excel.Range

Private Sub Lee_Excel()

workbook = ExcelApp.Workbooks.Open("C:\Ruta\Archivo_Excel.xlsx")         worksheet = workbook.Worksheets("Hoja1

oRange = worksheet.Range("A1")  

Dim str1 As String

       str1 = oRange.Value

       Text1.Text = str1

       ExcelApp.DisplayAlerts = False                

ExcelApp.Quit()

 End Sub

Para leer un rango de la Hoja de Excel

Private Sub Lee_Excel()

        Dim i As Integer

        workbook = ExcelApp.Workbooks.Open(strOrigenOriginator) ' Abre el archivo de Excel

        worksheet = workbook.Worksheets("Hoja1")

        oRange = worksheet.Range(strRangoOriginator)

        Dim str1 As String

        For i = 1 To Maximo_Valor_Rango

            str1 = DirectCast(oRange.Value, Object(,))(i, 1)

            If (str1) = cboComboBox.Text Then

                oRange_Leer = worksheet.Range(strRangoLeido & i) ' Lee el rango de celdas y lo almacena en un Combo               cbo_ComboBox.Items.Add(oRange_Leer.Value)

            End If

        Next i

        ExcelApp.DisplayAlerts = False ' Deshabilita las Notificaciones del tipo ¿Desea Guardar el archivo?”

        ExcelApp.Quit() 

    End Sub

Desde Visual Basic 6.0

En este caso se abrirá un libro Excel para leer su contenido y luego se cerrará.

Lo primero que hay que hacer es añadir a las referencias del proyecto la dll de Excel. Para ello sobre nuestro proyecto de Visual Basic  hacemos.  Proyecto -> referencias.