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

_______________.rar

الأخ الكريم ، لما كل ها القلق !!!

يمكنك منع المستخدم من إدخال القيمة من أساسة ، ولكن أخي أنا بجد كنت أفكر في موضوع الـ Replace لكنين وجدت فعلياً أنها لا تعمل من داخل الفيجوال 6.0 ، وللأسف لم أنتبه من ذلك ، حيث أن الأوراكل تحتوي علي هذه الدالة وأعمل بها من داخل الفيجوال بنجاح !!!

لكن يمكن حل آخر ، وهو عدم إتاحة المستخدم من إدخال أي حروف أخري إلا الحروف المختارة ، وهذا هو الذي يتبعة الكثيرون ، أنظر الكود التالي :

Private Sub Text1_KeyPress(KeyAscii As Integer)
	Dim strFind As String

	strFind = "ابتثجحخدذرزسشصضطظعغفقكلمنهةويى "

	If (InStr(strFind, Chr(KeyAscii)) = 0) Then KeyAscii = 0
End Sub

فلا تقيد نفسك بشيء واحد ، وإن كان لديك قاعدة بيانات تعمل فعلياً علي هذا الأساس ، فلا بأس ، يمكنك إنشاء View Update يقوم بالتعديل علي الحقل بحيث أن يلغي كل عملياتة كما يلي :

Update Emp Set Emp_Name = Replace(Emp_Name,"أ","ا")

وذلك من داخل قاعدة البيانات ، وبعدها قم بضبط البيانات الجديدة المدخلة

شكراً

MMA_EG_Cairo كتب:

الأخ الكريم ، لما كل ها القلق !!!

يمكنك منع المستخدم من إدخال القيمة من أساسة ، ولكن أخي أنا بجد كنت أفكر في موضوع الـ Replace لكنين وجدت فعلياً أنها لا تعمل من داخل الفيجوال 6.0 ، وللأسف لم أنتبه من ذلك ، حيث أن الأوراكل تحتوي علي هذه الدالة وأعمل بها من داخل الفيجوال بنجاح !!!

لكن يمكن حل آخر ، وهو عدم إتاحة المستخدم من إدخال أي حروف أخري إلا الحروف المختارة ، وهذا هو الذي يتبعة الكثيرون ، أنظر الكود التالي :

Private Sub Text1_KeyPress(KeyAscii As Integer)
	Dim strFind As String

	strFind = "ابتثجحخدذرزسشصضطظعغفقكلمنهةويى "

	If (InStr(strFind, Chr(KeyAscii)) = 0) Then KeyAscii = 0
End Sub

فلا تقيد نفسك بشيء واحد ، وإن كان لديك قاعدة بيانات تعمل فعلياً علي هذا الأساس ، فلا بأس ، يمكنك إنشاء View Update يقوم بالتعديل علي الحقل بحيث أن يلغي كل عملياتة كما يلي :

Update Emp Set Emp_Name = Replace(Emp_Name,"أ","ا")

وذلك من داخل قاعدة البيانات ، وبعدها قم بضبط البيانات الجديدة المدخلة

شكراً

فهمتك أخي ، وأنت علي حق من هذه الناحية ، ولكن أخي مشكلة الـ Access ضعيفة جداً ، بالإضافة الي ذلك أن اللغة العربية معقدة جداً !!!

فأنا كان رأيي أن تستبدل قيم الحقل نفسة في حالة الـ Select فقط لا غير بحيث أن أي قيمة مدخلة يتم إستبدالها بحروف مبدئية ، وأي قيمة مرتجعة من قاعدة البيانات يتم إستبدالها بقية أخري !!!

بمعني أدق ، لو كان المستخدم يرغب في البحث عن قيمة ( أبراهيم ) ولكنها مخزنة تحت مسمي ( إبراهيم ) يتم تجاهل الإثنين ويتم إرتجاعها كقيمة ابراهيم ، وفي نفس الوقت يبحث عل هذا الأساس .

صراحتاً أنا فكرتي أن نستخدم الأمر Replace بحيث أن يحول قيمة معينة الي قيمة أخري ، ولكن للأسف يعتبر كود DBA خاص بالأكسيس فقط لا غير ، أما أوراكل فيحتوي علي نفس الدالة ، ولكن هناك دالة أخري تدعي Translate أفضل بكثير من Replace .

