+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] مشكلة بـ كود جمع حقل الاجمالي (/showthread.php?tid=30166)
مشكلة بـ كود جمع حقل الاجمالي - norman - 06-07-19
ارجو المساعدة من الاساتذة في الفيجوال بيسك
لدي قاعدة بيانات اكسس فيها جدوال ويحتوي على عدة حقول من ضمنها حقل التاريخ وحقل الاجمالي( رقم بتنسيق عملة)
اريد المساعدة بكود جمع حقل الاجمالي بشرط اكبر من تاريخ محدد
على ان يتم الجمع على الجدول وليس على الداتاغريدفيو وبموجب Function
ارجو المساعدة
استخدمت هذا الكود ولم يعطي نتيجة
كود :
Public Function Sum_MDF()
Dim Number As Double = 0
Dim IDMM As Integer = Val(FatoraID.Text.Trim)
Dim XS As String
XS = LblSbyDateMP.Text
Try
Dim cmd As New OleDbCommand(" Select Sum(Kema) From PayDF Where FtoraID = " & IDMM & " and DataDF > '" & CDate(XS) & "' ",
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@FtoraID", IDMM)
cmd.Parameters.AddWithValue("@DataDF", XS)
If Conn.State <> ConnectionState.Open Then Conn.Open()
Number = cmd.ExecuteScalar
Catch ex As Exception
Finally
Conn.Close()
End Try
Return Number
End Function