+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استعلام عن اكبر تاريخ و اكبر قيمة في الحقلين (/showthread.php?tid=38333)
الصفحات:
1
2
RE: استعلام عن اكبر تاريخ و اكبر قيمة في الحقلين - أسعد - 24-04-21
(24-04-21, 04:02 AM)العيدروس كتب :(23-04-21, 10:46 PM)messry كتب : اخي الفاضلشكرا اخي messry على المساعدة و بارك الله فيك احاول ان شاء الله
ايا كان ما تريد
عطيتك حل
تقدر تضيف كود تعديل مكان الشرط لو تحقق والمكتوب بالعربي
تحياتي
رمضان كريم اخي اسعد .بارك الله فيك اخي على المساعدة هو فعلا هذا يلي اريد عمله اشكرك جزيل الشكر .الكود فعلا يعمل لي ما اريده و يقول بالتعديل على آخر سجل لليوم السابق اذا كان ( متاح ) و يجعله ( غير متاح )
بقي لي فقط نقطة اخيرة لو سمحت
بعد الكود يلي اعطيتني اياه اضفت رسالة عادية
msgbox(" لقد تم التعديل على الحقل ")
لكن الرسالة تظهر لي دائما اريد يكون شرط اذا كان سجل موجود حسب الشروط و تم التعديل تظهر الرسالة و اذا كان يوم جديد و العبارة ( غير متاح ) طبعا الرسالة لا تظهر و بارك الله فيك
رمضان كريم اخي العيدروس
وجزاك الله خير
جرب هذا التعديل بعد اضافة الرسالة
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)
Conne.Open()
If ucmd.ExecuteNonQuery > 0 Then MsgBox("تم بنجاع التعديل على الحقل التنبيه اليومي")
Conne.Close()
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
RE: استعلام عن اكبر تاريخ و اكبر قيمة في الحقلين - العيدروس - 24-04-21
و الله اخي اسعد لا اعرف كيف اشكرك .الان كله تمام و مضبوط و الحمد لله الهي يبارك فيك و ينعم عليك بما يرضاه .شكرا جزيلا و بارك الله فيك و شكرا كذلك للاخ messry على المساعدة
RE: استعلام عن اكبر تاريخ و اكبر قيمة في الحقلين - messry - 24-04-21
(24-04-21, 04:46 AM)العيدروس كتب : و الله اخي اسعد لا اعرف كيف اشكرك .الان كله تمام و مضبوط و الحمد لله الهي يبارك فيك و ينعم عليك بما يرضاه .شكرا جزيلا و بارك الله فيك و شكرا كذلك للاخ messry على المساعدة
الشكر لله
الله يوفق