تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طريقة بسيطة لملف أداة ComboBox بمحتويات Field من قاعدة البيانات
#1
السلام عليكم ورحمة الله وبلاكاته ، أخوكم من مصر مغرم بالبرمجة كتبت الكود دا وأتمنى يحوز على رضاكم . والهدف منه هو تحديد اسم RecordSet من قاعدة hgبيانات وتحديد أداة combobox وترتيب Field المطلوب ......... ويتم المطلوب
Public Sub ComboFeeder(Feeder_Combo As ComboBox, _
                                       Feeder_RS As Recordset, _
                                       Feeder_Filed As Integer)
       Dim Counter as Integer
      On Error Resume Next
      Feeder_Combo.Clear
      Feeder_RS.MoveLast: Feeder_RS.MoveFirst
      For Counter = 0 To Feeder_RS.RecordCount - 1
            Feeder_Combo.AddItem Trim(Feeder_RS.Fields(Feeder_Filed))
            Feeder_RS.MoveNext
      Next Counter
End Sub
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته


هذا الكود بعد التطوير :

كود :
Public Sub ComboFeeder(Feeder_Combo As ComboBox, _
                      Feeder_RS As Recordset, _
                      Feeder_Filed As Integer)

   If Feeder_RS.RecordCount > 0 Then Feeder_RS.MoveFirst
   
   Do Until Feeder_RS.EOF
       Feeder_Combo.AddItem Trim(Feeder_RS.Fields(Feeder_Filed))
       Feeder_RS.MoveNext
   Loop
     
End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أداة لألوان أكثر احترافية في مشاريعك Taha Okla 0 38 , 05:18 PM
آخر رد: Taha Okla
  [vb6.0] استخدام المعاملات مع قواعد البيانات شبح_الشبكة 1 52 21-11-21, 11:23 PM
آخر رد: Taha Okla
  [مشروع] طريقة من قبلي عند النية لتكرار كود معين[تم ارفاق المثال البسيط] سعود 2 579 05-12-20, 02:35 AM
آخر رد: سعود
  المساعدة في مشروع نسخ بيانات الى قاعدة اخرى مقفولة fahad fbs 0 434 09-10-20, 04:33 PM
آخر رد: fahad fbs
  [VB.NET] مشكلة عرض البيانات في القريد فيو mustafa mohamed 0 408 07-10-20, 02:18 PM
آخر رد: mustafa mohamed
  [مثال] تخزين واسترجاع الصور والملفات من قاعدة البيانات abulayth 14 8,188 06-10-20, 10:17 PM
آخر رد: SoftWare Haker
Star البحث في قاعدة البيانات الأصلية التي تحتوي على 150.000 رمز لمختلف المكونات MicroDoha 0 738 14-04-20, 12:32 PM
آخر رد: MicroDoha
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 22 8,888 11-03-20, 09:28 AM
آخر رد: MicroDoha
  اهدي اليكم طريقة نسخ والاستعاء ahmed20 0 594 11-03-20, 04:03 AM
آخر رد: ahmed20
  [مشروع] [لا جديد] كيفية ايجاد حل لاي مشكلة بسيطة سعود 2 2,662 25-02-20, 12:34 AM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم