Gerardo
17 de Abril del 2005

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