Cardoso é o seguinte, tenho um BD (BD1) com uma consulta (Aniver), eu utilizo essa consulta em um componente data no meu sistema, preciso exportar essa consulta para outro BD (BD2), mas preciso que isso seja feito pelo próprio VB.

 

vlu...

Olá,

 

Acho que entendi, você quer abrir um banco de dados que tem uma consulta específica e quer copiá-la para dentro de outro banco de dados de forma que esse outro tenha a mesma consulta que o primeiro, certo?

Bom, se for isso, é mais fácil usar a DAO:

 

Dim BancoOrigem as DAO.Database, BancoDestino as DAO.Database

Dim ConsultaOrigem as DAO.QueryDef, ConsultaDestino as QueryDef

 

Set BancoOrigem = OpenDatabase(<Banco de Origem>, False)

Set BancoDestino = OpenDatabase(<Banco de Destino>, False)

 

Set ConsultaOrigem = BancoOrigem.QueryDefs(<Nome da Consulta>)

Set ConsultaDestino = BancoDestino.CreateQueryDef(ConsultaOrigem.Name, ConsultaOrigem.SQL)

 

Set ConsultaOrigem = Nothing

Set ConsultaDestino = Nothing

Set BancoOrigem = Nothing

Set BancoDestino = Nothing

 

Acho que isso deve resolver.

Um abraço,

Sandro.