منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يمكن ان استخدم جملة orderby - نسخة قابلة للطباعة

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

كيف يمكن ان استخدم جملة orderby - princeofislam - 20-06-18

كل عام وانتم بالف خيرا وتقبل الله طاعتكم

الكود هو 
Adodc1.RecordSource = "select * from KASS where ID>=" & Val(Trim$(Text8.Text)) & " and ID<=" & Val(Trim$(Text9.Text))


Adodc1.CommandType = adCmdText
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
السوال : هل يمكن ان استخدم استعلام (order by id) في كود البحث بين رقمين حتى احصل على الارقام مرتبة من 1 الى 10 مثلا 
وكيف ذلك ؟

شاكر لكل من مر و شارك وساعد ووجه

RE: كيف يمكن ان استخدم جملة orderby - elgokr - 20-06-18

استخدم الاستعلام بهذه الطريقة
كود :
Adodc1.RecordSource = "select * from KASS where ID>=" & Val(Trim$(Text8.Text)) & " And ID<=" & Val(Trim$(Text9.Text)) & "ORDER BY ID"

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


RE: كيف يمكن ان استخدم جملة orderby - princeofislam - 20-06-18

(20-06-18, 05:21 AM)Amir_alzubidy كتب :
السلام عليكم و رحمة الله و بركاته 
هذه طريقة اخرى 
ارجو الاستفادة منها 

If Text8.Text = "" Or Text9.Text = "" Then Exit Sub

Adodc1.RecordSource = "Select * From kass where ID>=" & Val(Trim$(Text8.Text)) & _
" AND ID<=" & Val(Trim$(Text9.Text))

Adodc1.CommandType = adCmdText
Adodc1.Refresh

'åäÇ Þã ÈÊÛííÑ ÇáÍÞá ÇáãÑÇÏ ÇÓÊÎÏÇãå ááÊÑÊíÈ ÇáÐí ÊÑíÏ
Adodc1.Recordset.Sort = "ID"

Set DataGrid1.DataSource = Adodc1


thats is a great code really omggggggggggggggggggggggggggggggg  wow  يا سلام عليك استاذ روعة
(20-06-18, 05:15 AM)elgokr كتب : استخدم الاستعلام بهذه الطريقة
كود :
Adodc1.RecordSource = "select * from KASS where ID>=" & Val(Trim$(Text8.Text)) & " And ID<=" & Val(Trim$(Text9.Text)) & "ORDER BY ID"

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

شكرا لك سيدي لاكن الكود اعطاني خطاء

RE: كيف يمكن ان استخدم جملة orderby - Najy Ibraheem - 20-06-18

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

فقط ضع فراغ بين علامة التنصيص أو الاقتباس و كلمة order:

كود :
Adodc1.RecordSource = "SELECT * FROM KASS WHERE ID>=" & Val(Trim$(Text8.Text)) & " AND ID<=" & Val(Trim$(Text9.Text)) & " ORDER BY ID"

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

RE: كيف يمكن ان استخدم جملة orderby - elgokr - 20-06-18

(20-06-18, 06:04 AM)princeofislam كتب : شكرا لك سيدي لاكن الكود اعطاني خطاء

ما هى رسالة الخطاء الذى تحدث معك

لان من الواضح ان السبب فقط لعدم وجود مسافة فى هذا الجزء
كود :
& "ORDER BY ID"

لتصبح بعد المسافة
كود :
& " ORDER BY ID"

او يمكنك جعل كود الاستعلام بهذا الشكر لتجنب اخطاء المسافات وتشابك الكلمات
كود :
Adodc1.RecordSource = "select * from KASS where ID>='" & Val(Trim$(Text8.Text)) & "' And ID<='" & Val(Trim$(Text9.Text)) & "' ORDER BY ID"

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