[الطالب]

سلام


انتبه: اذا كنت تكتب التاريخ داخل قاعدت بيانات الاكسس بشكل يدوي يجب ان تبدا بالشهر وليس اليوم
ليعمل الكود بدل بين اليوم والشهر في التواريخ التي في قاعدت البيانات

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using dt As New DataTable
        Dim c = New OleDb.OleDbDataAdapter("SELECT [code] FROM [Table1] WHERE DATEDIFF('d',[date 1],[date 2])=3", My.Settings.Database2ConnectionString).Fill(dt)
        ListBox1.Items.AddRange((From r In dt.Rows Select r("code")).ToArray)
    End Using
End Sub

موفقين