• Domingo 17 de Noviembre de 2024, 06:23

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - jdemarest

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Insert Into Excel A Access
« 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.

Páginas: [1]