Red de conocimiento informático - Aprendizaje de programación - ¿Cómo importar varias hojas de trabajo en Excel a una base de datos SQL? ¿neto?

¿Cómo importar varias hojas de trabajo en Excel a una base de datos SQL? ¿neto?

Pruebe

Atenuar xlsConn como cadena, xlscmd como cadena, SourcePath como cadena = servidor. MapPath & amp" ~/Excel1.xls "

Atenuar ExcelConnection como nuevo OleDb. conexión oledb(" Proveedor = Microsoft.ACE.oledb.12.0; DataSource = ' " & Ruta de origen & Propiedades extendidas = " " Excel 12.0 Xml; HDR = Sí "")

xlsConn = ExcelConnection. Cadena de conexión

Utiliza la conexión como un nuevo contacto OleDbConnection(xlsConn)

. Abrir() : Conexión Excel. Open()

Dim SheetName As String = "Sheet2 "

xls cmd = " SELECT[columnA]FROM[" & nombre de la hoja de trabajo. "$]"

Comando atenuar como nuevo OleDbCommand(xlscmd, connect)

Crear DbDataReader en hoja de datos

Utilizar dr como comando OleDbDataReader =. ExecuteReader()

dim cmd As String = "truncar tabla" y nombre de la tabla

SqlCmd = New OleDbCommand(cmd, SqlConn)

SqlCmd. ExecuteNonQuery()

Copia por lotes a SQL Server

Atenuar sqlConnectionString como cadena

sqlConnectionString = " Fuente de datos = " & fuente de datos &" ;Directorio inicial = " & ampSqlConn. Database&";PersistSecurityInfo=TrueUserID=saPassword="

Utilizar copia masiva como nueva SqlBulkCopy(sqlConnectionString)

Copia masiva. destino tableName = " tableName "

Copia por lotes. Escribir servidor

Devolver True

Uso final

Uso final

Uso final

Capturar ex como excepción

Devuelve Falso

Finalizar intento

Similar a esto. . .

上篇: ¿Por qué necesitas cerrar la clase Java Scanner? ¿Qué pasará si no la cierras? 下篇: ¿Cuáles son las diferencias entre las máquinas de mascarillas n95 y kn95? ¿Cuál es más efectiva, n95 o kn95? ¿Hay mascarillas n95 lavables?

Artículos populares