لكن أخي أنا لدي طريقة أخري ، هي صحيح غير جيدة ، ولكنها الي حدٍ ما حل مبدئي ، وهو فتح كافة البيانات الموجودة بالجدول ، ومن ثم إجرا Loop علي كافة السجلات بحيث أن يرتجع سجل سجل علي الجريد في حالة تحققة !!!

مثال ، نفرض أن لدينا جدول يدعي Emp ، وبه حقل يدعي Emp_Name ، ويرغب المستخدم في البحث عن كلمة ( أبراهيم ) قم بالمرور علي كافة الحروف أولاً ، وإذا وجدت به أي حرف غير لائق غيرة للحرف اللائق ، يعني الحرف ( أ ) غيرة الي الحرف ( ا ) .

بعد ذلك قم بإجراء Loop علي كافة السجلات في الـ Recordset ، وأقتبس إسم الموظف علي متغير ، ومن ثم أفعل بالمتغير مثلما فعلت في المدخل ، إذا وجدت الحرف ( إ ) غيرة الي ( ا ) .

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

كذلك يمكن هكذا في ملف البيانات Data File وليس Data Base

أنظر المرفق

شكراً

Simble.rar

السلام عليكم ورحمة الله وبركاته

أخي الحبيب أشكرك مجددا على متابعتك

النقطة الهامة هي في إخراج نتائج البحث داخل DataGrid1

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

وهذا ما نستفيد منه

فالغاية بعد أن تخرج النتائج نقوم بالضغط على أي نتيجة لنرى المعلومة المرتبطة فيها

باختصار: برامج المكتبات الإسلامية تقوم في البحث داخل قاعدة البيانات المشكولة

ومن ثم تخرج البيانات في DataGrid1 غير مشكولة

عند الضغط على أي نتيجة ترى المعلومات والنص المرتبط فيها إما بالتيكست أو بالريش

والمسألة في خروج النتائج في DataGrid1 هنا تكمن المشكلة

اقتباس

السلام عليكم ورحمة الله وبركاته

أخي الحبيب أشكرك مجددا على متابعتك

النقطة الهامة هي في إخراج نتائج البحث داخل DataGrid1

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

وهذا ما نستفيد منه

فالغاية بعد أن تخرج النتائج نقوم بالضغط على أي نتيجة لنرى المعلومة المرتبطة فيها

باختصار: برامج المكتبات الإسلامية تقوم في البحث داخل قاعدة البيانات المشكولة

ومن ثم تخرج البيانات في DataGrid1 غير مشكولة

عند الضغط على أي نتيجة ترى المعلومات والنص المرتبط فيها إما بالتيكست أو بالريش

والمسألة في خروج النتائج في DataGrid1 هنا تكمن المشكلة

الأخ الكريم ، لما جعلتها مشكلة !!!

يمكنك حل مثل هذه المشكلة بطرق أخري ، علي سبيل المثال ، بدلاً من إستخدام آداة الـ DataGrid قم بإستخدام MSFlexGrid ، حيث أنك لا تحتاج منها إلا للإخراج فقط ، حيث قاعدة البيانات لا نستخدمها سوي في قراءة المعلومات وليس التخزين فيها بواسطة المستخدم !!!

بالإضافة الي ذلك ، هناك أدوات أخري أفضل بكثير من كل هذه الأدوات ، وعن نفسي أفضل إستخدام vsFlexGrid

لكن ، طالما أنت ترغب في هذه الآداة فإليك الحل الأمثل ، وهو بدلاً من عرض البيانات مباشرتاً بالـ ListBox قم بعرضها علي DataGrid ، وذلك بواسطة إنشاء Recordset وهمي أو غير مرتبط بقاعدة البيانات ، ومن ثم إدراج معلوماتك بداخلة كما تشاء ، وفي النهاية إعرض محتوياتة علي الجريد

أنظر المرفق

شكراً

Simble.rar

Simble3.rar

الأخ الكريم ، تحية طيبة وبعد ،

اقتباس

الأولى: أضفت لك تكست أريد أن يخرج فيه رقم الموظف .

أولاً ، إسمح لي أن أكرر لك شيء آخر ذكرتة من قبل ، وهو أن إمكانيات الت DataGrid ليست عالية من حيث التحكم الكلي للبيانات ، ولكن الآداة MSFlexGrid أفضل منها بكثير في الأمور الذي أشرت إليها ، حيث يمكنك إيجاد أحداث أخري تجعلك تصمم آداة رائعة من حيث الألوان وغيرها ، فياريت تنتقل إليها .

