[ابو ليلى]

يا مروان ما انا اعطيتك الحل في السؤال الماضي وفق طلبك و كما تريد
و بالنسبة للتطبيق تابع معي يا صديقي
اذهب الى فورم الصلاحيات لديك واضف DataGridView للنموذج في اي مكان فارغ
ثم افتح محرر الكود الخاص بنموذج الصلاحيات و اكتب الكود التالي , او انسخه و الصقه لديك

PHP كود :

Public Function GetDays(Num As Long) As DataTable
        Dim _Select As String = "Select user_name ,(DateDiff(""d"",[D1],[D2])) As EndAfter  From user_data Where DateDiff(""d"",[D1],[D2]) " & "<=" & Num
        Using Cmd As New OleDbCommand With {.CommandText = _Select, .Connection = DBConn}
            Dim Reader As OleDbDataReader = Cmd.ExecuteReader
            Dim Dt As New DataTable
            Dt.Load(Reader)
            Return Dt
        End Using
    End Function 


الان في حدث تحميل النموذج اجعله مثل التالي 

PHP كود :

Private Sub FRm_mang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1_Click(sender, e)
        DataGridView1.DataSource = GetDays(2)
    End Sub 


حيث الرقم 2 يمثل عدد الايام قبل انتها ء الصلاحية (سيجلب لك المستخدمين الذين تبقى على نهايتهم يومين)
جرب الكود و شوف النتيجة

[Marwan9990]

(02-02-17, 05:30 PM)ابو ليلى كتب : يا مروان ما انا اعطيتك الحل في السؤال الماضي وفق طلبك و كما تريد
و بالنسبة للتطبيق تابع معي يا صديقي
اذهب الى فورم الصلاحيات لديك واضف DataGridView للنموذج في اي مكان فارغ
ثم افتح محرر الكود الخاص بنموذج الصلاحيات و اكتب الكود التالي , او انسخه و الصقه لديك

PHP كود :

Public Function GetDays(Num As Long) As DataTable
        Dim _Select As String = "Select user_name ,(DateDiff(""d"",[D1],[D2])) As EndAfter  From user_data Where DateDiff(""d"",[D1],[D2]) " & "<=" & Num
        Using Cmd As New OleDbCommand With {.CommandText = _Select, .Connection = DBConn}
            Dim Reader As OleDbDataReader = Cmd.ExecuteReader
            Dim Dt As New DataTable
            Dt.Load(Reader)
            Return Dt
        End Using
    End Function 


الان في حدث تحميل النموذج اجعله مثل التالي 

PHP كود :

Private Sub FRm_mang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1_Click(sender, e)
        DataGridView1.DataSource = GetDays(2)
    End Sub 


حيث الرقم 2 يمثل عدد الايام قبل انتها ء الصلاحية (سيجلب لك المستخدمين الذين تبقى على نهايتهم يومين)
جرب الكود و شوف النتيجة

هههههه السموحه منك ي اخي بسبب خبرتي القليله ما عرفت اطبق سابقا كلامك ..

لفكره ضبطة ميه ميه ربي يرزقك جنات النعيم لك ول كل احبابك يا رب ..

الشكر موصول ايضا لكل الاخوان الي ساعدوني
الاخ مساعده شكرا كثير
والاخ وائل القطاوي كمان ..
ربي يسعدكم