SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jdemarest en Jueves 18 de Mayo de 2006, 07:18

Título: Insert Into Excel A Access
Publicado por: jdemarest en Jueves 18 de Mayo de 2006, 07:18

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.

Título: Re: Insert Into Excel A Access
Publicado por: DiabloRojo en Jueves 18 de Mayo de 2006, 15:41

Hola jdemarest.
Pues la sintaxis del INSERT es:

Código: Text

1.  
2. INSERT (<GrupoDeCaMpos>) VALUES (<GrupoDeValores>)
3.  
4.  

y la verdad entre tantas líneas no veo el "VALUES". Prueba a ver si es eso...


Saludos


DiabloRojo

Título: Re: Insert Into Excel A Access
Publicado por: Informatico en Jueves 18 de Mayo de 2006, 17:02

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.

Título: Re: Insert Into Excel A Access
Publicado por: jdemarest en Jueves 18 de Mayo de 2006, 19:21

Cita de: "DiabloRojo"

Hola jdemarest.
Pues la sintaxis del INSERT es:

Código: Text

1.  
2. INSERT (<GrupoDeCaMpos>) VALUES (<GrupoDeValores>)
3.  
4.  

y la verdad entre tantas líneas no veo el "VALUES". Prueba a ver si es eso...


Saludos


DiabloRojo

Values' no se usaria en esa instancia.

vale Diablorojo

T_T

Título: Re: Insert Into Excel A Access
Publicado por: jdemarest en Jueves 18 de Mayo de 2006, 19:24

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.
 

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

Q error podria estar sucediendo?   :blink:

Título: Re: Insert Into Excel A Access
Publicado por: jdemarest en Viernes 19 de Mayo de 2006, 00:16

up

Título: Re: Insert Into Excel A Access
Publicado por: jdemarest en Viernes 19 de Mayo de 2006, 00:46

strSQL :

Código: Text

1. INSERT INTO Cortes ([Nº], [Interlocutor], [Fecha Orden], [Direccion], [Comuna], [Medidor], [Hora Solicitud], [Fecha Solicitud], [Monto], [Fecha Corte Visita], [Hora Corte Visita], [Codigo Corte], [Lectura Medidor], [Sello Corte], [Cortador], [Obs Terreno], [Folio Papeleta])SELECT Nº, Interlocutor, Fecha_Orden, Direccion, Comuna, Medidor, Hora_Solicitud, Fecha_Solicitud, Monto, Fecha_Corte_Visita, Hora_Corte_Visita, Codigo_Corte, Lectura_Medidor, Sello_Corte, Cortador, Obs_Terreno, Folio_Papeleta FROM [Excel 8.0;DATABASE=C:\PlanillasExcel\CORTES 2006\FEBRERO\Cortes 17.02.06.xls;HDR=Yes;IMEX=1].[solicitudes$]);
2.  

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

 :(

alguien puede identificar el error?
Gracias por el tiempo de todas maneras.