تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن ان استخدم جملة orderby
#1
كل عام وانتم بالف خيرا وتقبل الله طاعتكم

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

شاكر لكل من مر و شارك وساعد ووجه
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}
تم الشكر بواسطة:
#2
استخدم الاستعلام بهذه الطريقة
كود :
Adodc1.RecordSource = "select * from KASS where ID>=" & Val(Trim$(Text8.Text)) & " And ID<=" & Val(Trim$(Text9.Text)) & "ORDER BY ID"

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: Amir_Alzubidy , princeofislam
#3
السلام عليكم و رحمة الله و بركاته 
هذه طريقة اخرى 
ارجو الاستفادة منها 

.rar   Test.rar (الحجم : 14.02 ك ب / التحميلات : 23)
الرد }}
تم الشكر بواسطة: elgokr , elgokr , princeofislam
#4
(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"

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

شكرا لك سيدي لاكن الكود اعطاني خطاء
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}
تم الشكر بواسطة: elgokr
#5
السلام عليكم...

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

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

أرجو الاستفادة و السلام.
الرد }}
تم الشكر بواسطة: elgokr
#6
(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"

تحياتى لك 
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: princeofislam , princeofislam


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question كيف يمكن فتح ملف exe من خلال برنامجي ؟؟ Microformt 2 277 02-05-22, 12:21 AM
آخر رد: Microformt
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 619 05-12-21, 12:04 AM
آخر رد: hamada salah90
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 518 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى
Wink هل يمكن تحديث بيانات من استعلام لجدول مصمم هاوي 10 1,021 04-11-21, 01:33 PM
آخر رد: مصمم هاوي
Question [vb6.0] هل يمكن تغير نوع خط Label من خلال الكود وكيف ذلك ؟؟ Microformt 2 514 10-10-21, 08:58 AM
آخر رد: Microformt
Question [vb6.0] هل يمكن نسخ ما في Text عن طريق زر الامر ؟؟ Microformt 2 603 02-10-21, 02:39 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 1,042 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
  كيف يمكن نقل بيانات من جدول في قاعدة بيانات الى قاعدة بيانات مثلها تماما gonm64 2 875 11-06-21, 04:55 PM
آخر رد: gonm64
  [vb6.0] كيف يمكن إضهار الصوره تحت Text عند النقر على زر الامر ؟؟ Microformt 2 832 08-06-21, 04:42 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ربط قاعدة البيانات اكسس بتقنية Dao نامل المساعدة العاجلة ؟؟ Microformt 3 926 23-05-21, 01:50 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم