[princeofislam]

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

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

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

[elgokr]

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

كود :

Adodc1.RecordSource = "select * from KASS where ID>=" & Val(Trim$(Text8.Text)) & " And ID<=" & Val(Trim$(Text9.Text)) & "ORDER BY ID"

تحياتى لك

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

[princeofislam]

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

تحياتى لك

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

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

[Najy Ibraheem]

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

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

كود :

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

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

[elgokr]

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

تحياتى لك 

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