منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مشكلة ب distinct - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [سؤال] مشكلة ب distinct (/showthread.php?tid=2027)

مشكلة ب distinct - ABO.BANCIANA - 26-02-14

السلام عليكم ورحمة الله وبركاتة

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

[attachment=1406]

يلاحظ تكرار السنة فى الكمبو ( حيث انها مكررة فى جدول الفواتير )
وذلك عند استخدام كود 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 مع قاعدة بيانات اكسس


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

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

ارجوا المساعدة فى الامر

RE: مشكلة ب distinct - تركي الحلواني - 26-02-14

ارفق مشروعك او مثال ليتم التعديل عليه

RE: مشكلة ب distinct - ناجي إبراهيم - 26-02-14

السلام عليكم...

الخاصية 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 بعد فتح المجموعة مباشرة لأنها تلقائياً ستكون عند أول سجل - إذا كان فيها سجلات.

نرجو الاستفادة و السلام.

RE: مشكلة ب distinct - ABO.BANCIANA - 26-02-14

تمام جدا استاذى

تسلم ايدك