ثانياً ، يمكن ذلك من خلال حدث يدعي RowColChange ، حيث هذا الحدث يرسل لك قيمة 2 باراميتر تحدد لك هل هو في آخر صف LastRow ، أم في آخر عمود LastCol ، وعلي كلٍ أنت تحتاج الي الصفوف وليس الأعمدة ، فالباراميتر LastRow يمكنك إختبارة بحيث معرفة هل تم عرض بيانات أم لا ، ومن ثم تعرض الحقول التي تقف عليها بصف محدد .

ولكن إذا كنت ترغب في عرض بيانات من جدول آخر ، يمكنك إدراج عمود إضافي يمثل قيمة الـ PK الخاص بالجدول ، ومن ثم إخفائة من حيث تحديد عرض الجريد الي القيمة الصفية ( 0 ) ومن ثم جلب محتوياتة كما تشاء

اقتباس

الثانية: البحث يبحث كلمة كلمة وأنا أريده ممتد؛ مثلا في قاعدة البيانات (ولم يكن له كفواً أحد)

أريد عند كتابة أي كلمة من الآية السابقة أن يخرج الآية كاملة

في البحث العادي كنت أتخلص من هذه المشكلة بإشارة % قبل وبعد الكلمة

أما هنا فليتك تعدله لأنه لم تنجح معي

الدالة Like موجودة في قاعدة البيانات ، ولكن هناك دالة أخري شبيهة بهذه الدالة ، وهي دالة InStr ، يمكن من خلالها إيجاد السجلات التي ترغب فيها كما تشاء ، مثل الدالة Like ، ولكن الدالة Like مجالها أوسع ، أنظر الي الأمثلة التالية التي توضح لك الفرق والتشابع في بعض الأحيان :

1- تشابه الوظيفتين :
Where Emp_Name Like '%Ahmed%'
Where InStr(Emp_Name,'Ahmed') > 0
----------------------------------------------------------
2- Like المجال الأوسع في :
Where Emp_Name Like '%A%d%' = Ahmed,Amgad,Asad, ...... ?

المهم أخي ، يمكن من خلال إستخدام دالة InStr من داخل الفيجوال يمكنك كل شيء ، وبقليل من التحايل يمكنك أيضاً صناعة كل شيء مثل Like .

اقتباس

الثالثة: بقيت مشكلة الــ التعريف؛ أريد عند كتابة رحمن تخرج الرحمن

سؤالك الثالث هو نفس سؤالك الثاني تقريباً

علي كلٍ ، ياريت تحاول تفهم الكود جيداً ، وسيختلف معك الأمر

شكراً

Simble.rar

اقتباس

حصلت على ملف من النت فيه كل أرقام الأحرف وعلامات الترقيم والحركات الإعرابية

يمكنك جلب كافة الحروف الرئيسية المتاحة بلوحة المفاتيح كما يلي :

For X = 0 To 255
	List1.AddItem Chr(X)
Next

If (InStr(ReplaceString(Rs!Emp_Name), ReplaceString(Text1.Text)) > 0) Then

ياريت تفهم عمل InStr جيداً !!!

أولاً ، الدالة ReplaceString تقريباً مشابهة لدالة Replace ، ولكن يختلف عنها أن هذه الدالة دالة خاصة ، وأعتقد أنك فهمت عملها جيداً .

ثانياً ، بخصوص الدالة InStr ، فهي دالة تجلب لنا بداية موقع قيمة نصية معينة ، فنفرض أن لدينا جملة "Welcome To Arab Team" ، ونرغب في البحث عن كلمة "Arab" ، فيجب كتابتها في الصورة التالية :

X := InStr("Welcome To Arab Team","Arab") = 12

بحيث أن يرتجع لك موقع البداية أياً كان ، ولكن في حالة عدم العثور علي هذه الكلمة ، سيرتجع لك علي الفور قيمة صفرية ( 0 ) ، في هذه الظروف الرائعة يمكننا إستغلال الموقف وإجراء شرط ، إذا تم إرتجاع اي قيمة فيتم إدراج السجل الحالي ، أما في حالة عدم إرتجاع أي قيمة فيتم إلغاء عملية الإرتجاع ، وفي النهاية نعرض ناتج كائن الـ oRs التي تحتوي علي كافة تحقق الشرط للمستخدم ، اما إذا كنت ترغب في عملية التطابق فعليك بالكود التالي :

