Datagridview nach Datum Filtern, Werte in einem Bestimmten Zeitraum

Angel · 17. März 2016, 19:55

Hi!
Ich habe eine Datengebundene Datagridview und ich will meine Tabelle nur nach bestimmte Datum anzeigen lassen.
Ich würde den Wert "von" aus DateTimePicker1 holen und den Wert "bis" aus "DateTimePicker2".
Aber ich komme damit nicht klar!
Hab mir mal folgenden Code angeschaut:

VB.NET-Quellcode

Private Sub RefreshGridEinnahme()
FillGrid(Grid3, "select * from Einnahme order by Datum desc", "Einnahme")
End Sub
Private Sub Saldoübersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'
conn = New OleDbConnection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBHB.accdb; Persist Security Info=False;"
'Connection öfnen
conn.Open()
'Aktualisieren Gried mit Tabelle-Einnahme / Tabelle-Ausgabe
RefreshGridEinnahme()
RefreshGridAusgabe()
AusgabeBerechnen()
EinnahmeBerechnen()
SaldoBerechnen()
End Sub
Private Sub ButtonAnzeigen_Click(sender As Object, e As EventArgs) Handles ButtonAnzeigen.Click
Dim ci As New CultureInfo("en-US")
Dim dt1 = Me.DateTimePickerStart.Value.ToString("#MM/dd/yyyy#", ci)
Dim dt2 = Me.DateTimePickerEnd.Value.ToString("#MM/dd/yyyy#", ci)
Dim Filter = String.Format("Datum >= {0} And Datum <= {1}", dt1, dt2)
Grid3.Filter("Datum >= ? And Datum <= ?", dt1.Value, dt2.Value)
AusgabeBerechnen()
EinnahmeBerechnen()
SaldoBerechnen()
End Sub

Ich würde mich sehr freuen wenn mir jemand helfen könnte!

ErfinderDesRades · 17. März 2016, 20:43

VB.NET-Quellcode

Grid3.Filter("Datum >= ? And Datum <= ?", dt1.Value, dt2.Value)

hat Grid3 eine Filter-Methode? Was ist Grid3 für ein Datentyp?

Angel · 17. März 2016, 22:17

ErfinderDesRades schrieb:

VB.NET-Quellcode

Grid3.Filter("Datum >= ? And Datum <= ?", dt1.Value, dt2.Value)

hat Grid3 eine Filter-Methode? Was ist Grid3 für ein Datentyp?

Quellcode

Grid3

hat keine Methode. das ist DataGridView, nur für anzeigen meine Tabelle Access.

ErfinderDesRades · 17. März 2016, 22:48

Dann ist da der Ansatz wohl falsch.

Ich filter am liebsten in typisierten Datasets - gugge Tut: DataExpressions: Filter und berechnete Spalten im Dataset

Angel · 17. März 2016, 23:24

ErfinderDesRades schrieb:

Dann ist da der Ansatz wohl falsch.

Ich filter am liebsten in typisierten Datasets - gugge Tut: DataExpressions: Filter und berechnete Spalten im Dataset

Danke. ich versuche das zu verstehen. Ich habe keine Erfahrung in VB

, deswegen ist das für mich schwer.

Angel · 24. März 2016, 20:39

hallo,
ich habe mein Problem immer noch.

. Mein bisheriger Code:

VB.NET-Quellcode

Public conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBHB.accdb; Persist Security Info=False;")

VB.NET-Quellcode

Private Sub RefreshGridEinnahme()
FillGrid(Grid3, "select * from Einnahme order by Datum desc", "Einnahme")
End Sub

VB.NET-Quellcode

