منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

في حال وضع تاريخ اقل =< يقوم بالاستعلام عادي
في حال وضع تاريخ اليوم = لا يقةم بتحديد شي ماهو الحل ؟


Dim dt As New DataTable()
Dim cmd As New OleDbCommand("SELECT * FROM Customers1 where [dataofpayment] = " & Date.Today.Date & " ' ", conn)
Dim da As New OleDbDataAdapter(cmd)
da.Fill(dt)

Dim total = dt.Compute("Sum(totalamount)", "").ToString()
MsgBox(total)

تأكد من نوع الحقل في قاعدة البيانات ان تكون (date) ليس (datetime)