Sayım no. Veritabanı Tablosunda Satırlar İki Datetimepicker seçimi arasında

Question

Veritabanımdaki toplam Tarih Satır kayıtlarını iki veri toplaması seçimi arasında nasıl alabilirim? Bunun nasıl yapılacağı hakkında hiçbir fikrim yok. Yaklaşık bir saat boyunca cevap arıyordum ama doğru kodu bulamıyorum. Lütfen bana yardım et. Sen tarih değerlerinin dize ifadeleri biçimlendirmek gerekir

 da = New OleDbDataAdapter(sqlqry, cnn) 
     Dim dt As New DataTable("tblAttendance") 
     da.Fill(dt) 
     dgvAttendance.DataSource = dt 

Answer 1

: Ben bir yorum olarak bu kod parçasını qoute eğer sadece 0 değerini gösterir

Try 
     ConnDB() 

     If fromDate.Value > toDate.Value Then 
      MessageBox.Show("Invalid Date Selection", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) 
     Else 
      sqlqry = "SELECT * FROM tblAttendance WHERE WorkingDate BETWEEN='" & fromDate.Value.ToShortDateString & "' AND '" & toDate.Value.ToShortDateString & "'" 
      da = New OleDbDataAdapter(sqlqry, cnn) 
      Dim dt As New DataTable("tblAttendance") 
      da.Fill(dt) 
      dgvAttendance.DataSource = dt 
      Dim counter As Double 
      counter = dt.Rows.Count 
      TextBox1.Text = counter 

     End If 
    Catch ex As Exception 
     If cnn.State = ConnectionState.Open Then 
      cnn.Close() 
     End If 
    End Try 

: Burada

kod bu Access SQL:

ya da daha önce önerildiği gibi parametreleri kullanın.

Answer 2

Sonunda anladım, Yardımın için teşekkürler.

İşte gerçekten çalışan yeni kodum.

Try 
     ConnDB() 

     If fromDate.Value > toDate.Value Then 
      MessageBox.Show("Invalid Date Selection", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) 
     Else 
      sqlqry = "SELECT * FROM tblAttendance WHERE WorkingDate BETWEEN #" & fromDate.Value & "# AND #" & toDate.Value & "#" 
      da = New OleDbDataAdapter(sqlqry, cnn) 
      dt = New DataTable("tblAttendance") 
      da.Fill(dt) 
      Dim counter As Integer 
      counter = dt.Rows.Count 
      TextBox1.Text = counter 

     End If 
    Catch ex As Exception 
     If cnn.State = ConnectionState.Open Then 
      cnn.Close() 
     End If 
    End Try