+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28)
+---- الموضوع : ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) (/showthread.php?tid=20111)
ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) - larbihamri - 22-04-17
السلام عليكم اخوتي الكرام
هل هناك طريقة لملأ الكومبو بوكس ببيانات جدول من قاعدة البيانات ؟؟؟
لقد وجدت هذا الكود Do While Not Adodc2.Recordset.EOF
Combo4.AddItem Adodc2.Recordset.Fields("classe").Value
Adodc2.Recordset.MoveNext
لكن المشكلة انه عند الاختيار يقوم بحذف كل البيانات من الجدول
RE: ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) - sendbad100 - 22-04-17
وعليكم السلام
ضع المثال كي يتم التعديل علية
والله الموفق
RE: ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) - larbihamri - 22-04-17
لقد ارفقت المثال
بارك الله في الجميع
RE: ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) - عبد العزيز البسكري - 22-04-17
السّلام عليكم و رحمة الله و بركاته
نيابة عن أخي و أستاذي الكريم الغالي " SENDBAD100 " .. و بعد إذنه ..تفضّل عزيزي " العربي " محاولة لعلها تفي بالغرض إن شاء الله .. قمت بإضافة كومبوبوكس رقم 2 فقط لملاحظة الإختلاف بين ملء الكومبوبوكس بالتّكرار و بدون تكرار
فائق إحتراماتي
RE: ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) - sendbad100 - 22-04-17
جزاك الله خير اخي الغالي / عبد العزيز البسكري
يعطيك العافية.
انا بعيد الان عن الجهاز فقط من الجوال.
RE: ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) - larbihamri - 27-04-17
شكرا و بارك الله فيك اخي عبد العزيز و شكرا للاستاذ sendbad100
الله يحفظكم و يستركم بستره
RE: ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) - mosamosa - 01-05-17
هناك طريقة باستخدام المؤشرات وفتح قاعدة البيانات والجدول لحفظ البيانات وهي طريقة ممتازة ولا يوجد بها اخطاء
مثال على ذلك
Set db = OpenDatabase("c:\mosa\db1333.mdb")
Set tb = db.OpenRecordset("emplye")
Set tb1 = db.OpenRecordset("emplye")
tb1.MoveFirst
tb1.Index = "no_emp"
tb1.Seek "=", Text1
If Not tb1.NoMatch Then
MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãÓÈÞÇð"
Text1.SetFocus
End If
tb1.AddNew
tb1.Fields(0) = Text1
tb1.Fields(1) = Text2
tb1.Fields(2) = Text3
tb1.Fields(3) = Text4
tb1.Fields(4) = Combo1.ListIndex
tb1.Fields(5) = Text5
tb1.Fields(6) = Text6
tb1.Fields(7) = Combo2.ListIndex
tb1.Fields(8) = Combo3.ListIndex
tb1.Update
'Call clean
MsgBox "ÊãÊ ÚãáíÉ ÇáÍÝÙ ÈäÌÇÍ"