+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30)
+---- الموضوع : [vb6.0] طريقة بسيطة لملف أداة ComboBox بمحتويات Field من قاعدة البيانات (/showthread.php?tid=40053)
طريقة بسيطة لملف أداة ComboBox بمحتويات Field من قاعدة البيانات - شبح_الشبكة - 21-11-21
السلام عليكم ورحمة الله وبلاكاته ، أخوكم من مصر مغرم بالبرمجة كتبت الكود دا وأتمنى يحوز على رضاكم . والهدف منه هو تحديد اسم 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
RE: طريقة بسيطة لملف أداة ComboBox بمحتويات Field من قاعدة البيانات - Taha Okla - 21-11-21
وعليكم السلام ورحمة الله وبركاته
هذا الكود بعد التطوير :
كود :
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