تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة ب distinct
#1
السلام عليكم ورحمة الله وبركاتة

لدى فورم افتتاحى للبرنامج لاختيار السنة واسم وكلمة السر للمستخدم كما بالصورة

   

يلاحظ تكرار السنة فى الكمبو ( حيث انها مكررة فى جدول الفواتير )
وذلك عند استخدام كود Rs5.Open "select my_year from transmaster

اما عند استخدام distinct

كالاتى
Rs5.Open "select distinct my_year from transmaster ", DB, adOpenStatic, adLockPessimistic
Rs5.MoveFirst

Dim yy As Integer
For yy = 0 To Rs5.RecordCount - 1
mydate_com.AddItem Rs5![my_year]
Rs5.MoveNext
Next yy

لا يوجد بيانات فى الكمبو ( الكمبو يكون فارغ )

ويوجد بيانات فى جدول اليوزر (اى ان الاتصال موجود )

مع العلم انة قاعدة اليانات SQL server 2008

والاتصال بقاعدة البيانات محلى (على الجهاز)

عن طريق فايل تكست udl

ولا يوجد تكرار للبيانات عند استخدام distinct مع قاعدة بيانات اكسس


وعند محاول انشاء فيو فى قاعدة البيانات .. فان الفيو يعمل جيد داخل السكوال

ولكن عند استدعاءه فى الكمبو ... يكون الكمبو ايضا بدون بيانات ؟؟؟؟؟

ارجوا المساعدة فى الامر
الرد }}}
تم الشكر بواسطة:
#2
ارفق مشروعك او مثال ليتم التعديل عليه
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم...

الخاصية RecordCount التابعة للكائن ADODB.Recordset تكون أحياناً مضللة! فعندما لا يدعم محرك قواعد البيانات هذه الخاصية أو لا يستطيع تحديد العدد الفعلي للسجلات فإن هذه الخاصية تعيد -1، و ربما هذا هو ما يجعل الحلقة لا تنفّذ.

أنا لا أستعملها، و بدلاً من ذلك نختبر ما إذا كانت مجموعة السجلات فارغة أم لا، ثم نستعمل حلقة Do While إلى نهاية السجلات.

لمعرفة ما إذا كانت مجموعة السجلات فارغة أم تحتوي على سجلات (واحد على الأقل) ضع الدالة التالية في Module:

كود :
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

ثم استعملها حيثما تريد، مثلاً:

كود :
Rs5.Open "SELECT DISTINCT my_year FROM transmaster", DB, adOpenStatic, adLockPessimistic, adCmdText
If Not IsEmptyRecordSet(Rs5) Then
    Do While Not Rs5.EOF
         mydate_com.AddItem Rs5("my_year")
         Rs5.MoveNext
    Loop
    Rs5.Close    ' إذا لم تعد محتاجاً إليها
End If

* ملاحظة: لا تحتاج إلى استعمال MoveFirst بعد فتح المجموعة مباشرة لأنها تلقائياً ستكون عند أول سجل - إذا كان فيها سجلات.

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

تسلم ايدك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  السلام عليكم اخوانى واحبابى اساتذتى الكرام مشكلة out of memory mhareek 2 277 12-10-23, 01:40 PM
آخر رد: Taha Okla
  [سؤال] انا اواجه مشكلة عند قيامي بتكوين ملف ال exe hasgaeb 2 352 05-08-23, 01:29 PM
آخر رد: hasgaeb
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 9 2,835 25-11-22, 12:23 AM
آخر رد: اسلام الكبابى
  [سؤال] حل مشكلة فيصل الحطامي 1 515 25-10-22, 03:04 PM
آخر رد: Taha Okla
  مشكلة عند حذف عنصر hannileo 1 529 07-09-22, 02:12 AM
آخر رد: Taha Okla
  حل مشكلة امتلأ قاعدة بيانات أكسس مصمم هاوي 9 1,280 03-07-22, 12:19 PM
آخر رد: ahmedabdelaliem
  مشكلة على ويندوز7 ABO.BANCIANA 17 9,676 28-04-22, 06:07 AM
آخر رد: alhoor
  مشكلة في بيانات تقرير اكتيف ريبورت مصمم هاوي 2 1,018 26-02-22, 07:35 PM
آخر رد: مصمم هاوي

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


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