• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Pedro_07

[VB6] Botao procurar

4 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

procurar nomes ou numeros? é que é um pouco diferente, utilizas data ou adodc??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Quero procurar pelo nome, tnh uma greed que ta ligada por adodc

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

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