12-feb-2008, 15:49
|
#1 (permalink) |
 Fecha de Ingreso: diciembre-2007
Mensajes: 8
|
Insertar Por Columnas De Excel
ESTOY DESARROLLANDO UN SISTEMA EN VB6 Y PARA ESTO REQUIERO DE INSETAR TODA UNA COLUMNA DE EXCEL A UNA TABLA EN SQL, PARA LUEGO AGREGAR LAS DEMAS COLUMNAS EN SU LUGAR CORRESPONDIENTE, LO QUE SUCEDE ES QUE EN EL EXCEL NO ESTAN TODAS LAS COLUMNAS DE LA TABLA ASI QUE NO PUEDO HACER UN INSERT DIRECTO... GRACIAS POR SUS RESPUESTAS  |
|
|
|
13-feb-2008, 00:18
|
#2 (permalink) |
 
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 790
|
Re: Insertar Por Columnas De Excel
Puedes probar haciendo una conexión al Libro Excel:
Código:
En la primera fila de la hoja Excel tienes que tener escrito el nombre del campo de la tabla de tu BD.Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source= " & App.Path & "\Libro1.xls;" & _
"Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
cn.Execute "INSERT INTO " & MiTablaSQL & " IN '" & MiBdSQL & "' SELECT * FROM [Hoja1$]"
|
|
|
|
Mode Lineal
