AJUDA COM BUSCA EM BD MYSQL
Pessoal ja consegui criar um sistema para busca no meu bd e exibir em um listview gostaria de saber como faco pra exibir os dados de uma tabela em campos como textbox e picturebox....
Exemplo se eu digitar o nome da pessoa e aperta em busca quero exibir os dados dela dessa forma como esta na foto.... alguem poderia me passar um exemplo de como faco isso e que ja pesquisei aqui na comu mais existe poucos exemplos de bd mysql....
Exemplo se eu digitar o nome da pessoa e aperta em busca quero exibir os dados dela dessa forma como esta na foto.... alguem poderia me passar um exemplo de como faco isso e que ja pesquisei aqui na comu mais existe poucos exemplos de bd mysql....
[txt-size=6]Cara você pode, por exemplo, buscar todos os dados da pessoa pelo seu código.
Em vários programas meus, eu coloco uma rotina que retorna o código da pessoa de acordo com seu nome, por exemplo:
[txt-color=#0000f0]Public Function [/txt-color]Buscar_Codigo([txt-color=#0000f0]Byval [/txt-color]QualNome [txt-color=#0000f0]As string[/txt-color]) [txt-color=#0000f0]As Integer[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] C [txt-color=#0000f0]As New[/txt-color] ADODB.Connection, RecSet [txt-color=#0000f0]As[/txt-color] ADODB.Recsordset
[txt-color=#0000f0]If[/txt-color] C.State = 0 [txt-color=#0000f0]Then[/txt-color] C.Open(Minha_Conexao)
RecSet = C.Execute([txt-color=#e80000][Ô]select CodCliente from tblClientes where nomeCliente=[ô] [Ô][/txt-color] & QualNome & [txt-color=#e80000][Ô] [ô] [Ô][/txt-color])
Buscar_Codigo = RecSet.([txt-color=#e80000][Ô]codCliente[Ô][/txt-color]).value
RecSet = [txt-color=#0000f0]Nothing[/txt-color]
C.Close()
[txt-color=#0000f0]Return[/txt-color] Buscar_Codigo
[txt-color=#0000f0]End Function[/txt-color]
No código do botão, por exemplo, você retornaria o valor mais ou menos assim:
[txt-color=#0000f0]Dim[/txt-color] C [txt-color=#0000f0]As New[/txt-color] ADODB.Connection, RecSet [txt-color=#0000f0]As[/txt-color] ADODB.Recsordset
[txt-color=#0000f0]Dim[/txt-color] CodigoCliente [txt-color=#0000f0]As Integer[/txt-color]
CodigoCliente = Buscar_Codigo(TextBox1.Text)
Você já tem o código da pessoa que você quer retornar os valores.
A partir daà você pode criar uma query no MySql, Access, SQL... sempre passando, na cláusula Where, como parâmetro, o valor de CodigoCliente.
Por exemplo:
Vamos supor que a função retornou do BD o código de cliente como 9
RecSet = C.Execute([txt-color=#e80000][Ô]select * from tblClientes where CodCliente =[Ô][/txt-color] & CodigoCliente) [txt-color=#007100][ô]Seleciona todos os registros do cliente cujo código seja 9[/txt-color]
txtEndereco.Text = RecSet([txt-color=#e80000][Ô]endereco[Ô][/txt-color]).Value.ToString
txtDescricao.Text = RecSet([txt-color=#e80000][Ô]descricao[Ô][/txt-color]).Value.ToString
PictureBox1.ImageLocation = RecSet([txt-color=#e80000][Ô]EnderecoFoto[Ô][/txt-color]).Value.ToString
RecSet = [txt-color=#0000f0]Nothing[/txt-color]
C.Close()
Não estou com o VB aqui mas Espero ter ajudado.[/txt-size]
Em vários programas meus, eu coloco uma rotina que retorna o código da pessoa de acordo com seu nome, por exemplo:
[txt-color=#0000f0]Public Function [/txt-color]Buscar_Codigo([txt-color=#0000f0]Byval [/txt-color]QualNome [txt-color=#0000f0]As string[/txt-color]) [txt-color=#0000f0]As Integer[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] C [txt-color=#0000f0]As New[/txt-color] ADODB.Connection, RecSet [txt-color=#0000f0]As[/txt-color] ADODB.Recsordset
[txt-color=#0000f0]If[/txt-color] C.State = 0 [txt-color=#0000f0]Then[/txt-color] C.Open(Minha_Conexao)
RecSet = C.Execute([txt-color=#e80000][Ô]select CodCliente from tblClientes where nomeCliente=[ô] [Ô][/txt-color] & QualNome & [txt-color=#e80000][Ô] [ô] [Ô][/txt-color])
Buscar_Codigo = RecSet.([txt-color=#e80000][Ô]codCliente[Ô][/txt-color]).value
RecSet = [txt-color=#0000f0]Nothing[/txt-color]
C.Close()
[txt-color=#0000f0]Return[/txt-color] Buscar_Codigo
[txt-color=#0000f0]End Function[/txt-color]
No código do botão, por exemplo, você retornaria o valor mais ou menos assim:
[txt-color=#0000f0]Dim[/txt-color] C [txt-color=#0000f0]As New[/txt-color] ADODB.Connection, RecSet [txt-color=#0000f0]As[/txt-color] ADODB.Recsordset
[txt-color=#0000f0]Dim[/txt-color] CodigoCliente [txt-color=#0000f0]As Integer[/txt-color]
CodigoCliente = Buscar_Codigo(TextBox1.Text)
Você já tem o código da pessoa que você quer retornar os valores.
A partir daà você pode criar uma query no MySql, Access, SQL... sempre passando, na cláusula Where, como parâmetro, o valor de CodigoCliente.
Por exemplo:
Vamos supor que a função retornou do BD o código de cliente como 9
RecSet = C.Execute([txt-color=#e80000][Ô]select * from tblClientes where CodCliente =[Ô][/txt-color] & CodigoCliente) [txt-color=#007100][ô]Seleciona todos os registros do cliente cujo código seja 9[/txt-color]
txtEndereco.Text = RecSet([txt-color=#e80000][Ô]endereco[Ô][/txt-color]).Value.ToString
txtDescricao.Text = RecSet([txt-color=#e80000][Ô]descricao[Ô][/txt-color]).Value.ToString
PictureBox1.ImageLocation = RecSet([txt-color=#e80000][Ô]EnderecoFoto[Ô][/txt-color]).Value.ToString
RecSet = [txt-color=#0000f0]Nothing[/txt-color]
C.Close()
Não estou com o VB aqui mas Espero ter ajudado.[/txt-size]
esse codigo nao esta formato mysql ? por que a conexao que estou usando aqui e diferente.....
KURTGU a conexao tu ja tem ai, trazer os dados pra tela tu tambem ja tem, consulta é a consulta basica, select from where nome = @nome
ai passa o parametro do textbox, tu tem tudo de exemplo ai amigão, qual sua duvida ???
o Problema dessa logica ai e o seguinte, voce vai digitar o nome porem se vier 4 resultados, qual tu vai escolher pra listar ai no form ?
Pense direito !
ai passa o parametro do textbox, tu tem tudo de exemplo ai amigão, qual sua duvida ???
o Problema dessa logica ai e o seguinte, voce vai digitar o nome porem se vier 4 resultados, qual tu vai escolher pra listar ai no form ?
Pense direito !
entendi vou fazer da forma que tinha feito pelo listview vlw pela ajuda.....
Tópico encerrado , respostas não são mais permitidas