الداتا كنترول غلبتني Data Control

بدأه htmfd في 27 فبراير 2008 · 2 رد · 745 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#127 فبراير 2008 في 01:15 صاحب الموضوع

أصدقائي الأعزاء السلام عليكم ورحمة الله وبركاته

لدي قاعدة بيانات بها حقل باسم Dno أي رقم القسم ومخزن به ثلاثة أقستم 1، 2 ، 3 على سبيل المقال به خمس بيانات لكل قسم

طيب لو أردت معرفة عدد سجلات حقل رقم القسم معين بشرط عرض عدد السجلات المحتوية على القسم 3

أي أن مربع النص سيحتوي على عدد 5 مثلاً وهو رقم المسجل من القسم 3 بحقل Dno

وأنا استخدم الداتا كنترول

Data2.Recordset.MoveLast

Text8.Text = Data2.Recordset.RecordCount

الكود السابق يعرض عدد السجلات كلها في مربع النص text8

حاولت المحاولات التالية لكنها فشلت

w = "SELECT COUNT(DNO) WHERE DNO = val(text10.text)"

w = Data2.Recordset.RecordCount

'If Data2.Recordset.RecordCount < 1 Then Exit Sub

'If Data2.Recordset.RecordCount > 1 Then

Text11.Text = w

وذلك بغرض عرض عدد سجلات القسم 3 فقط في مربع النص text11 وهم عددهم 5

كيف استخدم ذلك مع الـ data control

#228 فبراير 2008 في 11:06

معقول حتى الآن لم تحل المشكلة

حصلت على رد للموضوع من منتدى آخر

Data2.RecordSource = "Select Count(DNO) From tab2 Where Dno like '" + Text10.Text + "%"

Text11.Text = Data2.Recordset.RecordCount

Data2.Recordset.MoveNext

لكن الدالة كونت ترجع لي بعدد السجلات كلها

مثلاً

( لدي حقل اسمه Dno ومسجل بع عدد 4 سجلات ) ( 1 - اعانة زواج ، 2 - الجمعيات الخيرية ، 1 - اعانة زواج ، 2 - الجمعيات الخيرية ) هعم الآن 4 سجلات

أريد عند الاستعلام عن رقم القسم 1 يظهر لي من محتوى الحقل عدد السجلات وهي 2

ولكن عند تطبيق الكود السابق ترجع الدالة عدد 4 سجلات لا أدري فين الخطأ

#310 مارس 2008 في 14:28

أرجو أن أكون فهمت الموضوع وعليه أقترح التالي:

Dim sql As String

sql = "SELECT Count(DNO) As NumDNO Where DNO =" & Val(Text10.Text)

Data2.Recordsource= sql

Data2.Recordset.Refresh

Data2.Recordset.Movelast

If Data2.Recordset.Recodcount < 1 Then

Exit Sub

Else

Text11.Text = Data2.Recordset.Recodcount

End If