Botão de busca

[Michele dos Santos 0]

Olá pessoal,Eu to precisando criar um botão de busca tipo, eu vou digitar o número de um cpf (cpf do titular) e quero que o sistema busque no banco de dados o nome da pessoa no qual este cpf está registrado e preencha uma caixa de texto com este nome.Alguém me ajude, please.Beijos,Michele

[Cidre 0]

O que exatamente você quer saber, como faz a conexão com o banco, como monta o select com o cpf digitado na Caixa de Texto, ou as duas coisas???

[Michele dos Santos 0]

Como exibir o resultado da busca (nome do titular) na caixa de texto.Na conexão, preciso apenas saber como faço pra passar o parâmetro (cpf do titular) que é informado em uma caixa de texto.

[Negrito 0]

Ola Michele,

 

Eu gostei desse exemplo do Macoretti - http://www.macoratti.net/aspn_dbp.htm , porem pra mim não esta adiantando devido eu usar C# e esse exemplo estar em VB.

 

Boa sorte !

[Michele dos Santos 0]

Olá pessoal,

Consegui montar a conexão e passar o parâmetro.

Agora falta o mais fácil (e mais ridículo tb): chamar a função no botão e especificar que a informação vem do txt_cpf_titular...

To programando vb.net a uma semana ta? http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Rsss

Beijos,

Mi

[Cidre 0]

Olá pessoal,Consegui montar a conexão e passar o parâmetro.Agora falta o mais fácil (e mais ridículo tb): chamar a função no botão e especificar que a informação vem do txt_cpf_titular...To programando vb.net a uma semana ta? http://forum.imasters.com.br/public/style_emoticons/default/blush.gif RsssBeijos,Mi

Como você fez essa passagem de parâmetro, coloque a função que criou aqui

[Michele dos Santos 0]

Ae vai: Public Function ConsultarTitular(ByVal sCPF As String) As DataTable Implements ITermoAdesao.ConsultarTitular Dim dt As DataTable Try Me.AbreConexao() Dim cmd As New OleDbCommand With cmd .CommandText = "SELECT TAE_NOM_TITULAR FROM TERMO_AUTO_EXPRESSO WHERE TAE_CPF_TITULAR='" & sCPF & "'" .CommandType = CommandType.Text End With dt = OleDbHelper.ExecuteDataTable("CON_CONSULTARTITULAR", Me.Conexao, cmd) Catch ex As Exception Throw New Exception(ex.Message) Finally Me.FechaConexao() End Try Return dt End Function

[Davis 0]

Pelo que eu entendi você quer colocar isso dentro do botão:

 

ConsultarTitular(txt_cpf_titular.Text)

http://forum.imasters.com.br/public/style_emoticons/default/natal_wink.gif

[Michele dos Santos 0]

É só escrever isso?

[Cidre 0]

Quase, no evento do clique do botão você vai por assim:

 

txtCaixaResultado.Text = ConsultarTitular(txt_cpf_titular.Text)

Qualquer dúvida é só falar! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif