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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : مشكلة فى ترتيب السجلات (/showthread.php?tid=22074)



مشكلة فى ترتيب السجلات - اسلام الكبابى - 11-10-17

فى لغة ال VB6
لدى Adodc متصل بجدول TABLE1 فى قاعدة بيانات
وعندى مشكلة عند عرض البيانات بترتيب معين
جملة الترتيب التى أعرفها هى

Adodc1.RecordSource = "select * from TABLE1 ORDER BY TABLE1.NAME
تحدث المشكلة اذا كان الحقل المطلوب ترتيب السجلات بناء عليه(الحقل NAME) حقل نصى وتحتوى بيناته على همزات
فهو يفرق بين الحرف "ا" وبين الحرف "أ"   فيجعل كلمة "أمجد" قبل كلمة "اشرف"
بينما لو تجاهلنا الهمزات ولم نفرق بين الحرفين لكانت كلمة "اشرف"هى الأولى (لأن طبعآ حرف ال شين قبل حرف ال ميم)

ولكم ألف شكر


RE: مشكلة فى ترتيب السجلات - اسلام الكبابى - 12-10-17

لدى كود يحل تلك المشكلة ولكنه كود معقد متعب للكمبيوتر عند عمل أى ترتيب للسجلات
   Adodc1.Recordset.MoveFirst
For I = 0 To Adodc1.Recordset.RecordCount - 1
     NAMME = Adodc1.Recordset.Fields(1)
  NAMME = Replace(NAMME, "أ", "ا", 1, -1)
  NAMME = Replace(NAMME, "إ", "ا", 1, -1)
  NAMME = Replace(NAMME, "آ", "ا", 1, -1)
   Adodc1.Recordset.Fields(1) = NAMME
Adodc1.Recordset.MoveNext
Next I
Adodc1.Refresh
     Adodc1.RecordSource = "select * from TABLE1 ORDER BY TABLE1.NAME"


لذلك أبحث عن دالة أو جمل بسيطة تجعل الكمبيوتر يقوم بذلك بسهولة
ولكم ألف شكر



RE: مشكلة فى ترتيب السجلات - اسلام الكبابى - 03-09-18

ألا توجد أى دالة أو جمل بسيطة تجعل الكمبيوتر يقوم بذلك بسهولة
ولكم ألف شكر



RE: مشكلة فى ترتيب السجلات - elgokr - 04-09-18

أولاً المشكلة هنا ترجع لانك تقوم بادخال البيانات بغير صحيحة
اذا كنت تهتم وجود الـ ء او لا فعليك الاتزام بها

لان أ هو الحرف الاول فى الحروف الابجدية لكن كلاً من إ و آ و ا كلها حروف ثانوى اى يتبع
لا اعلم حل جزري حتى يختصر الامر عليك لكن من وجهى نظرى

ثانياً اذا كنت تريد عمل الصح فيبقي فى قيمة ادخال الاسماء بالجدول
يمعنى عند عمل اضافة الاسماء عليك باستبدال ا بـ أ أو العكس

وبكده تكون حليت المشكلة دون اى عناء

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



RE: مشكلة فى ترتيب السجلات - اسلام الكبابى - 05-09-18

إقتباس :ثانياً اذا كنت تريد عمل الصح فيبقي فى قيمة ادخال الاسماء بالجدول
يمعنى عند عمل اضافة الاسماء عليك باستبدال ا بـ أ أو العكس

وبكده تكون حليت المشكلة دون اى عناء

وهذا ما فعلته أصلآ فى كودى وأسأل عن حل أسها منه

  NAMME = Replace(NAMME, "أ", "ا", 1, -1)
  NAMME = Replace(NAMME, "إ", "ا", 1, -1)
  NAMME = Replace(NAMME, "آ", "ا", 1, -1)

ولكم ألف شكر