الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن توضيح للكود مع طريقة عمل الFor ... (كود بسيط)

مغلق
بدأه k.f.u في 19 مارس 2007 · 3 رد · 414 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ممكن توضيح لهذا الكود مع طريقة عمل الـ For

Private Sub Text1_KeyPress(KeyAscii As Integer)
If RS.State = 1 Then RS.Close
RS.Open "select * from m_boocking where No_b = '" & Trim(Text1.Text) & "'", CN, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
RS.MoveFirst
Combo1.Clear
   For i = 1 To RS.RecordCount
		Combo1.AddItem RS!No_m
		RS.MoveNext
	Next i
	Combo1.SetFocus
End If


End Sub

وجزاكم الله عني كل خير

تم تعديل هذه المشاركة بواسطة k.f.u في 19 مارس 2007 في 16:53

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

#2

ردوا الله يرضى عليكم

سبحان الله وبحمده سبحان الله العظيم ..أستغفر الله

samp8a5b2fc47732a301.jpg

#3

الكود السابق يقوم بعمل التالي coffee.gif

الاتصال بجدول البيانات 

If RS.State = 1 Then RS.Close
RS.Open "select * from m_boocking where No_b = '" & Trim(Text1.Text) & "'",CN, adOpenStatic, adLockOptimistic

شرط اذا كانت هناك سجلات 

If RS.RecordCount > 0 Then

الانتقال لأول سجل وتنظيف اداة الكمبو من البيانات السابقة 

RS.MoveFirst
Combo1.Clear

جملة تكرار للمرور على كل السجلات الموجودة في الجدول واضافة بيانات حقل RS!No_m

  For i = 1 To RS.RecordCount
		Combo1.AddItem RS!No_m
		RS.MoveNext
	Next i
	Combo1.SetFocus
End If

ثم التركزي على اداة الكمبو بعد الانتهاء 

   Combo1.SetFocus

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#4

يقوم البرنامج السابق بمايلي:

عند إدخال أي حرف او رقم في Text1 ( والذي يفترض ان الحقل Text1 حقل لإدخال قيمة للــ No_b )

يقوم البرنامج بالبحث عن No_m في السجلات التي قيمة No_b تساوي Text1 في الجدول m_boocking

ومن ثم إضافتها في الكمبو بوكس

أرجو ان يكون الشرح واضحاً وأشكر الاستاذ HnHn على التفصيل

هذا الموضوع مغلق.

مواضيع مشابهة