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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  consulta com dois campos
Trovão
INDAIATUBA
SP - BRASIL
Postada em 04/02/2005 15:10 hs            
preciso de uma ajuda...
No meu formulario tenho dois campos ( txt_obra e txt_etapa ). Possuo uma tabela que possui uma chave primaria composta de dois campos (cod_obra e cod_etapa). A pertunga e: Como faço a consulta para achar este registro na tabela? Tentei fazer assim mas nao deu certo. O que esta errado? alguem pode me ajudar?
Segue Exemplo:
    txt_etapa.Text = Format(txt_etapa.Text, "000000")
    vTBValores_Etapas.Find "cod_etapa = " & txt_etapa And "cod_obra = " & txt_obra, , , 1
        If Not vTBValores_Etapas.EOF Then ' se encontrou
        lbl_etapa = vTBValores_Etapas!desc_etapa
        txt_vlr_acumulado = Format(vTBValores_Etapas!valor_acumulado, "currency")
        vValor_Etapa = vTBValores_Etapas!valor
        consulta = True
    End If
qualquer coisa meu msn eh: savcom_tecnologia@hotmail.com
 
grato pela atenção de todos
     
Los Zeus®
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 04/02/2005 15:37 hs            
Não entendi muito a sua duvida mas simplificaria num simples If acho que fica mais fácil:
 
Tabela.MoveF i r s t
While Tabela.eof = False
If txt_etapa = Tabela.Fields!cod_etapa and txt_obra = Tabela.Field!cod_obra Then
   'Aqui vc coloca a condição se for verdadeira o resultado
else
  Tabela.MoveNext
endif
Wend
 
Bom no caso acima uma consulta DAO simples levando em consideração que no lugar da pavra "Tabela" coloque o nome da tabela do seu BD....Bom acho que da pra ter uma idéia..rs
     
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