+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [vb6.0] لماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟ (/showthread.php?tid=34535)
لماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟ - Microformt - 01-05-20
الاخوه الكرام
السلام عليكم ورحمة وبركاته
اين المشكله
عندي في قاعدة البيانات اكثر من أسم مستخدم والقائمة تظهر اسم واحد فقط لماذا ؟
نامل المساعدة
ولكم جزيل الشكر
تحياتي
RE: الماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟ - مصمم هاوي - 01-05-20
تفضل أخي الفاضل الكود بعد التعديل والخطأ في هذا الجزء
كود :
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 ARE: الماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟ - Microformt - 01-05-20
(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
اخي العزيز
السلام عليكم
نفس المشكلة كل ما اضاف المستخدم اسم جديد لا يظهر في القائمة ؟؟
تحياتي
RE: الماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟ - مصمم هاوي - 01-05-20
(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
RE: لماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟ - karmina2012 - 01-05-20
هذا تعديل يمكنك اضافة عدد لا نهائى من الاسماء وسوف تظهر معاك
بدون تعب او كتابة أكود السورس مرفق