Ayuda INNER JOIN con BD Externas
Publicado por Gerardo (19 intervenciones) el 14/04/2005 08:17:53
Hola Tengo una semana tratando y no funciona a ver si alguien me puede ayudar. Tengo dos tablas en base de datos Diferentes.
Dim BD1 as Database
Dim Tbl1 as Recordset
Set BD1 = Ws.OpenDatabse("BASE1.MDB")
consulta = "SELECT Tbl1.Documento, Tbl1.CveProd, Tbl2.NomProd " _
& "FROM Tbl1 IN 'C:\DATOS\BASE2.MDB' INNER JOIN Tbl2 " _
& "ON Tbl1.CveProd = Tbl2.CveProd ;"
Set Tbl1 = BD1.OpenRecordSet(consulta)
Tambien he probado la consulta asi y no me funciona :
consulta = "SELECT Tbl1.Documento, Tbl1.CveProd, Tbl2.NomProd " _
& "FROM Tbl1 INNER JOIN Tbl2 IN 'C:\DATOS\BASE2.MDB' " _
& "ON Tbl1.CveProd = Tbl2.CveProd ;"
Gracis anticipada y a ver si alguien me puede ayudar
Dim BD1 as Database
Dim Tbl1 as Recordset
Set BD1 = Ws.OpenDatabse("BASE1.MDB")
consulta = "SELECT Tbl1.Documento, Tbl1.CveProd, Tbl2.NomProd " _
& "FROM Tbl1 IN 'C:\DATOS\BASE2.MDB' INNER JOIN Tbl2 " _
& "ON Tbl1.CveProd = Tbl2.CveProd ;"
Set Tbl1 = BD1.OpenRecordSet(consulta)
Tambien he probado la consulta asi y no me funciona :
consulta = "SELECT Tbl1.Documento, Tbl1.CveProd, Tbl2.NomProd " _
& "FROM Tbl1 INNER JOIN Tbl2 IN 'C:\DATOS\BASE2.MDB' " _
& "ON Tbl1.CveProd = Tbl2.CveProd ;"
Gracis anticipada y a ver si alguien me puede ayudar
Valora esta pregunta
0