consultar clientes visual basic

[paulo victor gama 0]

ola galera estou com o seguinte problema sou meio novato na area de programação meu cursos foram em delphi tbm entao queria saber como faço para criar uma consulta de clientes em meu sistema por exeplo que achar o cliente por nome por exemplo que achar o cliente paulo entao clico no binoculo e encontro todos clientes com o nome paulo.

 

desde ja agradeço

[KhaosDoctor 242]

Faça esta rotina no seu botão de pesquisa:

 

dim conexao as String = "Provider=Microsoft.ACE.OleDb.12.0;DataSource=NOMEDOSEUBANCODEDADOS.accdb"
dim con as new OleDbConnection(conexao)
dim sql as string = "SELECT * FROM  nomedatabela WHERE nomedocampo LIKE '%" +caixadetextodenome.Text +"%'"
dim com as new OleDbCommand(sql,con)
dim dr as OleDbDataReader

con.open()
dr = com.ExecuteReader()

If dr.HasRows Then
dr.Read()
End If
con.close()

 

 

Esse é o código básico, dependendo onde você quer exibir o resultado você deverá fazer o seguinte.

 

Como pela instrução SQL ele está pegando todos os resultados que começam ou terminam com o que você digitou na caixa de texto, ou seja, ele está pegando tudo que contem "Paulo" então é óbvio que ele retornará mais de um resultado, caso você queira que ele busque EXATAMENTE o digitado na caixa de texto faça:

 

dim sql as String = "SELECT * FROM nomedatabela WHERE nomedocampo = '" caixadetexto.Text +"'"

 

Para exibir em uma caixa de texto, o que só é possível com o código acima, você fará o seguinte abaixo da instrução do botão ali encima, antes de "End If"

 

TextBoxNome.Text = dr.Read("campodenome")

 

Caso seja uma ComboBox com a SQL feita para buscar todos os valores faça tambem acima do "End If"

 

ComboBox1.DataSource = dr
ComboBox1.DisplayMember = "CampoNome"
ComboBox1.ValueMember = "CampodeCódigo" 'Apenas se tiver um campo de código, senão isso é desnecessário

 

Se for em um datagridView faça:

 

DatagridView1.DataSource = dr

 

Claro que assumindo que os nomes dos campos da tabela sejam exatamente o que você quer exibir, se não forem me de um toque aqui e te mostro um jeito de adicionar os valores no grid com colunas personalizadas.

 

Este código foi feito presumindo que seu banco de dados seja em Access, se ele for em SQL basta substituir o "OleDb" por "SQL" ou "SqlCe" e claro, para todos temos que chamas o namespace específico no imports:

 

 import System.Data.OleDb

Para OleDb, ou seja, Acess

import System.Data.SqlCe

Para Sql server compact Edition

import System.Data.Sql

Para SQL server

 

Sendo que a connectionString tambem muda, lembre-se de deixar o banco de dados dentro da pasta bin do seu programa assim você não precisa adicionar o caminho na maquina, caso o banco de dados seja em SQLCe então você pode deixa a connectionString como "DataSource=bancodedados.sql" pois não é necessário a conversão de OleDb 12.0 para SQL

 

Abraços