ok AMIGO, VOU ME INSERIR O MEU CÓDIGO COMPLETO E PEÇO AJUDA PARA ME ENSINAR A TRABALHAR COM PARAMETERS.
VEJA O CODIGO:
Class Estatistica
Dim areds(1) As String
Dim aid(1) As Integer
Dim adata(1) As Date
Dim amunicipio(1) As String
Dim abairro(1) As String
Dim ameio(1) As String
Dim aprisao(1) As String
Dim aautor(1) As String
Dim avitima(1) As String
Dim asexov(1) As String
Dim asexoa(1) As String
Dim aidadev(1) As String
Dim aidadea(1) As String
Dim amotivacao(1) As String
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
Dim vfiltro As String
vfiltro = cmbFiltro.Text
Dim cs As String = My.Settings.HomicidioConnectionString
Dim conect As New OleDb.OleDbConnection
conect.ConnectionString = cs
Try
conect.Open()
Dim selcom As New OleDb.OleDbCommand
selcom.Connection = conect
If CDate(dtpI.Text) > CDate(DtpF.Text) Then
MessageBox.Show("A data inicial não pode ser maior que a final", "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Error)
dtpI.Focus()
Exit Sub
End If
If cmbFiltro.Text = "" Then
MessageBox.Show("Escolha um critério no Filtro de pesquisa", "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Error)
cmbFiltro.Focus()
Exit Sub
End If
Dim VDATAI As Date = dtpI.value.date
Dim VDATAF As Date = dtpF.value.date
If vfiltro = "COMPLETO" Then
selcom.CommandText = "SELECT * FROM Tab_Homicidio WHERE DATA BETWEEN #" & DATAI & "# and #" & DATAF & "# order by DATA"
endif
Dim vleitor As OleDb.OleDbDataReader
vleitor = selcom.ExecuteReader()
Dim c As Integer = 0
dgvHomicidios.Rows.Clear()
Do While vleitor.Read
c = c + 1
ReDim Preserve areds(c)
ReDim Preserve aid(c)
ReDim Preserve adata(c)
ReDim Preserve amunicipio(c)
ReDim Preserve abairro(c)
ReDim Preserve ameio(c)
ReDim Preserve aprisao(c)
ReDim Preserve aautor(c)
ReDim Preserve avitima(c)
ReDim Preserve asexov(c)
ReDim Preserve asexoa(c)
ReDim Preserve aidadev(c)
ReDim Preserve aidadea(c)
ReDim Preserve amotivacao(c)
areds(c) = vleitor("REDS")
aid(c) = vleitor("Id")
adata(c) = vleitor("DATA")
amunicipio(c) = vleitor("MUNICIPIO")
ameio(c) = vleitor("MEIO")
abairro(c) = vleitor("BAIRRO")
aprisao(c) = vleitor("PRISAO_APREENSAO")
aautor(c) = vleitor("NOME_AUTOR_SUSPEITO")
avitima(c) = vleitor("NOME_VITIMA")
asexov(c) = vleitor("SEXO_VITIMA")
asexoa(c) = vleitor("SEXO_AUTOR")
aidadev(c) = vleitor("IDADE_VITIMA")
aidadea(c) = vleitor("IDADE_AUTOR")
amotivacao(c) = vleitor("MOTIVACAO")
dgvHomicidios.Rows.Add(areds(c), adata(c), amunicipio(c), abairro(c), ameio(c), aprisao(c), aautor(c), avitima(c), asexov(c), asexoa(c), aidadev(c), aidadea(c), amotivacao(c))
Loop
ToolStripStatusLabel1.Text = "Total de Homicídios na pesquisa: " & dgvHomicidios.RowCount
' dgvHomicidios.Rows.Add("")
dgvHomicidios.Rows.Add("Fim do Relatório")
conect.Close()
Catch ex As Exception
MessageBox.Show("Erro na execução da pesquisa!" & vbCrLf & ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Estatistica_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dgvHomicidios.AlternatingRowsDefaultCellStyle.BackColor = Color.LightYellow
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
MessageBox.Show("Selecione a pesquisa, copie com Ctrl C e cole numa planilha do Excel.", "Sistemas Homicídios", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
End Class
