السلام عليكم ورحمة الله وبركاته
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
السؤال ؟
اريد مثلا فرز النتائج :
الاسم النتيجة
احمد سلبي
عمر ايجابي
خالد
عامر
منير سلبي
اذا فرزت الايجابي او السلبي بيظهر
لكن كيف افرز بدون نتائج وهي الفرغه مثل خالد و عامر ...
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
السؤال ؟
اريد مثلا فرز النتائج :
الاسم النتيجة
احمد سلبي
عمر ايجابي
خالد
عامر
منير سلبي
اذا فرزت الايجابي او السلبي بيظهر
لكن كيف افرز بدون نتائج وهي الفرغه مثل خالد و عامر ...