+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] المساعدة في زر امر التالي والسابق (/showthread.php?tid=13493)
المساعدة في زر امر التالي والسابق - وادي العوضي - 11-10-15
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
طلبي منكم اساتذتي الافاضل هو في كتابة كود في زر امر التالي والسابق
لاني لا اعرف زر التالي والسابق من ربط قاعدة البيانات بالكود فقط ارف اذا كانت قاعدة البيانات مربوطة بالاداة ADO
بينما عن طريق الكود البرمجي لم تضبط معي شاكرا تعاونكم معي والله حافظكم وحاميكم
RE: المساعدة في زر امر التالي والسابق - administrator - 14-10-15
كود زر السابق
كود التالي
كود :
If rs.BOF = False Then
rs.MovePrevious
Text1.Text = rs("ID")
Text2.Text = rs("namee")
Text3.Text = rs("dep")
Text4.Text = rs("sex")
Text5.Text = rs("datee")
Text6.Text = rs("slary")
Else
MsgBox "وصلت الى اول سجل", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading
End Ifكود التالي
كود :
If rs.EOF = False Then
rs.MoveNext
Text1.Text = rs("ID")
Text2.Text = rs("namee")
Text3.Text = rs("dep")
Text4.Text = rs("sex")
Text5.Text = rs("datee")
Text6.Text = rs("slary")
Else
MsgBox "وصلت الى اخر سجل", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading
End IfRE: المساعدة في زر امر التالي والسابق - وادي العوضي - 14-10-15
السلام عليكم استاذي الفاضل ورحمة الله وبركاته
بارك الله فيك وفي علمك وجزاء الله خير الجزاء
نعم هذا هو المطلوب الله لايحرمنا من شخصك الكريم يارب