منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

الكود هو 
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 مثلا 
وكيف ذلك ؟

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

استخدم الاستعلام بهذه الطريقة

(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"

تحياتى لك

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

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

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

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


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

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

لان من الواضح ان السبب فقط لعدم وجود مسافة فى هذا الجزء

لتصبح بعد المسافة

او يمكنك جعل كود الاستعلام بهذا الشكر لتجنب اخطاء المسافات وتشابك الكلمات