USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Pesquisa em várias tabelas
AAA
OURINHOS
SP - BRASIL
ENUNCIADA !
Postada em 09/02/2008 14:56 hs            

Tenho um sistema com cinco tabelas exatamente iguais, tem como fazer uma pesquisa de um determinado critério nas cinco tabelas ao mesmo tempo? (select from tabela1, tabela2, tabela3,...)

Abaixo parte do fonte;

Global TBeletronico As Recordset

Set TBeletronico = Banco.OpenRecordset("TBeletronico", dbOpenTable)

TBeletronico.Index = "ProcCodigo"

   
KoRn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 09/02/2008 15:05 hs            
Nao sei se eu posso ajudar com essa resposta mas uma vez eu vi a mesma pergunta aki no forum a solucao que o usuario adotou foi fazer uma 6 tbl onde em cada formulario ele dava dois insert into , o primeiro pro insert pra tbl normal e o outro pra tbl "reserva" ,vamos dizer assim, ele nessa tbl reserva só atribuia mais um campo codigo pra cada tbl que ele queria armazenar os valores , entende ? tipo assim
Tbl1
CodigoCli1
Nome
 
Tbl2
CodigoCli2
Nome
 
TblReserva
CodigoCli1
CodigoCli2
Nome
 
 
aew depois de fazer o insert normal, ele fazia outro pra essa tbl.....quando ele queria consultar ele ia numa tbl só consultar todos os registros , sem muito sql, fica mais facil de consultar......foi isso que ele fez , nao sei se ajudou a resposta.....
   
dummies
CERQUILHO
SP - BRASIL
Postada em 09/02/2008 15:27 hs         
Olá AAA se entendi você quer fazer uma pesquisa...ok?
Eu usaria o union + - assim
Vamos usar 3 tabelas tb1 tb2 tb3
 
select '1', ProcCodigo,Descricao from tb1 where ProcCodigo=1
union all
select '2', ProcCodigo,Descricao from tb2 where ProcCodigo=1
union all
select '3', ProcCodigo,Descricao from tb3 where ProcCodigo=1
 
Os números entre as aspas simples é apenas para identificar de qual tabela retornou o resultado, vc pode por mais campos nas consultas, porem os selects temque ter o mesmo nro de campos.
O union só funciona se os campos das tabelas forem do mesmo tipo.
 
 
Tenta ai. QQ dúvida entre novamente em contato.
 
[]s
 
 
     
AAA
OURINHOS
SP - BRASIL
ENUNCIADA !
Postada em 09/02/2008 16:08 hs            
Dummies, para a pesquisa eu utilizo:
sql = "select * from tbEletronico where Codigo like '%" & reg & "%'" 
A dúvida é como eu aplico o union all nesta linha.
 
Obs.: & reg & recebe o critério a ser pesquisado, digitado pelo usuário.
   
dummies
CERQUILHO
SP - BRASIL
Postada em 09/02/2008 16:48 hs         
AAA, eu nunca usei o union com *, normalmente informo quais campos quero que retorne.
Mas para usar o union na sintax acima fica assim:
sql = "select * from tbEletronico where Codigo like '%" & reg & "%'" & vbNewLine
sql = sql & "union all" & vbNewLine
sql = sql & "select * from tbEletronico2 where Codigo like '%" & reg & "%'" & vbNewLine
sql = sql & "union all" & vbNewLine
sql = sql & "select * from tbEletronico3 where Codigo like '%" & reg & "%'"
 
O & vbNewLine é apenas para gerar uma nova linha.
Isso só vai dar certo se os campos realmentes forem iguais....na mesma ordem.
Dúvidas entre em contato.
[]s
 
 
 
 
 
 
TÓPICO EDITADO
   
AAA
não registrado
ENUNCIADA !
Postada em 09/02/2008 17:37 hs   
dummies, perfeito, juntei 6 tabelas na pesquisa o o resultado foi o que eu esperava, ótimo.
   
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página