06-07-19, 02:47 AM
(آخر تعديل لهذه المشاركة : 06-07-19, 08:26 PM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
ارجو المساعدة من الاساتذة في الفيجوال بيسك
لدي قاعدة بيانات اكسس فيها جدوال ويحتوي على عدة حقول من ضمنها حقل التاريخ وحقل الاجمالي( رقم بتنسيق عملة)
اريد المساعدة بكود جمع حقل الاجمالي بشرط اكبر من تاريخ محدد
على ان يتم الجمع على الجدول وليس على الداتاغريدفيو وبموجب Function
ارجو المساعدة
استخدمت هذا الكود ولم يعطي نتيجة
لدي قاعدة بيانات اكسس فيها جدوال ويحتوي على عدة حقول من ضمنها حقل التاريخ وحقل الاجمالي( رقم بتنسيق عملة)
اريد المساعدة بكود جمع حقل الاجمالي بشرط اكبر من تاريخ محدد
على ان يتم الجمع على الجدول وليس على الداتاغريدفيو وبموجب 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