الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

البحث المبسط في قواعد البيانات كيف ؟؟

مغلق
بدأه rcweb في 17 مارس 2005 · 8 رد · 841 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخواني

ارجو ان تساعدوني في المشكلة التي تواجهني

لدي برنامج يعتمد على قاعدة بيانات تحتوي على جدولين in و out

في كل جدول عدد من الحقول no و sub و date ..

الان لدي عدد 2 فورم في كل فورم مربعات نصوص مربوطة في جدول in والفورم الثاني لجدول out

الربط باستخدام الاداة datacontrol

اريد ان ابحث بواسطة الرقم والاسم الرقم بشكل مطابق تماما والاسم باي جزء من النص

لكن انا وضعت مربع للبحث في نفس النموذج بحيث يكتب في مربع النص اسفل النموذج كلمة البحث وعند الضغط على زر ابحث يتم الانتقال الى السجل المحدد بنفس الفورم.

بالمناسبة بحثت في اغلب المواضيع الخاصه بالبحث في المنتدى لكنها لا تناسب حالتي هذه فاحيانا يفشل الكود بسبب وجود جدولين واحيانا تكون جملة SQL وانا اريد النتائج في نفس الفورم.

ارجو المساعدة وجزاكم الله كل خير

تم تعديل هذه المشاركة بواسطة rcweb في 17 مارس 2005 في 12:15

#2

وينكم يا شباب تكفون نبي مساعدة

:rolleyes:

#3

أخي يمكنك تحميل هذاالكتاب وغن شاء الله تستفيد منه

وتجد ما تبحث عنه فيه

/index.ph...ic=54488&st=120

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

#4

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

#5

مشكور اخوي ناصر جزاك الله كل خير

نجحت في تعديل الكود من كتابك وضبط البحث معي لكن لم يضبط اذا حاولت البحث في حقل الرقم يعني لازم يبحث في سلسة نصية وش الحل ؟؟

ايضا البحث لازم يكون مطابق وانا ابي ابحث باي كلمة في الحقل ؟

#6

هذا هو الكود ولكن عند تعديل الحقل sub الى حقل no وهو حقل رقمي يفشل البحث

If txtfind.Text = "" Then Exit Sub

res = txtfind.Text

s = "sub='" + res + "'"

db.Recordset.FindFirst s

If db.Recordset.NoMatch = True Then

MsgBox "لا توجد نتيجة مطابقة"

End If

#7

عند البحث في حقل رقمي لا تضع علامات التنصيص '

قمت بحذفها في مثالك

If txtfind.Text = "" Then Exit Sub
res = txtfind.Text
s = "sub=" + res
db.Recordset.FindFirst s
If db.Recordset.NoMatch = True Then
MsgBox "لا توجد نتيجة مطابقة"
End If

اللهم اغفر لي و لوالدي و للمؤمنين يوم يقوم الحساب

لا إله إلا الله عدد ما كان و عدد ما يكون و عدد الحركات و السكون

#8

فقط غير الجملة الي

s = "sub=" & res

وإن شاء الله تضبط معاك

وبالنسبة للبحث بجزء الكلمة يا ريت تشوف حلقات جمل sql وإن شاء الله تجد مثال هناك

تحياتي لك

أخوك ناصر

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

#9

الله يجزاكم خير كلكم

ومشكورين يا اخواني راح اجرب الاكواد وان شاء الله تضبط معي.

الله يوفقكم دنيا وآخرة

هذا الموضوع مغلق.

مواضيع مشابهة