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

ارجو المساعدة من الاساتذة في الفيجوال بيسك
لدي قاعدة بيانات اكسس فيها جدوال ويحتوي على عدة حقول من ضمنها حقل التاريخ وحقل الاجمالي( رقم بتنسيق عملة)
اريد المساعدة بكود جمع حقل الاجمالي بشرط اكبر من تاريخ محدد
على ان يتم الجمع على الجدول وليس على الداتاغريدفيو وبموجب 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

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

norman