منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبلاكاته ، أخوكم من مصر مغرم بالبرمجة كتبت الكود دا وأتمنى يحوز على رضاكم . والهدف منه هو تحديد اسم 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

وعليكم السلام ورحمة الله وبركاته


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