Red de conocimiento informático - Conocimiento de la instalación - Busque el código fuente para importar Excel a sqlserver

Busque el código fuente para importar Excel a sqlserver

Le brindamos un fragmento de código para cargar datos directamente a SqlServer en Excel:

Se puede modificar apropiadamente,

FormName es el formulario en la base de datos.

DBString es el campo de conexión de la base de datos,

Sub?UploadData()

Si ?FormName?=?"" ?Entonces?Exit?Sub

Dim?a?As?New?ADODB.Connection

Dim?b?As?New?ADODB.Recordset a.Open?DBString

RowCount?=?Aplicación .CountA(Filas ("1:1"))

For?i?=?2?To?application.counta(range("a:a"))

sql ?=?"

Establecer?b?=?Nada

For?j?=?1?To?RowCount?-?1

sql?= ?sql?, ?"

Siguiente

sql?=?SQL?

SQL?

b.Open?Source:= sql,?ActiveConnection :=a

Siguiente

MsgBox?"OK!"

End?Sub

Hay muchas maneras, así que basta con encontrar métodos eficaces

para completar la tarea. Debe comprender las propiedades de conexión de la base de datos. Los siguientes son los campos de conexión, que pueden modificarse según su situación real. Debe configurar los parámetros básicos usted mismo.

Provider=SQLOLEDB.1Persist Security. Info=False; ID de usuario= md-inspection;PWD= mdOL20!31)25;Directorio inicial=Online_Inspection;Fuente de datos=Cduvmdb01,1433

Además, es necesario agregar referencias relevantes al VBE página: