Pesquisa No Vb6

[carlosrenatopl]

Como eu faço para digitar um nome num campo de texto e ao sair desse campo o programa fazer uma verificação na tabela se o nome já existe?

[Joaozava]

Neste post eu respondi algo assim, da uma olhada:

http://scriptbrasil.com.br/forum/index.php...75&hl=recordset

[Luiz Humberto]

Eu faço desta forma, acho que pode te ajudar

No evento LostFocus

          
         Dim VerificaMercadoria  As String
    
          VerificaMercadoria = Trim(TxtMercadoria.Text)
          
          With RstADO
  
               SQL_Query = "Select Descricao From Produto where Descricao=  '" & VerificaMercadoria & "'"
               Debug.Print SQL_Query
               .Open SQL_Query, ConnADO
                  
               If Not RstADO.EOF Then
                 
                   MsgBox "Já existe Esta Mercadoria Cadastrada"
                   TxtMercadoria.SetFocus
                    
                End If
                
             End With

[William Rodrigues]

Brother...

Olha o tópico que o Joaozava te passou que vai te ajudar muito

Abraços,

William Rodrigues