04-09-15, 08:16 PM
سلام
انتبه: اذا كنت تكتب التاريخ داخل قاعدت بيانات الاكسس بشكل يدوي يجب ان تبدا بالشهر وليس اليوم
ليعمل الكود بدل بين اليوم والشهر في التواريخ التي في قاعدت البيانات
موفقين
انتبه: اذا كنت تكتب التاريخ داخل قاعدت بيانات الاكسس بشكل يدوي يجب ان تبدا بالشهر وليس اليوم
ليعمل الكود بدل بين اليوم والشهر في التواريخ التي في قاعدت البيانات
كود :
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موفقين
متغيب
