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

Mcomando

[VB6] Pesquisa de Nome em Data1? (Resolvido)

1 mensagem neste tópico

Amigos, precisava de consulta num Form com source Data1 (com Adodc1 já sei construir) onde encontrar um revendedor pelo nome (DesignSocial) mas não sei construir o código.

Eu já consulto através da Chave principal que é o nº de cliente, como o exemplo a seguir:

-----

Private Sub cmdFind_Click()

Dim solicitação$, resposta, Ms

solicitação$ = "Digite o N.º do Revendedor a consultar ou a alterar Dados."

resposta = InputBox(solicitação$, "Consultar/Alterar Revendedor")

If resposta = "" Then

Data1.Recordset.MoveFirst

Else

Data1.Recordset.FindFirst "CodClte=" & resposta

End If

If Data1.Recordset.NoMatch Then

Data1.Recordset.MoveFirst

Ms = "Não Existe este Revendedor!"

MsgBox Ms, vbCritical, "Revendedor"

Else

Data1.Recordset.Edit

End If

End Sub

-----

mas queria também consultar pelo nome que está no campo DesignSocial.

no Adodc1 seria:

    Adodc1.RecordSource = "SELECT * FROM Revendedor WHERE DesignSocial LIKE '%" & PesquisaStr$ & "%'"

mas não posso mudar a source de Data1 para Adodc1

Se puderem ajudar...  :P

.....

Voltei para Adodc1 e solução com:

Private Sub CmdFind_Click()

    Dim solicitacao$, resposta$

    solicitacao$ = "Digite pelo Nome do Revendedor e prima [Enter]"

    resposta$ = InputBox(solicitacao$, "Procurar Revendedor por Nome")

    If resposta$ = "" Then Exit Sub

    Adodc1.RecordSource = "SELECT * FROM Revendedor WHERE DesignSocial LIKE '%" & resposta$ & "%'"

    Adodc1.Refresh

End Sub

:P

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