If (ReplaceString(Rs!Emp_Name) = ReplaceString(Text1.Text)) Then

اقتباس

مثلاً: في مرفقك الأخير ظهرت عندي مشكلة عندما أكتب "رحم" تظهر لي رحمن والرحمن وأنا لا أريدها

أنا لا أريد أن يتم تجاهل الأحرف الأخيرة، وهنا تكمن الصعوبة كيف سأعدل في كودك في الجزئية التي أشرت إليها

بينما في الكود الأخير المسألة سهلة من خلال إضافة رموز قبل أوبعد المتغيّر كيفما أشاء.

الأخ الكريم ، ما أفعلة بالمثال هو نفس ما طلبتة ، حيث أن الكلمة Like تنفذ نفس العملية المدرجة أو نفس عملية InStr ، أنظر :

like'%" & X & "%'"

فإذا أدخلت كلمة "رحم" ، ستعرض لك "رحمن" و "الرحمن" ، فنفس الغرض تقريباً !!!

إذاً ، فما المشكلة ، رجاء التوضيح أكثر ؟؟

اقتباس

2- بالنسبة للأداة MSFlexGrid فهي لا تتعامل مع الآدو حاولت مراراً وتكراراً ولكن دون جدوى

فهي تتعامل مع الداتا فقط.وإلا فلا مانع لدي ..

ها هي المصيبة ، كلنا نرغب في أبس الأكواد !!!!

لكن بأبسط طرق التحايل يمكننا صناعة كل شيء ، لكن إذا كنت ترغب مع آداة ترسل لها قيمة الـ Rs مباشرتاً فهناك آداة أحدث منها تدعي MSHFlexGrid ، علي العموم أنظر المثال المرفق .

اقتباس

3- إذا كانت نتيجة البحث واحدة فلماذا لا يمكن استعراضها في txtCode و txtName

فقد لا حظت أن النتائج إذا كانت أكثر من واحدة فيتم عرضها في الأماكن السابقة وإلا فإنها تبقى في DataGrid1 فقط.

أممممممممممممممممممممممممم

هل قرأت الكود جيداً ؟؟ هل فهمتة ؟؟

أخي الكريم ، من المفروض فهم الكود ، ومحاولة التعديل علية كما تشاء !!!

المهم ، انا عدلت علي إجراء FindRecords ، في نهايتة قمت بإستدعاء الحدث المناسب :

Call dg_RowColChange(0, 0)

وفي هذا الحدث قمت بمسح مربعات النص في البداية ، ومن ثم أرتجع القيم من جديد إذا وجد ( أنظر المرفق )

شكراً

Simble.rar

السلام عليكم ورحمة الله وبركاته

ألف شكر لك أستاذي الحبيب

كفيت ووفيت

جزيت ووالديك الفردوس الأعلى

أعدك بأن أسعَ لتطويره وإن شاء الله أنشر التطورات في هذه المشاركة

تقبل شكري وامتناني

اقتباس

السلام عليكم ورحمة الله وبركاته

ألف شكر لك أستاذي الحبيب

كفيت ووفيت

جزيت ووالديك الفردوس الأعلى

أعدك بأن أسعَ لتطويره وإن شاء الله أنشر التطورات في هذه المشاركة

تقبل شكري وامتناني

أشكرك أخي ، بس كان هناك شيء أخير أحببت أن أوضحها لك !!!

موضوع الحروف الأخري مثل ( ال ) ، من المفضل أن تقم بتخزين كافة الجمل وكافة الإستبدالات في ملف معين بحيث أن يتم تخزين كافة المعلومات به ، وفي نفس الوقت يتم جلب لهذه البيانات وبدء عملية الشرط علية ، بحيث أن لا تكرر كل هذه العمليات داخل الفيجوال نفسة ... أو يمكنك تخزين المعلومات بملف مصدر Resource File ، بس الأفضل بملف كما يفعل بقية البرامج مثل برامج المترجم وغيرها ... ولكن يمكنك إجراء تشفير مبدئي للبيانات المخزنة بالملف .

شكراً مرة أخري ، ويارب دايماً بالتوفيق