[Resolvido]Onde por o operador IN na SQL?

Amigos, em uma consulta sql no vba, onde tenho várias tabelas, onde por o operar IN?
Pois minha consulta tem que pegar dados em um banco exteno.

Grato

Já deu uma olhada na sala de Códigos VBA e Sql?

Sim olhei vi alguns casos que até usam o IN mas em apenas em consulta de uma tabela.
A minha é a seguinte:

Dim Cam As String
Dim BD As DAO.Database
Dim strSQL As String
Dim F As String
F = Me.txtBusca.Text

Cam = Application.CurrentProject.Path & "\Dados1.1.accdb"
Set BD = DBEngine.Workspaces(0).OpenDatabase(Cam, False, False, "MS Access;PWD=")




strSQL = "SELECT tbProdutos.IdProduto, tbProdutos.Produto, tbCatProdutos.Categoria, tbProdutos.Preco, tbFornecedores.NomeFantasia, tbProdutos.DtCadastro FROM tbFornecedores INNER JOIN (tbCatProdutos INNER JOIN tbProdutos ON tbCatProdutos.IdCategoria = tbProdutos.CategoriaId) ON tbFornecedores.IdFornecedor = tbProdutos.FornecedorId WHERE (((Produto) Like '" & F & "*')) ORDER BY Produto;"

Boa tarde, Marcos

O operador IN para enumerar dados que coincidam com campo
Exemplos:
1 - ... WHERE Campo1 IN (SELECT Campo2 FROM Tabela2...)
O SELECT devolve o Campo2
A cláusula WHERE filtra os valores do Campo1 que estejam contidos no Campo2

2 - SELECT ... FROM Tabela1 WHERE Campo1 IN ('1','2')
A cláusula WHERE filtra os valores do Campo1 que sejam '1' ou '2'

Alexandre, mas estou com o banco aberto via DAO. Será que é possível apenas por algo assim:

IN" & " '" & MeuCaminho & "'" & "

Mas não sei onde por.

Mas o que quer? ainda não percebi.
É que sendo em base de dados externa, a cláusula IN também pode ser o caminho da bd externa
- ... IN 'C:\...'

Descreva o que pretende para começarmos a discernir.

Na mensagem 3, eu pus toda a SQL usada no vba para abrir localmente.

Minha dúvida é como execultar a mesma consulta mas sendo em um um back-end desvinculado.


(pois várias pessoas irão usar a mesma base de dados, e é melhor desvincular)

não sei se funciona, mas a instrução é mais ou menos assim;


strSQL = "SELECT tbProdutos.IdProduto, tbProdutos.Produto, tbCatProdutos.Categoria, tbProdutos.Preco, tbFornecedores.NomeFantasia, tbProdutos.DtCadastro" _
& " FROM tbFornecedores" _
& " IN 'C:\Dados1.1.accdb'" _
& " INNER JOIN (tbCatProdutos INNER JOIN tbProdutos ON tbCatProdutos.IdCategoria = tbProdutos.CategoriaId)" _
& " ON tbFornecedores.IdFornecedor = tbProdutos.FornecedorId" _
& " WHERE (((Produto) Like '" & F & "*')) ORDER BY Produto;"

Grato Miguel, mas infelismente não funcionou. Inclusive eu já tinha feito um teste assim...

Olá

Veja se este tópico ajuda:

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/1121000932?r=7221030932#7221030932

Sucesso!

Obrigado Avelino, mas como usar esses dados para popular uma listbox? Não posso usar o Add, tem que ser por origem da linha, pois tenho milhares de registros e já ouvi falar que o o Add trava se tiver muitos registro.

Grato

Fiz um teste aqui no meu Maestro e carregou a lista direitinho:

Me!Lista8.RowSource = "SELECT códigoDocliente FROM tblpedidos IN '' [;DATABASE=c:\maestro\maestro_v3_be.accdb;PWD=a1234];"


Sucesso!

Veja uma outra forma de carregar a lista:

Código:

Private Sub Form_Load()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Set bd = OpenDatabase("c:\maestro\maestro_v3_be.accdb", False, False, ";pwd:=a1234")
Set rs = bd.OpenRecordset("SELECT códigoDocliente FROM tblpedidos;")
Set Me!Lista8.Recordset = rs 'O segredinho aqui é o SET no início
End Sub

Sucesso!

Perfeito Avelino, deu certo!

Muito obrigado.