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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم اسئلة vb6.0 المتعلقة بقواعد البيانات > مشكلة فى ترتيب السجلات
نسخة كاملة : مشكلة فى ترتيب السجلات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

اسلام الكبابى

11-10-17, 11:55 PM
فى لغة ال VB6
لدى Adodc متصل بجدول TABLE1 فى قاعدة بيانات
وعندى مشكلة عند عرض البيانات بترتيب معين
جملة الترتيب التى أعرفها هى
Adodc1.RecordSource = "select * from TABLE1 ORDER BY TABLE1.NAME
تحدث المشكلة اذا كان الحقل المطلوب ترتيب السجلات بناء عليه(الحقل NAME) حقل نصى وتحتوى بيناته على همزات
فهو يفرق بين الحرف "ا" وبين الحرف "أ"   فيجعل كلمة "أمجد" قبل كلمة "اشرف"
بينما لو تجاهلنا الهمزات ولم نفرق بين الحرفين لكانت كلمة "اشرف"هى الأولى (لأن طبعآ حرف ال شين قبل حرف ال ميم)
ولكم ألف شكر

اسلام الكبابى

12-10-17, 01:34 PM
لدى كود يحل تلك المشكلة ولكنه كود معقد متعب للكمبيوتر عند عمل أى ترتيب للسجلات
   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"


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

اسلام الكبابى

03-09-18, 02:46 PM
ألا توجد أى دالة أو جمل بسيطة تجعل الكمبيوتر يقوم بذلك بسهولة
ولكم ألف شكر

elgokr

04-09-18, 02:24 AM
أولاً المشكلة هنا ترجع لانك تقوم بادخال البيانات بغير صحيحة
اذا كنت تهتم وجود الـ ء او لا فعليك الاتزام بها

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

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

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

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

اسلام الكبابى

05-09-18, 12:45 AM
إقتباس :ثانياً اذا كنت تريد عمل الصح فيبقي فى قيمة ادخال الاسماء بالجدول
يمعنى عند عمل اضافة الاسماء عليك باستبدال ا بـ أ أو العكس

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

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

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

ولكم ألف شكر
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم اسئلة vb6.0 المتعلقة بقواعد البيانات > مشكلة فى ترتيب السجلات