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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Localizar Registro
Ryey
não registrado
Postada em 17/06/2004 10:37 hs   
Como faço para localizar em uma tabela todos os nomes que comecem com as letras A.
tem jeito de fazer isso ?
 
Grato
 
Ryey
     
Ryey
não registrado
Postada em 17/06/2004 10:49 hs   
alem da primeira letra tem como localizar pelo primeiro nome ex "Marcio" ele me retorna todos os marcio da tabela
 
Grato
 
Ryey
     
Los Zeus®
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 17/06/2004 10:49 hs            
Tem sim amigo.....use o Like:
 
Dim TbTemp As Recordset, vSql As String
vSql = "select * from Tabela where NOME LIKE " & Chr(34) & Trim(Text1) & "*" & Chr(34)
Set TbTemp = BancoDeDados.OpenRecordset(vSql, dbOpenSnapshot)
With TbTemp
    While Not .EOF
             List1.AddItem .Fields!nome
            .MoveNext
    Wend
    .Close
End With
 
No caso o meu like busca a letra (ou palavra, ou frase) que é digitada em text e exibe o resultado em um list....ok's
TÓPICO EDITADO
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 17/06/2004 10:53 hs            
Tente
 
    Set tbl_aux = conec.OpenRecordset("SELECT * from tabela where nome like 'A%' ", dbOpenSnapshot)
Ira procurar no campo NOME a letra A..... qualquer coisa, Pode usar assim tambem
 
Joao% pega todos os campos que iniciam com Joao 'Joao carlos','joao alberto'
%carlos% pega todos com carlos independente da posicao 'Carlos jose','Jose carlos' e etc

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
TÓPICO EDITADO
   
Ryey
não registrado
ENUNCIADA !
Postada em 17/06/2004 11:05 hs   
oK pessoal, consegui resolver meu problema !!!!!!!!
Obrigado por mais esta....
 
Abraços.......
   
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