الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أستدعي بيانات من الداتا للـ ListView

بدأه جواد في 5 فبراير 2012 · 9 رد · 585 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخواني

كيف أستدعي بيانات من الداتا الـ ListView

بحيث أني إذا كان هذا الحقل فاضي لا يستدعيه "Fields("Name_ID

.Fields("Name_ID") = Text1.Text

.Fields("Name2") = Text2.Text

.Fields("Name3") = Text3.Text

يعني مثلاً انا عندي اسم الأب وإسم الطالب وإسم المدرسة

إذا كان إسم الأب موجود وإسم الطالب موجود ولكن إسم المدرسة غير موجودة لا أريد أن يظهره في الـ ListView

أريد أن يتم ظهوره في الـ ListView الأسماء التي تكون معها إسم المدرسة

أما الأسماء التي لا يوجد معها إسم المدرسة لا اريدها أن تظهر في الـ ListView

وبارك الله فيكم

إن شاءالله نلاقي الحلول عندكم

#2

تستطيع استخدام حلقة تكرارية لتعبئة الـ ListView بالبيانات من الداتا بيز

مثل هذا الكود :

For n = 1 To rs.RecordCount

	If rs.Fields("MyField") <> "" Then
    	ListView1.ListItems.Add rs.Fields("MyField")
	End If

	If Not rs.EOF Then rs.MoveNext

Next

وتستطيع وضع الشرط الذي تريد داخل الحلقة التكرارية ..

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#3

جاري تجربتها

بارك الله فيك

#4

أخي محمد مصطفي غريب

اريد تصحيح هذا الكود

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

أما الأسماء التي لا توجد بجانبهم إسم المدرسة لا اريد ان يتم إدرجها في الـ Data Report

Call conData

With rs_find
If .State = adStateOpen Then .Close
.Open "select * from Tab1 where Name_id = " & Val(Name_ID.Text) & "", con, adOpenStatic, adLockOptimistic



End With

إسم الـ Fields الخاص بإسم المدرسة Name_ID

والله يجزاك كل خير

أنتظر ردك الكريم

تم تعديل هذه المشاركة بواسطة جواد في 6 فبراير 2012 في 11:28

#5

في هذا الكود انت تخبره بأن يعرض كل البيانات التي يكون عندها الحقل Name_ID مساوي للقيمة الرقمة للـ Name_ID.Text

اي إذا كان مكتوب في الـ Name_ID.Text الرقم 10 فلن يعرض الا البيانات التي يكون حقل الـ Name_ID لها مساوياً 10

"select * from Tab1 where Name_id = " & Val(Name_ID.Text) & ""

لكن إذا كنت تريد عرض كل البيانات التي يكون حقل Name_ID لها غير فارغ (اي غير مساوياً للصفر في حالة انه رقم) فيجب إسخدام الإستعلام :

"select * from Tab1 where Name_id <>0"

اما اذا كان حقل نصي وتريد عرض البيانات الغير فارغة فتستخدم

"select * from Tab1 where Name_id <> ''"

تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 6 فبراير 2012 في 20:05

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#6

الله يقويك والله يبارك فيك اخي محمد مصطفي غريب

اخي محمد بالنسبة للـ Name_ID فهو ليس رقم هو إسم

اخي ممكن طلب اخير ممكن توضعلي كود لكي استخدمه في الـ Data Report

بحيث يتم استدعاء الأسماء التي يوجد معاها إسم المدرسة

والله يوفقك يا رب دنيا وآخر

انتظر ردك اخي محمد

#7

ارفق مثال صغير لاقوم بالتعديل عليه ..

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#8

هذا مثال صغير ان شاءالله يفي بالغرض

تحميل

#9

المثال بعد التعديل .. مع ملاحظة انك تستطيع تعديل الإستعلام ليشتمل الشروط التي تريد

إذا كنت لا تعرف لغة الإستعلامات (SQL) فتعلمها لانه لا غنها عنها في برامج قواعد البيانات..

DataReport.rar

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#10

الله يوفقك ويخليك لأهلك اخي محمد مصطفي غريب

والله يحرسك من كل عين

ألف شكر لك اخي محمد مصطفي غريب

شكرا كثير

مواضيع مشابهة