Programación General > Visual Basic 6.0 e inferiores

 Insert Into Excel A Access

(1/2) > >>

jdemarest:
Hola a todos.
Tengo una consulta insert into.. tomo un excel y quiero dejarlo en una tabla access. al momento de ejecutar la sentencia me aparece un error! :(
El error es:

'-2147217900 (80040e14)' en tiempo de ejecucion:
Error de sintaxis en la clausula FROM.

Aca esta el codigo q uso. Les agradezco desde este minuto toda sugerencia, cya.

-----------------------------------------------------------
Dim cnn As New ADODB.Connection
Dim strSQL As String

With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Database\Cortes.mdb;" & _
"Persist Security Info=False; Jet OLEDB:Engine Type=4"
.Open
End With

'Asumiendo q tabla Access existe
strSQL = "INSERT INTO Cortes ([Nº], [Interlocutor], [Fecha Orden], [Direccion], [Comuna], [Medidor], [Hora Solicitud], [Fecha Solicitud], [Monto], "
strSQL = strSQL & "[Fecha Corte Visita], [Hora Corte Visita], [Codigo Corte], [Lectura Medidor], [Sello Corte], [Cortador], [Obs Terreno], [Folio Papeleta])"
strSQL = strSQL & "SELECT Nº, Interlocutor, Fecha_Orden, Direccion, Comuna, Medidor, Hora_Solicitud, Fecha_Solicitud, Monto, "
strSQL = strSQL & "Fecha_Corte_Visita, Hora_Corte_Visita, Codigo_Corte, Lectura_Medidor, Sello_Corte, Cortador, Obs_Terreno, Folio_Papeleta "
strSQL = strSQL & "FROM [Excel 8.0;DATABASE=" & Text1.Text & ";HDR=Yes;IMEX=1].[solicitudes$]);"

cnn.Execute strSQL
cnn.Close
Set cnn = Nothing
-----------------------------------------------------------
Text1 contiene una cadena con la direccion del xls.

No se de q manera corregir el codigo, vean si encuentran algo.

Saludos.

DiabloRojo:
Hola jdemarest.
Pues la sintaxis del INSERT es:

--- Código: Text --- INSERT (<GrupoDeCaMpos>) VALUES (<GrupoDeValores>)  y la verdad entre tantas líneas no veo el "VALUES". Prueba a ver si es eso...


Saludos


DiabloRojo

Informatico:
Puede ser que despues del FROM parece que no has puesto comillas a la cadena de conexion y tambien por VALUES por que si usas un select debe ser ser : values(select * from mitabla).
Bueno espero te ayude en algo.

jdemarest:

--- Cita de: "DiabloRojo" --- Hola jdemarest.
Pues la sintaxis del INSERT es:

--- Código: Text --- INSERT (<GrupoDeCaMpos>) VALUES (<GrupoDeValores>)  y la verdad entre tantas líneas no veo el "VALUES". Prueba a ver si es eso...


Saludos


DiabloRojo
--- Fin de la cita ---
Values' no se usaria en esa instancia.

vale Diablorojo

T_T

jdemarest:

--- Cita de: "Informatico" --- Puede ser que despues del FROM parece que no has puesto comillas a la cadena de conexion y tambien por VALUES por que si usas un select debe ser ser : values(select * from mitabla).
Bueno espero te ayude en algo.
 
--- Fin de la cita ---

mmm, armando el string con comas luego del from tp pesca.

Q error podria estar sucediendo?   :blink:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente