Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Pedro_07

[VB6] Botao procurar

Mensagens Recomendadas

Pedro_07    0
Pedro_07

Alguem me podia ajudar a fazer o botao programar???

Sei que tnh que utilizar data1.recordset.findfirst, mas n sei como compara o que tnh na caixa de texto com o que esta na BD e

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
noronha    0
noronha

Este é o codigo que metes no botao procurar

Dim strvalorpesquisar As String
Dim varregistoactivo As Variant
With Adodc1.Recordset
    varregistoactivo = .Bookmark
    strvalorpesquisar = InputBox("Nome a pesquisar:", "pesquisa", "")
    If strvalorpesquisar <> "" Then
        .MoveFirst
        .Find "nome like '*" & strvalorpesquisar & "*' "
        If .EOF Then
            MsgBox "esse nome não foi encontrado", vbOKOnly, "Mensagem"
            .Bookmark = varregistoactivo
        End If
    End If
End With

espero que ajude, cumpz

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade