تقييم الموضوع :
  • 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
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اهدي اليكم طريقة نسخ والاستعاء ahmed20 1 1,271 05-08-23, 10:24 PM
آخر رد: Nasa_use
  مثال لطريقه جميله لحفظ الصور في قاعدة البيانات Ahmed_Mansoor 11 6,608 30-07-23, 02:53 PM
آخر رد: hasgaeb
  [vb6.0] طريقة برمجة عقارب الساعة Hammam Khalfi 0 336 21-04-23, 04:59 PM
آخر رد: Hammam Khalfi
  طريقة حماية ممتازة لبرنامجك Ahmed_Mansoor 21 10,126 12-10-22, 01:30 AM
آخر رد: saif2023
  حفظ وعرض الصور في قاعدة البيانات @@أبورائد@@ 21 15,518 30-08-22, 04:44 PM
آخر رد: الباحث_عن الحقيقة
  أداة لألوان أكثر احترافية في مشاريعك Taha Okla 0 789 30-11-21, 05:18 PM
آخر رد: Taha Okla
  [vb6.0] استخدام المعاملات مع قواعد البيانات شبح_الشبكة 1 1,006 21-11-21, 11:23 PM
آخر رد: Taha Okla
  [مشروع] طريقة من قبلي عند النية لتكرار كود معين[تم ارفاق المثال البسيط] سعود 2 1,360 05-12-20, 02:35 AM
آخر رد: سعود
  المساعدة في مشروع نسخ بيانات الى قاعدة اخرى مقفولة fahad fbs 0 1,045 09-10-20, 04:33 PM
آخر رد: fahad fbs
  [VB.NET] مشكلة عرض البيانات في القريد فيو mustafa mohamed 0 972 07-10-20, 02:18 PM
آخر رد: mustafa mohamed

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


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