SELECT em Banco de Dados e Visualizar no DATAGRID

[williamjda]

Amigos tenho uma duvida. Tenho uma aplicação onde tenho um DB SQL. Consigo gravar neste banco e consigo fazer as informações do banco aparecerem no DataGrid. Porem agora preciso criar um filtro onde eu possa pesquisar as informações do banco e ao pesquisar a informação deve aparecer no DataGrid.

EXEMPLO:

Meu form tem :

1 DataGrid, 1 campo txtpesquisar.text, 1 Botão pesquisar.

quando eu digitar o CPF no campo txt e clicar em pesquisar o data grid deve mostrar as informações do cpf para mim. Nome RG CPF são os critério para a pesquisa.

Espero que tenha ficado claro a minha duvida. Desde já agradeço..

Como posso fazer isso. Alguem tem algum exemplo para que eu possa seguir....

Edited October 3, 2012 at 07:37 PM by williamjda

[bioshock]

https://wiki.portugal-a-programar.pt/dev_net/vb.net/access/

Crias um procedimento, por exemplo, onde fazes a tua query específica e mostras os resultados na datagridview.

[williamjda]

Obrigado pela ajuda. Na verade ficou bem simples.

Try
	    Me.LoginTableAdapter.Pesquisar(Me.BDSOSPETDataSet.login, SenhaToolStripTextBox.Text)
    Catch ex As System.Exception
	    System.Windows.Forms.MessageBox.Show(ex.Message)
    End Try

Funcionou perfeitamente

[williamjda]

Amigos eu consegui fazer um pesquisar da forma acima porem não acredito que é a melhor opção. Tenho a seguinte questão Criei o select abaixo porem mesmo assim ele não me retorna nada. Alguem poderia me ajudar.

Dim cmd As New SqlCommand("SELECT * FROM CadastroFornecedor WHERE NomeFornecedor LIKE '" & txtpesquisa.Text & "*'", conexao)

Fico no aguardo.

[Caça]

O like funciona com '%', não com '*'

[williamjda]

Ola boa noite. Mesmo colocando o "%" o código não funciona. Quando você clica em pesquisar ele não retorna nada no datagrid.

Dim cmd As New SqlCommand("SELECT * FROM CadastroSenhasProcedimentos WHERE NomeFornecedor LIKE '" & TXTPesquisar.Text & "%", conexao)

Edited January 21, 2013 at 07:36 PM by williamjda

[Caça]

E existem resultados para retornar? Já executas-te essa query no SQL Server?

[williamjda]

Sim existe dados para retornar.

Agora deixei o código assim:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'String de conexão com o banco de dados
    conexao.ConnectionString = "Data Source=172.20.11.10;Initial Catalog=DADOS.MDF;User ID=******;Password=******"
    Try
	   Dim cmd As New SqlCommand("SELECT Login='" & TXTPesquisar.Text & "'FROM CadastroLoginSistema", conexao)
	    conexao.Open()
    Catch ex As Exception
	    MessageBox.Show(ex.Message)
    End Try
    conexao.Close()
   End Sub

Porem continua não retornando nada....

[renafi]

Falta executares o SqlCommand e preencher a Datagrid

[Caça]

Sim existe dados para retornar.

Agora deixei o código assim:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	'String de conexão com o banco de dados
	conexao.ConnectionString = "Data Source=172.20.11.10;Initial Catalog=DADOS.MDF;User ID=******;Password=******"
	Try
	   Dim cmd As New SqlCommand("SELECT Login='" & TXTPesquisar.Text & "'FROM CadastroLoginSistema", conexao)
		conexao.Open()
	Catch ex As Exception
		MessageBox.Show(ex.Message)
	End Try
	conexao.Close()
End Sub

Porem continua não retornando nada....

Essa sintaxe não é valida..

[acao]

boas

eu com a base dados em acces uso assim,

Where Nome Like '%" & txtNome.Text.Replace(" ", "%") & "%' ORDER BY

cumps

acao

Edited January 24, 2013 at 01:07 PM by thoga31
Formatação corrigida + GeSHi

[williamjda]

Amigo bom dia. Consegui fazer o código o mesmo ficou da seguinte maneira.

Para que possa ajudar a mais alguem segue completo.

1. Os imports.

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data
'----------------------------------------------------------------------------------------
Public Class CadastroLoginSistema
Dim conexao As New SqlConnection
'----------------------------------------------------------------------------------------

'Código do botão.
Private Sub BT_pesquisar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_pesquisar.Click
'String de conexão com o banco de dados
conexao.ConnectionString = "Data Source=172.20.11.10;Initial Catalog=DADOS.MDF;User ID=****;Password=****"
Dim da As New SqlDataAdapter("SELECT * from CadastroLoginSistema where Login LIKE '" & TXTPesquisar.Text & "%'", conexao)
'Cria um DataSet temporario para receber os dados do select
Dim ds As New DataSet
'Pega os dados do DataSet e joga no CadastroLoginSistemaDataGridView
da.Fill(ds)

'Logo abaixo você duas escolhas para a consulta. Escolha apenas uma deixei as duas para poder dar o exemplo:
'LEMBRANDO ESCOLHA A QUE ATENDER MELHOR SUA NECESSIDADE.

'Este processo gera os dados do banco no datagrid a partir da memoria temporaria. Os dados aqui não podem ser alterado é epenas em carater de consulta.
Me.CadastroLoginSistemaDataGridView.DataSource = ds.Tables(0).DefaultView

'Este processo gera os dados no data grid porem, aqui você consegue alterar os dados no banco visto que ele tras a consulta direto do banco.
Me.CadastroLoginSistemaTableAdapter.Pesquisar(Me._DADOS_MDFDataSet.CadastroLoginSistema, TXTPesquisar.Text)
'Evento dos botões

End Sub

End Class

Obrigado pela a ajuda de todos. E espero que o código ajude a outros.

Edited January 24, 2013 at 01:02 PM by williamjda