22-07-23, 01:54 AM
في حال وضع تاريخ اقل =< يقوم بالاستعلام عادي
في حال وضع تاريخ اليوم = لا يقةم بتحديد شي ماهو الحل ؟
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)
في حال وضع تاريخ اليوم = لا يقةم بتحديد شي ماهو الحل ؟
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)