[aftfm]

السلام عليكم ورحمة الله وبركاته

اريد كود أو فانكشن

يتم من خلاله التأكد من تعبئة عدد معين من الحقول بالسجل 
فإن كانت السجلات المحددة معباة ينفذ أمر ما
وإلا فلا يتم التنفيذ

---

كنت استخدم هذا الفنكشن

لكن تظهر مشكلة في ما لو كانت قاعدة البيانات 2007 او 2010
فقط يعمل مع قاعدة البيانات 2003

 

كود :

Function Users_Count()
        Dim cmd As New OleDbCommand("Select count(*) From tblUsers", Con)
        If Con.State = ConnectionState.Open Then
            Con.Close()
        End If
        Dim Count As Integer = 0
        Con.Open()
        Count = cmd.ExecuteScalar()
        Con.Close()
        If Count = 0 Then
            Return True
        Else
            Return False
        End If
    End Function