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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [نقاش] ارجو الرد على السؤال الفلترة والفرز (/showthread.php?tid=26646)



ارجو الرد على السؤال الفلترة والفرز - amer2000 - 25-09-18

السلام عليكم ورحمة الله وبركاته 
Private Sub Command8_Click()


On Error Resume Next

ConnectionDatabase
If RS_Data1.State = adStateOpen Then RS_Data1.Close

RS_Data1.Open "Select * From CASES Where [outcome]='" & Combo18.Text & "'", DB, adOpenStatic, adLockOptimistic

If RS_Data1.RecordCount > 1 Then
Set MSHFlexGrid1.DataSource = RS_Data1
Label1.Caption = RS_Data1.RecordCount
Else
Set MSHFlexGrid1.DataSource = RS_Data1
MSHFlexGrid1.Clear

Label1.Caption = RS_Data1.RecordCount

End If

If RS_Data1.State = adStateOpen Then RS_Data1.Close
If DB.State = adStateOpen Then DB.Close
end if

السؤال ؟


اريد مثلا فرز النتائج :

    الاسم      النتيجة
   احمد          سلبي
   عمر           ايجابي
  خالد       
   عامر     
   منير          سلبي

اذا فرزت الايجابي   او السلبي بيظهر 

لكن كيف افرز بدون نتائج وهي الفرغه مثل خالد و عامر    ...


RE: ارجو الرد على السؤال الفلترة والفرز - حريف برمجة - 25-09-18

اضف شرط في جملة الاستعلام كالتالي :

لنفرض حقل النتيجة اسمه result


كود :
RS_Data1.Open "Select * From CASES Where [outcome]='" & Combo18.Text & "' and [result]<>'" & "" & "'", DB, adOpenStatic, adLockOptimistic



RE: ارجو الرد على السؤال الفلترة والفرز - amer2000 - 28-09-18

عذرا على التاخير 


شكرا اخ  [b]حريف برمجة[/b]


بخصوص الكود لم يقلح تماما   ... ارجو الرد من الاخوة شاكرا لكم...نرجو  التعديل في الكود او عمل فكره اخرى  للسؤال السابق,#1


RE: ارجو الرد على السؤال الفلترة والفرز - elgokr - 28-09-18

مرحباً اخى amer2000

للبحث عن قيم فارغة كل مالعليك ان تجعل البحث بهذه الطريقة
كود :
SELECT * FROM Table WHERE Natiga is Null

طبعاً كل ما تحتاجه التركيز عليه هو 
كود :
WHERE Natiga is Null

بحيث العمود المطلوب البحث به بقيمة فارغة المقصود بها Natiga 
قم بتغيير اسمه لما لديك من مسمى فى قاعدة البيانات

تحياتى لك
وتمنياتى لك التوفيق



RE: ارجو الرد على السؤال الفلترة والفرز - amer2000 - 01-10-18

الف الف شكرا وبيض الله ووجهك وانار دربك