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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Consulta ADO
An
PORTO FERREIRA
SP - BRASIL
Postada em 02/06/2004 17:27 hs         
Como eu faço uma consulta no ADO com o commando Seek?

Anderson Leal
     
Vaughyman
RIO DE JANEIRO
RJ - BRASIL
Postada em 02/06/2004 20:23 hs            
Use o comando Find.
Sintaxe:
rs.find "Seucampo=" & Seuvalor
if rs.eof then
msgbox "Não Encontrou!"
else
msgbox "encontrou!"
Endif

"IF FUNCIONOU = TRUE THEN Emoções

     BLOQUEIE O POST

ELSE Emoções

    POST NOVAMENTE INFORMANDO O QUE ACONTECEU

ENDIF Emoções
     
Rochª
 Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 02/06/2004 22:49 hs            
Com seek seria
 
    tbl_aux.Seek "=", codigo
    If tbl_aux.NoMatch Then ' Se não exitir cria um novo registro
        tbl_aux.AddNew
    Else   ' Prepara para editar o registro
        tbl_aux.Edit
    End If
Se voce usar dois campos chaves use
    tbl_aux.Seek "=", codigo, codigo_2
ou
    tbl_aux.Seek ">", codigo, codigo_2
 
Obs Voce tem que abrir o arquivo com a chave que sera lida.
    Set tbl_aux = Banco_dados.OpenTable("Clientes")
    tbl_aux.Index = "Nome_da_chave"

__________________________________________________________________________
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