Srs Boa Tarde
Sou iniciante em VB.NET e estou elaborando um sistema de contas a pagar e receber. O cadastro eu já consegui fazer. Tenho um formulário de relatório dessas contas onde eu tenho um combo (Pagar, Pago Receber, Recebida) outro combo (Fornecedores) uma TextBox
( Data Inicial ) e outra TextBox (Data Final ) e uma DataGridView e estou precisando filtrar nessa DataGridView o seguinte, por EX:
Todas as contas a Pagar de um Fornecedor ( x ) no período de 11/11/1111 até 22/22/2222, e o resultado será mostrado na DataGridView.
Os dados estão gravados no Access 2007 e estou usando Visual Studio 2010.
Eu só consegui filtrar as datas, segue abaixo o código e a tela do relatório.
Private Sub btnFiltrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFiltrar.Click
If btnFiltrar.Text = "Filtrar" Then
If Trim(CmbPosicaoConta.Text) = "" Then
If MsgBox("VOÇE DEVE ESCOLHER UMA POSIÇÃO DA CONTA", MsgBoxStyle.Information, "POSIÇÃO DA CONTA") Then ': Exit Sub
CmbPosicaoConta.Focus()
Exit Sub
End If
End If
da = New OleDbDataAdapter
ds = New DataSet
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\cadastro.mdb;jet oledb:database password=adm")
da = New OleDbDataAdapter("SELECT * FROM Contas WHERE posicaoconta LIKE '" & CmbPosicaoConta.Text & "%' ", conn)
da = New OleDbDataAdapter("select * from Contas where vencimento >=#" & TextBox1.Text & "# and vencimento<=#" & TextBox2.Text & "#", conn)
cb = New OleDbCommandBuilder(da)
ObterDados()
da.Fill(ds, "Cadastro")
dgContas.DataSource = ds.Tables(0)
btnFiltrar.Text = "Todos"
Else
btnFiltrar.Text = "Filtrar"
ObterDados()
Dispose()
Dim f As New RelaContasCompleto
f.Show()
End If
End Sub
End Class