Como fazer consulta de dados usando o DataGridView? - Visual Basic 201

[carolprogramadora 0]

Olá Galera, estou precisando de uma ajuda urgente!

Quero fazer uma consulta de registros, só que eu quero que ao clicar no combobox e selecionar o ano mostre-me no DataGridView todos os registros daquele ano! Só isso gente, parece ser fácil, mas pra mim tá dificil!!!:(

Eu estou usando o Banco de Dados Access 2007

 

Aguardo respostas!

Obrigada desde já!!!^_^

[Claudio Neto 3]

Ola Carol, veja se eh disso que precisa:

 

http://www.macoratti.net/vbn_dgv2.htm

 

Att,

 

Claudio

[carolprogramadora 0]

Olá Claudio, agradeço pela resposta, estou tentando colocar em prática, mas não estou conseguindo... mas vou terminar pra ver como que fica no final ok?

Muito orbigada mesmo!

[Claudio Neto 3]

Vai postando conforme os erros forem aparecendo.

 

 

Boa sorte.

[carolprogramadora 0]

Olá pessoal... tive que pedir ajuda a outro programador, mas consegui!!!

o resultado é este:

 

 

 

 

Imports System.Data.OleDb

Imports System.Data.OleDb.OleDbType

 

Public Class frmConsultaCliente

 

Private dv As DataView

Private cm As CurrencyManager

Dim ConnString As String = My.Settings.connString

 

Sub Pesquisa()

 

Dim Sql As String = "SELECT * FROM BDCLIENTE WHERE NOME=@NOME ORDER BY Cliente"

Dim conn As New OleDbConnection(ConnString)

Dim cmd As New OleDbCommand(Sql, conn)

Dim Ds As New DataSet

 

Try

 

conn.Open()

cmd.Parameters.Add("NOME", VarChar).Value = txtNome.Text

Dim Da As New OleDbDataAdapter(cmd)

Ds.EnforceConstraints = False

Da.Fill(Ds)

 

Catch EX As OleDbException

 

Throw New Exception("Erro BD : " + EX.Message)

 

Catch ex As Exception

 

MsgBox(ex.Message)

 

Finally

 

conn.Close()

conn.Dispose()

cmd.Dispose()

 

End Try

 

dgvConsultarclientes.DataSource = Ds

dgvConsultarclientes.DataMember = Ds.Tables(0).ToString

 

End Sub

 

Private Sub btnConsultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultar.Click

 

If txtNome.Text = "" Then

 

Try

 

Catch ex As OleDbException

 

Throw New Exception("Erro Banco de Dados : " + ex.Message)

 

Catch ex As Exception

 

Throw New Exception("Erro Run Time : " + ex.Message)

 

End Try

 

Exit Sub

 

End If

 

If txtNome.Text = "" Then

 

MsgBox("Dados não encontrados !", MsgBoxStyle.Information, Me.Text)

 

End If

 

Call Pesquisa()

 

End Sub

 

End Class

 

 

E obrigada pela resposta Claudio!

Saudações!!!

[Claudio Neto 3]

Parabens pela solucao, e mais parabens ainda pela iniciativa de compartilhar.

[carolprogramadora 0]

Obrigada Claudio, o que eu puder compartilharei também ;)

Até mais

Saudações...