Últimos Temas de: jdemarest

Mostrar Temas
Páginas: [1]

Programación / Programación Visual Basic / Error en Insert into.. pasando planilla excel a access :(

en: 10 Junio 2006, 22:07 pm

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:

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:

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. :-(

2	Programación / Programación Visual Basic / Es posible ejecutar macro (excel) desde vb	en: 25 Febrero 2006, 18:09 pm
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

3	Programación / Programación Visual Basic / conexion ado con tabla variada changa ;_;	en: 24 Febrero 2006, 00:06 am
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

Páginas: [1]