منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - لماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟

الاخوه الكرام
السلام عليكم ورحمة وبركاته
اين المشكله
عندي في قاعدة البيانات اكثر من أسم مستخدم والقائمة تظهر اسم واحد فقط لماذا ؟
نامل المساعدة
ولكم جزيل الشكر
تحياتي

تفضل أخي الفاضل الكود بعد التعديل والخطأ في هذا الجزء

كود :

C = rs.RecordCount

كود :

Set db = OpenDatabase(App.Path & "/db1.mdb")

Set rs = db.OpenRecordset("Select * FROM Aol")

Dim A, B, C As Integer

B = 0

C = rs.RecordCount + 1

For A = 0 To C

Combo1.List(B) = rs("Names").Value

B = B + 1

rs.MoveNext

Next A

(01-05-20, 01:57 AM)مصمم هاوي كتب : [ -> ]تفضل أخي الفاضل الكود بعد التعديل والخطأ في هذا الجزء

كود :

C = rs.RecordCount

كود :

Set db = OpenDatabase(App.Path & "/db1.mdb") Set rs = db.OpenRecordset("Select * FROM Aol") Dim A, B, C As Integer B = 0 C = rs.RecordCount + 1 For A = 0 To C Combo1.List(B) = rs("Names").Value B = B + 1 rs.MoveNext Next A

اخي العزيز
السلام عليكم
نفس المشكلة كل ما اضاف المستخدم اسم جديد لا يظهر في القائمة ؟؟
تحياتي

(01-05-20, 02:03 AM)Microformt كتب : [ -> ]
(01-05-20, 01:57 AM)مصمم هاوي كتب : [ -> ]تفضل أخي الفاضل الكود بعد التعديل والخطأ في هذا الجزء

كود :

C = rs.RecordCount

كود :

Set db = OpenDatabase(App.Path & "/db1.mdb") Set rs = db.OpenRecordset("Select * FROM Aol") Dim A, B, C As Integer B = 0 C = rs.RecordCount + 1 For A = 0 To C Combo1.List(B) = rs("Names").Value B = B + 1 rs.MoveNext Next A

اخي العزيز
السلام عليكم
نفس المشكلة كل ما اضاف المستخدم اسم جديد لا يظهر في القائمة ؟؟
تحياتي

كود :

Combo1.Clear

Set db = OpenDatabase(App.Path & "/db1.mdb")

Set Rs = db.OpenRecordset("Select * FROM Aol")

    If Rs.RecordCount = 0 Then

       Combo1.AddItem ""

       Combo1.Text = Combo1.List(0)

    Else

        Do Until Rs.EOF

             Combo1.AddItem Rs![Names]

             Rs.MoveNext

        Loop

End If

هذا تعديل يمكنك اضافة عدد لا نهائى من الاسماء وسوف تظهر معاك
بدون تعب او كتابة أكود السورس مرفق

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

Microformt

مصمم هاوي

Microformt

مصمم هاوي

karmina2012