+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] فرز وتصنيف عرض البيانات بعدة معايير (/showthread.php?tid=1436)
فرز وتصنيف عرض البيانات بعدة معايير - OsamaVB - 03-01-14
كيف يمكن فرز بيانات موجودة في قاعدة بيانات sql استنادا على عدة اعمدة وليس عمود واحد فقط مثلا الجنس والجنسية !!
عندما اقوم بالفرز يبدأ لبرنامج في اظهار البيانات حسب تصنيف واحد فقط وعند استخدامي لتصنيف اخر يتجاهل الاول ويقوم بالفرز في كامل قاعدة البيانات !!
ما اريده بالصبط هو فرز البيانات من بيانات مفروزة !!
يعني مثلا اظهار اسماء الذكور والذين يحملون جنسية معينة وهكذا !!
طبعا انا استخدم VB.net 2008
RE: فرز وتصنيف عرض البيانات بعدة معايير - سعود - 03-01-14
جربت order by val1,val2
RE: فرز وتصنيف عرض البيانات بعدة معايير - OsamaVB - 03-01-14
اخي الكريم لم اجرب ما ذكرت ..!
ولكني لا اعرف كيف يمكن عرض نتيجة الاستعلام على DatagridView لاني ربما تمكنت من عمل الاستعلام المركب ولكن واجهتني مشكلة في كيفية عرضة على الداتا فيو ..!
ربما لاختلاف نوع البيانات او لامر اخر !!
ارجو الافادة وجزاك الله خيرا ...
RE: فرز وتصنيف عرض البيانات بعدة معايير - أبوبكر سويدان - 03-01-14
السلام عليكم
بالنسبة لسؤالك عن كيفية تعبئة الـDataGridView إليك هذا الدرس:
https://www.youtube.com/watch?v=e5LV7XoNS6U
وإليك أيضاً هذا المثال ربما ينفعك:
وبالنسبة لمعرفة عدد الصفوف المسترجعة انظر إلى الكود التالي:
PHP كود :
Dim LSQL As String = "select * from people WHERE Nationality=" & cmbNationality.text & " AND Gender = 'Male'"
Dim LAdapter As New OleDbDataAdapter(LSQL, Con)
Dim LDataSet As New DataSet
Dim RowsCount As Integer
If Con.State = ConnectionState.Closed Then
Con.Open()
LAdapter.Fill(LDataSet, "people")
RowsCount = LDataSet.Tables("people").Rows.Count
If RowsCount = 0 Then
MsgBox("empty")
LDataSet.Reset()
Con.Close()
Else
' do any thing else
End If
Else
LAdapter.Fill(LDataSet, "people")
RowsCount = LDataSet.Tables("people").Rows.Count
If RowsCount = 0 Then
MsgBox("empty")
LDataSet.Reset()
Con.Close()
Else
' do any thing else
End If
End If