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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Criar Consulta com duas tabelas distintas Urgente
Pierre
não registrado
Postada em 06/12/2004 09:39 hs   
Tenho duas tabelas: se5.dbf e SedPardiade.dbf preciso fazer um relacionamento com campo E5_Natureza X ED_Codigo e trazer 05 campos de cada tabela, alguém sabe como fazer isto via código, tipo DAO ou ADO com SQL, ou de qualquer geito?
 
grato
Pierre
     
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 06/12/2004 11:54 hs            
Select se5.*,sedpardiade.* from se5,sedpardiade where se5.e5_natureza = sedpardiade.ed_codigo
 
essa é a SQL, vc pode usar tanto no ADO ou no DAO
 
Roberto
     
Pierre
não registrado
Postada em 06/12/2004 14:20 hs   
Vc sabe o código completo para fazer a conexão com as duas tabelas .dbf e onde colocar este código q vc me passou?
 
grato
Pierre
     
TiagoAlgodas
ITABUNA
BA - BRASIL
Postada em 11/08/2005 15:34 hs            
você coloca este codigo em uma string para ser executada por um objeto do tipo recordset ou pelo proprio objeto de conexão
 
Dê uma lida em DAO

       Tiago Gomes Pereira 
------------------------------------
 MSN: algodasirs@hotmail.com
E-mail: algodas@gmail.com

     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 11/08/2005 16:46 hs            
Pierre, tente assim (ADO com access)
 
Dim rst as adodb.recordset
Dim cnn As New adodb.Connection
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=c:db.mdb;Jet OLEDB:Database Password=" & Trim(senha_banco) & ";"
    cnn.Open
    rst.Open "Select * from cliente where cod_cliente = 3", arq, adOpenKeyset, adLockOptimistic
rst.fields........
 

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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