Niente da fare, mi sono accorto che riesco si, a filtrare lo stato, ma che effettivamente invece, mi carica tutti i dati e non filtra ste benedette date... quindi uno step indietro... ho provato in questi 2 modi:
Try
myConnection.ConnectionString = connString
myConnection.Open()
Dim trova As New OleDbDataAdapter("SELECT * FROM Pagamenti WHERE DataPagamento BETWEEN (?) AND (?) ", myConnection)
trova.SelectCommand.Parameters.AddWithValue("?", DateTimePicker1.Value.ToString)
trova.SelectCommand.Parameters.AddWithValue("?", DateTimePicker2.Value.ToString)
trova.Fill(ds)
Bsource.DataSource = ds.Tables(0)
If ds.Tables(0).Rows.Count > 0 Then
DGVdate.DataSource = ds.Tables(0)
Else
End If
myConnection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
e
Try
myConnection.ConnectionString = connString
myConnection.Open()
Dim trova As String
trova = "SELECT * FROM Pagamenti WHERE (DataPagamento >=? AND DataPagamento <=?) ORDER BY DataPagamento"
Dim cmd As New OleDbCommand(trova, myConnection)
cmd.Parameters.AddWithValue("?", DateTimePicker1.Value.ToString)
cmd.Parameters.AddWithValue("?", DateTimePicker2.Value.ToString)
cmd.ExecuteNonQuery()
Leggi = cmd.ExecuteReader
DGV2.Rows.Clear()
While Leggi.Read = True
DGV2.Rows.Add(Leggi("ID"), Leggi("IDcliente"), Leggi("File"), Leggi("Fattura"), Leggi("DataFattura"), Leggi("ImportoFattura"), Leggi("ScadenzaPagamento"), Leggi("DataPagamento"), Leggi("TipoPagamento"), Leggi("StatoPagamento"), Leggi("Note"))
End While
myConnection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
niente da fare, carica tutti i dati che trova ma non nell'intervallo specificato e non da alcun errore