Ayuda INNER JOIN con BD Externas
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:DATOSBASE2.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:DATOSBASE2.MDB' " _
& "ON Tbl1.CveProd = Tbl2.CveProd ;"
Gracias 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:DATOSBASE2.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:DATOSBASE2.MDB' " _
& "ON Tbl1.CveProd = Tbl2.CveProd ;"
Gracias anticipada y a ver si alguien me puede ayudar