تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة مع داو
#1
السلام عليكم

استخدم داو

و عند استخدام الكود

كود :
Text25.Text = Rs12.RecordCount

MsgBox Text25.Text

يعطي -1 فهل من كود يعطي عدد السجلات في داو
الرد
تم الشكر بواسطة:
#2
rs12.Recordset.MoveFirst
Text25.Text = ""
For Counter = 1 To rs12.Recordset.RecordCount
Text25.Text = Val(Text25.Text) + rs12.Recordset.Fields(5).Value

rs12.Recordset.MoveNext
Next
rs12.Recordset.MoveLast
الرد
تم الشكر بواسطة:
#3
عفوا مع ادو و ليس مع داو
الرد
تم الشكر بواسطة:
#4
Thumbs Up 
إستخدم هذا الكود افضل .. بحيث يتم تمريره الى جمله SQL
كود :
SQL = "select*from YourTabelname"
    rs.Open SQL, db, adOpenKeyset, adLockPessimistic
    Text1 = rs.RecordCount
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد
تم الشكر بواسطة:
#5
السلام عليكم...

السبب في أن الخاصية RecordCount تعطي -1 هو أن محرك قواعد البيانات لا يستطيع أحياناً معرفة عدد السجلات إلا بعد الوصول إلى نهاية مجموعة السجلات (EOF).

لمعرفة عدد السجلات انتقل إلى السجل الأخير بعد فتح الـ Recordset:

كود :
Rs12.MoveLast
MsgBox CStr(Rs12.RecordCount)

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

كود :
Public Function IsEmptyRecordSet(ARecordSet As ADODB.Recordset) As Boolean
    If ARecordSet Is Nothing Then
        IsEmptyRecordSet = True
    ElseIf ARecordSet.State <> adStateOpen Then
        IsEmptyRecordSet = True
    ElseIf ARecordSet.BOF And ARecordSet.EOF Then
        IsEmptyRecordSet = True
    Else
        IsEmptyRecordSet = False
    End If
End Function

و إذا أردت المرور على السجلات في حلقة فاستخدم حلقة Do While مع EOF بدلاً من حلقة For. مثلاً:

كود :
' استخدم الدالة السابقة لمعرفة ما إذا كانت مجموعة السجلات فارغة أم لا
If Not IsEmptyRecordSet(Rs12) Then
    Do While Not Rs12.EOF
        ' ...
        ' اعمل هنا ما تريد عمله
        ' ...
        Rs12.MoveNext    ' مهمة جداً
    Loop
End If

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة: asto


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى البرنامج بعد التنصيب على جهاز اخر المبرمج العتيق 2 75 01-11-18, 01:32 AM
آخر رد: حريف برمجة
  مشكلة فى تنصيب فيجوال بيسك 6 المبرمج العتيق 3 77 01-11-18, 12:52 AM
آخر رد: elgokr
  مشكلة فى رسالة معناها ان هناك مكتبات مفقودة المبرمج العتيق 2 113 26-10-18, 01:27 PM
آخر رد: المبرمج العتيق
  [vb6.0] مشكلة في تشغيل تطبيق تم إنشاءه بإستخدام VB6 محب الإسلام 7 190 03-10-18, 10:00 PM
آخر رد: محب الإسلام
  مشكلة عندي مشكلة في فتح قاعدة بيانات اكسس 2000 بيتم التعامل مع اكسس 97 fathyfarag122 3 82 03-10-18, 02:54 AM
آخر رد: عبدالله الصافي
  [vb6.0] مشكلة فى الكريستال ريبورت 4.6 ahmed ragab 9 247 02-10-18, 03:11 PM
آخر رد: ahmed ragab
  [vb6.0] حل مشكلة حفظ الصورة في ملف وليس على قاعدة البياناتDataBase عبدالقادرعواد 2 165 11-09-18, 02:45 PM
آخر رد: عبدالقادرعواد
  [vb6.0] مشكلة اللغة العربية فى النسخ واللصق ahmad.roz 6 279 27-08-18, 01:58 AM
آخر رد: عبدالله الصافي
  [سؤال] [تم الحل] مشكلة برنامج حساب نسب الموظفين awidan76 29 1,729 08-08-18, 08:51 PM
آخر رد: awidan76
  [سؤال] مشكلة في تسجيل الاداة محمد جبريل 1 146 27-06-18, 09:36 PM
آخر رد: Amir_alzubidy

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


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