Private Sub ButtonAnzeigen_Click(sender As Object, e As EventArgs) Handles ButtonAnzeigen.Click
conn.Open()
Dim ci As New CultureInfo("en-US")
Dim dt1 = Me.DateTimePickerStart.Value.ToString("#MM/dd/yyyy#", ci)
Dim dt2 = Me.DateTimePickerEnd.Value.ToString("#MM/dd/yyyy#", ci)
Dim Filter = String.Format("Datum >= {0} And Datum <= {1}", dt1, dt2)
Grid3.DataSource.Filter("Datum >= ? And Datum <= ?", dt1, dt2)
conn.Close()
RefreshGridEinnahme()
RefreshGridAusgabe()
AusgabeBerechnen()
EinnahmeBerechnen()
SaldoBerechnen()
End Sub

Ich habe keine Erfahrung in VB.NET. wenn jemand für mich ein Beispiel hat, würde ich mich sehr freuen. :rolleyes:

Vielen Dank im Voraus.

ErfinderDesRades · 24. März 2016, 20:44

Du solltest vlt. noch sagen, was das Problem ist.
mit

Angel schrieb:

komme damit nicht klar!

komme ich irgendwie nicht klar!

Angel · 24. März 2016, 20:49

ErfinderDesRades schrieb:

Du solltest vlt. noch sagen, was das Problem ist.
mit

Angel schrieb:

komme damit nicht klar!

komme ich irgendwie nicht klar!

Das Problem ist immer noch wie oben geschrieben ist. Das funktioniert nicht.

und ich weißt nicht , was ich falsch mache.

VB1963 · 24. März 2016, 22:31

Du musst dein Problem schon genauer beschreiben und vollständigen Code deiner Methoden zeigen.
FillGrid? Was genau ist Grid3? usw.

Nils_Kr · 24. März 2016, 23:04

Nja er möchte Werte eines bestimmten Zeitraums filtern.

@Angel du wandelst das Datum direkt in einen String um, dadurch gehen alle wichtigen Auswertungsoptionen verloren. Wenn du ein Datum als Date speicherst kannst du leicht überprüfen ob ein Wert innerhalb eines Zeitraums liegt oder eben nicht. Allerdings schaut es so aus, als ob du dir erst noch die Grundlagen aneignen musst. Wenn du erstmal weißt, wodurch sich ein String von Date unterscheidet kannst du auch dein Problem lösen.

Stehen denn schon Daten in deinem Datagridview?

PS: Option Strict = on würde deinem Code gut tun, auch wenn du erstmal eine ganze Menge Fehlermeldungen bekommst.

Angel · 24. März 2016, 23:11

VB.NET-Quellcode

Imports System.Data.OleDb
Module Module1
Public conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBHB.accdb; Persist Security Info=False;")
Public Sub FillGrid(Grid1 As DataGridView, cmd As String, TableName As String)
Dim c As New OleDbCommand
c.Connection = conn
c.CommandText = cmd
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(c)
da.Fill(ds, TableName)
Grid1.DataSource = ds
Grid1.DataMember = TableName
End Sub
End Module

VB.NET-Quellcode

Public Class Saldoübersicht
Private Sub RefreshGridAusgabe()
FillGrid(Grid4, "select * from Ausgabe order by Datum desc", "Ausgabe")
End Sub
Private Sub RefreshGridEinnahme()
FillGrid(Grid3, "select * from Einnahme order by Datum desc", "Einnahme")
End Sub
Private Sub Saldoübersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dtm As Date
conn.Open()
dtm = DateTimePickerEnd.Value
DateTimePickerStart.Value = DateAdd("m", -3, dtm)
RefreshGridEinnahme()
RefreshGridAusgabe()
conn.Close()
End Sub
Private Sub Grid3_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles Grid3.CellContentClick
RefreshGridEinnahme()
End Sub
Private Sub Grid4_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles Grid4.CellContentClick
RefreshGridAusgabe()
End Sub
Private Sub ButtonAnzeigen_Click(sender As Object, e As EventArgs) Handles ButtonAnzeigen.Click
conn.Open()
Dim ci As New CultureInfo("en-US")
Dim dt1 = Me.DateTimePickerStart.Value.ToString("#dd/MM/yyyy#", ci)
Dim dt2 = Me.DateTimePickerEnd.Value.ToString("#dd/MM/yyyy#", ci)
Dim Filter = String.Format("Datum >= {0} And Datum <= {1}", dt1, dt2)
Grid3.DataSource.Filter("Datum >= ? And Datum <= ?", dt1, dt2)
conn.Close()
End Sub
End Class

