Mensajes

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! sad.gif
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.

Código [Seleccionar] Expandir


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.


strSQL :

Código [Seleccionar] Expandir


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$]);




'-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. 

Hola,

tengo un programa q lee desde una base de datos de access (con tablas vinculadas excel)

estas tablas vinculadas tienen un par de macros..
Es posible q desde el programa las ejecute con un boton?

una macro es "guardar" alt+r

lleno datos en el programa y luego -> apreto boton "guardar"

Alguien me ayuda?

Saludos

Hola a todos. Deseo hacer esta conexion pero me arroja un error, debe estar mal estructurado.. alguien sabe cual es mi error? Se los agradeceria. Quiero dejar la tabla como variable... ;_;

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
(lo anterior en un modulo)

(y lo de acontinuacion en el form)

Private Sub Form_Load()
Dim table_name As String

table_name = Combo1.List(Combo1.ListIndex)

db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\Cortes.mdb"
rs.Open "[" & table_name & "]" & ", db, adOpenStatic, adLockPessimistic"

--------------------

Ahora, de esta manera me funciona sin problemas:

Private Sub Form_Load()
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\Cortes.mdb"
rs.Open "[Table1]", db, adOpenStatic, adLockPessimistic

Alguien sabe? de antemano muchas gracias.

Hmmmm... asdasd todo esto es lo q tengo en el form
--me tira un error-- 3709 : "no se puede utilizar la conexion para realizar esta operacion. Esta cerrada o no es validad en este contexto."



Private Sub Form_Load()
Dim dbname As String
Dim qdef As QueryDef
Dim db1 As Database
Dim td As TableDef
Dim table_name As Variant

table_name = Combo1.List(Combo1.ListIndex)
'Project-------> Rfrence-------> Microsoft ActiveX 2.0 Object Library [ ADO ]
   db.Provider = "Microsoft.JET.OLEDB.4.0;"
    db.Open App.Path & "\Cortes.mdb"
     rs.Open "[" & table_name & "]" & ", db, adOpenStatic, adLockPessimistic"
     
     
'Call ViewRecord
'Call comboRecord


'Combo1 lista tablas---------------------------------------------
    ' Abrir base de datos.
   
    dbname = App.Path
    If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
    dbname = dbname & "Cortes.mdb"
    Set db1 = OpenDatabase(dbname)
       
    ' Listar las tablas.
    For Each td In db1.TableDefs
        ' no mostrar las tablas del sistema
        If Left$(td.Name, 4) <> "MSys" Then _
            Combo1.AddItem td.Name
    Next td

    ' control Data database.
    Data1.DatabaseName = dbname
   
   
    ' Abrir tabla seleccionada.
    Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & App.Path & "\CodigosCR.mdb;" & _
                              "Persist Security Info=False"
   
    Adodc2.RecordSource = "Codigoscorte"
    ' Refresh es necesario para que se cargue la tabla
    Adodc2.Refresh