Botão Procurar

[joaomiranda]

Boa tarde. Alguém me pode ajudar. E estou a fazer uma PAP e queria fazer um botao procurar e verificar na bd quando o registo não existir o programa dizer que não existe ou quando existe dizer registo encontrado e mostrar o registo nesse mesmo form.

aqui vai o codigo

Try

TbReagentesBindingSource.Position = TbReagentesBindingSource.Find("codigo", InputBox("Qual o Número do Sócio que pretende procurar?"))

Catch ex As Exception

If MessageBox.Show("Procura Cancelada!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then

Exit Sub

Else

MsgBox("teste")

End If

End Try

Respondam sff obrigado

[Gnrtuga]

Uma resposta assim meio rápida e sem testar, Não era suposto teres uma msgbox caso ele encontrasse alguma coisa?

Experimenta qualquer coisa como se a procura não for vazia mostrar o resultado numa msgbox, se for vazia uma msgbox a dizer que não existe a procura efectuada.

P.s devias tratar a informação introduzida pelo utilizador (mudar tudo para maiúsculas ) para não dar erro na procura.

[joaomiranda]

isso mas era verifcar se existem registos

[Gnrtuga]

Ora boas novamente, ao ver o teu código com mais atenção parece-me que a estrutura está mal, primeiro tinhas que ter algum tipo de evento para o caso de encontrar o valor (tipo msgbox), depois tens uma data de código dentro da excepção, e penso que esse código não devia estar dentro da excepção...

vê isto que te ajuda de certeza:

http://msdn.microsoft.com/en-us/library/fk6t46tz.aspx

Boa sorte.

[acao]

boas

veja este tutorial

https://www.portugal-a-programar.pt/topic/23109-exercicios-e-manuais-de-vb56/?do=findComment?comment=440954

cumps

acao

[joaomiranda]

obrigado a todos ajudaram me muito