Galera, eu acho que não é possível, más queria saber se alguém sabe se é possível fazer uma busca em banco de dados diferente ( compras.mdb , notas_fiscais.mdb )

Queria saber se é possível, pois vou ter que fazer uma atualização nos dois bancos, a princípio contornei o problema colocando um label (lblnf.caption) onde guardo o nº da minha nf e depois faço uma outra busca no banco notas_fiscais, o problema é que mais para frente terei que atualizar os dados desses bancos (aprovado=SIM) e eu não queria fazer um loop para isso. Se for possível fazer essa busca, será que alguém pode me ajudar a montá-la, depois eu me viro com o update

 

 

Set DBItens = OpenDatabase(App.Path & "ota_fiscal.mdb")
Set DBPedido = OpenDatabase(App.Path & "compras.mdb")

Set ItensPedido = DBPedido.OpenRecordset("select descricao1,quant,valunit,nnota,npedido,complementopedido from itenspedido where npedido=" & Val(LblNPedido.Caption) & " and complementopedido=" & Val(LblComplementoPedido.Caption)) 'essa é a busca do meu compras.mdb

 

Set Itens = DBItens.OpenRecordset("select nnota,valor,datavencimento from pagar where nnota=" & Val(LblNf.Caption)) 'essa é a busca do meu notas_fiscal.mdb

Obrigado a todos

Brother é possível sim ja fiz isso um tempo atraz mas nao to lembrado como é

irei ver e retorno aqui no forum

 

Ivo

é alguma coisa do tipo

a string [c:anco.mdb] voce pode pegar da propriedade NAME da variavel de banco

exe:

e colocar no luagar da string abaixo pra não ficar um valor fixo entende

select * from [c:anco.mdb].nomeTabela

 

acho que é isso se nao resolver posta ai de novo

Meu select ficou dessa forma:

Set Itens = DBItens.OpenRecordset("select nnota,valor,datavencimento from pagar where nnota=" & "select nnota from [" & DBPedido.Name & "].itenspedido where npedido=" & Val(LblNPedido.Caption) & " and complementopedido=" & Val(LblComplementoPedido.Caption))

Na tela do immediate sai assim:

select nnota,valor,datavencimento from pagar where nnota=select nnota from [C:Controle de FuncionariosAtualCompras.mdb].itenspedido where npedido=56 and complementopedido=7

Só que está dando o erro de sintax a partir da linha

nnota=select nnota from [C:Controle de FuncionariosAtualCompras.mdb].itenspedido where npedido=56 and complementopedido=7

 

Será que poderia me ajudar com esse pepino ?

 

Valeu

 

 

Obs: Lembrando que aqui no site não sei pq, a barra não está saindo

O meu problema está sendo quando eu jogo um segundo select dentro da consulta

Eu separei o segundo select e mandei buscar apenas para ver se dava algum erro e buscou o item corretamente

Set Itens = DBItens.OpenRecordset("select nnota from [" & DBPedido.Name & "].itenspedido where npedido=" & Val(LblNPedido.Caption) & " and complementopedido=" & Val(LblComplementoPedido.Caption))

Agora quando jogo essa mesma consulta dentro do primeiro select é que ele está dando erro ao tentar fazer a consulta que eu coloquei acima

 

Set Itens = DBItens.OpenRecordset("select nnota,valor,datavencimento from pagar where nnota=" & "select nnota from [" & DBPedido.Name & "].itenspedido where npedido=" & Val(LblNPedido.Caption) & " and complementopedido=" & Val(LblComplementoPedido.Caption))

As consultas individualmente funcionam perfeitamente, agora quando tento uni-las é que o bicho está pegando

 

Kerplunk, fazendo da sua sujestão, como que eu poderia fazer a pesquisa, será que se eu colocar o caminho no from e apelidar, posso utilizar ele normalmente ?

Eu não tentei nada ainda, apenas me surgiu isso na mente agora que eu estava digitando essa questão