Mein Problem ist, dass ich keine Ahnung habe, wie ich meine Tabelle nur nach bestimmte Datum anzeigen lassen kann. Ich würde den Wert "von" aus DateTimePickerStart holen und den Wert "bis" aus "DateTimePickerEnd". Das ist alles, was ich habe, leider funktioniert das nicht. wahrscheinlich ist das alles falsch.

Nils_Kr schrieb:

Stehen denn schon Daten in deinem Datagridview?

Ja. Die Kommunikation funktioniert ohne Problem..

ErfinderDesRades · 24. März 2016, 23:29

jo, jetzt sieht man den Fehler: Du verwendest keine BindingSources. Es sind aber die Bindingsources, mit denen man filtert, nur die haben eine Filter-Property.

Du kannst nicht einfach irgendwo .Filter("Datum >= ? And Datum <= ?", dt1, dt2) hinten anhängen, und denken, nun filtert es.

probierma so:

VB.NET-Quellcode

Imports System.Data.OleDb
Module Module1
Public conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBHB.accdb; Persist Security Info=False;")
Public Sub FillBindingSource(bs As BindingSource, cmd As String, TableName As String)
Dim c As New OleDbCommand
c.Connection = conn
c.CommandText = cmd
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(c)
da.Fill(ds, TableName)
bs.DataSource = ds
bs.DataMember = TableName
End Sub
End Module
' --------------------------------------------------------------
Public Class Saldoübersicht
Private _BindingSource As New BindingSource
Private Sub RefreshGridAusgabe()
FillBindingSource(_BindingSource, "select * from Ausgabe order by Datum desc", "Ausgabe")
End Sub
Private Sub RefreshGridEinnahme()
FillBindingSource(_BindingSource, "select * from Einnahme order by Datum desc", "Einnahme")
End Sub
Private Sub Saldoübersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DateTimePickerStart.Value = DateTimePickerEnd.Value.addMonth(-3)
Grid3.DataSource = _BindingSource
End Sub
Private Sub Grid3_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles Grid3.CellContentClick
RefreshGridEinnahme()
End Sub
Private Sub Grid4_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles Grid4.CellContentClick
RefreshGridAusgabe()
End Sub
Private Sub ButtonAnzeigen_Click(sender As Object, e As EventArgs) Handles ButtonAnzeigen.Click
Dim dt1 = Me.DateTimePickerStart.Value
Dim dt2 = Me.DateTimePickerEnd.Value
_BindingSource.Filter = String.Format(CultureInfo.InvariantCulture, "Datum >= #{0}# And Datum <= #{1}#", dt1, dt2)
End Sub
End Class

Das wesentliche ist, dass Fillgrid geändert wurde zu FillBindingSource, und dass das Grid nun an eine BindingSource angeschlossen ist.

Angel · 24. März 2016, 23:47

ErfinderDesRades schrieb:

probierma so:.......

Vielen Vielen DANK!!!!!!!!

das funktioniert. ich muss jetzt alles korrigieren, aber meine größte Problem hast du gelöscht...

Noch mal danke!!!!!!!

ErfinderDesRades · 25. März 2016, 06:08

habich nicht. Bei weitem nicht.
zB das hier: Visual Studio - Empfohlene Einstellungen

Datagridview nach Datum Filtern, Werte in einem Bestimmten Zeitraum

Datagridview nach Datum Filtern, Werte in einem Bestimmten Zeitraum

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Angel schrieb:

ErfinderDesRades schrieb:

Angel schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Nils_Kr schrieb:

VB.NET-Quellcode

ErfinderDesRades schrieb:

Ähnliche Themen

4 Benutzer haben hier geschrieben