تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات)
#1
السلام عليكم اخوتي الكرام 
هل هناك طريقة لملأ الكومبو بوكس ببيانات جدول من قاعدة البيانات ؟؟؟
لقد وجدت هذا الكود Do While Not Adodc2.Recordset.EOF
Combo4.AddItem Adodc2.Recordset.Fields("classe").Value
Adodc2.Recordset.MoveNext
لكن المشكلة انه عند الاختيار يقوم بحذف كل البيانات من الجدول
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام
ضع المثال كي يتم التعديل علية

والله الموفق
الرد }}}
#3
لقد ارفقت المثال 
بارك الله في الجميع


الملفات المرفقة
.rar   ملأ الكومبو.rar (الحجم : 4.95 ك ب / التحميلات : 38)
الرد }}}
#4
السّلام عليكم و رحمة الله و بركاته
نيابة عن أخي و أستاذي الكريم الغالي " SENDBAD100 " .. و بعد إذنه ..تفضّل عزيزي " العربي " محاولة لعلها تفي بالغرض إن شاء الله .. قمت بإضافة كومبوبوكس رقم 2 فقط لملاحظة الإختلاف بين ملء الكومبوبوكس بالتّكرار و بدون تكرار
فائق إحتراماتي


الملفات المرفقة
.rar   ملء الكومبوبكس.rar (الحجم : 9.05 ك ب / التحميلات : 62)
الرد }}}
#5
جزاك الله خير اخي الغالي / عبد العزيز البسكري

يعطيك العافية.

انا بعيد الان عن الجهاز فقط من الجوال.
الرد }}}
#6
شكرا و بارك الله فيك اخي عبد العزيز و شكرا للاستاذ sendbad100
الله يحفظكم و يستركم بستره
الرد }}}
#7
هناك طريقة باستخدام المؤشرات وفتح قاعدة البيانات والجدول لحفظ البيانات وهي طريقة ممتازة ولا يوجد بها اخطاء
مثال على ذلك
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 "ÊãÊ ÚãáíÉ ÇáÍÝÙ ÈäÌÇÍ"
الرد }}}
تم الشكر بواسطة: larbihamri , Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 411 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  عدم ضهور كل البيانات فراس محي 1 219 15-12-23, 06:05 AM
آخر رد: Taha Okla
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 351 27-11-23, 01:05 AM
آخر رد: وادي العوضي
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 380 19-11-23, 10:49 PM
آخر رد: Microformt
  [سؤال] التيكست بوكس Abdellah 2 386 18-11-23, 10:55 AM
آخر رد: Abdellah
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 240 23-10-23, 12:11 AM
آخر رد: Taha Okla
Question [vb6.0] كيف استخدم هذه الخوارزمية في برنامجي نامل المساعدة العاجله؟ Microformt 0 223 04-10-23, 11:44 PM
آخر رد: Microformt
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 353 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 449 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 550 21-07-23, 12:11 AM
آخر رد: وادي العوضي

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


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