SoloCodigo
Bases de Datos => MS Access => Mensaje iniciado por: franespi en Miércoles 25 de Agosto de 2010, 00:08
-
Hola a todos
Alguien me puede ayudar?
Grascias por adelantado
Estoi intentando añadir datos a dos tablas de bd access 2007 que estan relacionadas pero me sale el error de sintaxis en este from i no lo encuentro
este es parte del codigo.
Set Obj_Excel = CreateObject("Excel.Application")
' Abre el libro de Excel
Obj_Excel.Workbooks.Open filename:=path
Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=My Dropboxempresarepara-espinosaRepara-Espinosa ultima.mdb;Persist Security Info=False;"
Set Obj_Hoja = Obj_Excel
'Rango que quiero importar dela hoja
Set rst_Ado = New ADODB.Recordset
'Abre el recordset
rst_Ado.Open "SELECT Clientes.IdCliente, Clientes.NombreContacto,Clientes.ApellidosContacto, Clientes.DirecciónFacturación, Clientes.Ciudad,Clientes.EdoOProv, Clientes.CódPostal, Clientes.DNI, Clientes.POLIZA, Clientes.NúmTeléfono,Clientes.NúmFax, Pedidos.IdPedido, Pedidos.FechaPedido, Pedidos.fechaaviso, Pedidos.comptador,Pedidos.albaran, Pedidos.NOTAS FROM Clientes INNER JOIN Pedidos ON ", _
cnnActiva, adOpenStatic, adLockPessimistic
'Se posiciona al final
If rst_Ado.RecordCount <> 0 Then rst_Ado.MoveLast
Gracias
-
Bueno el problema ya lo encontré
El problema era que tenìa la consulta con "uno" a "todos" y logicamente eso no puede ser así
que hice dos consulta una por "clientes" y la otra por "pedidos"
Saludos