[أسعد]

(23-04-21, 04:08 PM)العيدروس كتب : السلام عليكم و رحمة الله 
رمضان مبارك و جمعة مبارك ان شاء الله
اخواني لو ممكن المساعدة بحثت و جربت و لم اجد الحل 
عندي حقل من نوع تاريخ FieldDate و حقل نصي FieldOption
اريد اذا كان تاريخ اليوم الحالي اكبر من آخر تاريخ بحقل FieldDate و آخر عبارة بحقل FieldOption مكتوبة ( متاح )
في هدي الحالة اذا تم وجود هذين الشرطين يتم تعديل العبارة في الحقل FieldOption من ( متاح ) الى ( غير متاح )
مثلا بالصورة التاريخ الاخير بحقل التاريخ مكتوب 22-04-2021 و العبارة بحقل الملاحظة مكتوب ( متاح ) و تاريخ اليوم 23-04-2021 اكبر من آخر تاريخ مكتوب في هدي الحالة تتغير آخر قيمة و تصبح ( غير متاح )

حاولت مع الملف المرفق لكن لم اصل للنتيجة
بارك الله فيكم و صوم مقبول ان شاء الله

(23-04-21, 06:06 PM)العيدروس كتب : رمضان كريم اخي اولا اشكرك على المساعدة و بارك الله فيك .لكن ليس هذا هو المطلوب انا لا اريد اغير قيم الجدول FieldOption كاملا .انا اريد تغيير قمة السطر الاخير فقط و حسب شروط معينة

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

PHP كود :

   Sub fill_datagridview()

        ' تعديل كل الاسطر التي تاريخ اقدم من تاريخ اليوم
        'Dim ucmd As OleDbCommand = New OleDbCommand("UPDATE Table1 SET FieldOption='غير متاح' WHERE (FiledDate<NOW) AND (FieldOption='متاح')", Conne)

        ' تعديل فقط آخر تاريخ اقدم من تاريخ اليوم
        Dim ucmd As OleDbCommand = New OleDbCommand("UPDATE Table1 SET FieldOption='غير متاح' WHERE Id=(SELECT TOP 1 Id FROM Table1 WHERE (FiledDate<NOW) AND (FieldOption='متاح') ORDER BY FiledDate DESC)", Conne)

        Dim uda As OleDbDataAdapter = New OleDbDataAdapter()
        uda.SelectCommand = ucmd
        Dim udt As DataTable = New DataTable()
        uda.Fill(udt)


        Dim cmd As OleDbCommand = New OleDbCommand(" SELECT * FROM Table1", Conne)
        Dim da As OleDbDataAdapter = New OleDbDataAdapter()
        da.SelectCommand = cmd
        Dim dt As DataTable = New DataTable()
        da.Fill(dt)
        DataGridView1.DataSource = dt

    End Sub 


لعلي افدتك