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

ارجووو من الاخوان الافاده في البحث

مغلق
بدأه q8-77 في 21 مايو 2005 · 41 رد · 2,889 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا صممت قاعدة بيانات المشكله في قاعدة البيانات هي

اني ما اقدر بحث الى في الاسم الاول فقط

انا الى ابيه اكتب الاسم الاول وبعدين الثاني وبعدين الثالث ويطلع لي الاسم كامل تحت مع كل بياناته

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

اذا احد يقدر يفيدني يضعلي مجسم في الشي هذا

دعواتي لكم في دوام الصحه والعافيه

post-28063-1116633298_thumb.jpg

#2

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

وأسم الجدول والحقول الخاصه بقاعدة البيانات حتى نتمكن من كتابة الكود وان شاء الله يعمل

بس ليه انتا مصمم قاعدة البيانات كده

خيركم من تعلم العلم وعلمه

#3

بحسب سؤالك انت تريد مجموعة سجلات بحسب شرط معين .. و هذا ما تقوم به الخاصية Filter .. و كما قال الأخ Misiny_forever حدد طريقة الربط بقاعدة البيانات التي استخدمتها ، و سنفيدك إن شاء الله ،، :)

بنت اليمن ،،

لا اله الا الله .. محمد رسول الله

(* ربِ اجعلني مقيم الصلاة و من ذريتي ، ربنا و تقبل دعـاء *)

يا حيّ يا قيـوم ... برحمتك استغيث ... اصلح لي شأني كله و لا تكلني الى نفسي طرفة عين

#4

شكرآ لزيارتكم

انا الي ابيه انا عندي قاعدة بيانات مصممه على الاكسل و data

فيها عدة جداول واريد البحث في الاسماء الموجوده يعني

اكتب الاسم الاول ثم الثاني ثم الثالث ثم الرابع

او اكتب الرقم يطلعلي الاسم الرباعي والعنوان ورقم التلفون

هذا الي ابيه

هذا الملف المرفق يوضح لكم الفكره مع الصوره

New Folder (2).rar

post-28063-1116710076_thumb.jpg

#5

السلام عليكم

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

و الأفضل ان يتم بالبحث عن طريق الرقم ...

أي ان تقوم بإضافة حقل للرقم في الجدول .. و يتم بالحث من خلاله ...

gaza3-3.jpg
#6

اخي ابراهيم الطيب

واخواني الموجودين

اذا في احد عنده فكره عن البحث في جميع الاشياء اتمنى الافاده

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

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

#7

السلام عليكم

طيب انت تستخدم اي طريقة للربط بين الفجوال و الاكسس

و عملة البحث بالرقم ليس الزامية انما هو اقتراح فقط ...

gaza3-3.jpg
#8

السلام عليكم مشكور يا اخواني على الاهتمام

انا طرحت هذا الموضوع للفائده العامه الكثير من الاخوان لا طالما بحثو عن هذا البحث ولكن دون جدوا او عدم ابلاء الاهميه له

وانا وضعت في المنتدى هذا لكي نعمل مع بعض ونجعل كل المواضيع لها حل بأذن الله

---------------------------------------------------------------------------------------------

طيب يا ابراهيم فكره حلو لكن في سؤال؟

اذا عملت بحث على الرقم هل يطلع كل البيانات التي في القاعده ؟

انظر للملف المرفق صوره لقادة البيانات

اذا امكن عملها ارجو وضع مثال

post-28063-1116760647_thumb.jpg

data.rar

#9

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

اخي الفاضل ارجووو تثبيت الموضوع لكي يتسنا للشباب المشاركه فيه

ثااني شي انا استخدم برنامج Access2000 لقاعدة البيانات

وعملة له ربط في الطريق العاديه

لكن لم اجد اي اهتمام من جميع الاخوان في هذا الموضوع او لم اجد رد

هل هناك احد يقدر ان يساعدني جزاكم الله خير

#10

طيب اقتراح ثاني اذا امكن

اخي ابراهيم الطيب

هل تقدر ان تفيدي ونجعل الاسم الرباعي في خانه واحده مثال

تكون قاعدة البيانات هكذا

انظر الصور المرفقه عن الجدول

بحث اذا بحثنا في الاسم تظهر كل البيانات الموجوده في قاعدة البيانات المصممه على اكسس

وكذالك الرقم البطاقه او المرجع اذا بحثنا فيه تظهر كل البيانات المتعلقه في الشخص

اتمنى ان يكون مفهوم الشرح

اذا امكن عملها في فيجوال او ACCESS2000

ولكم جزيل الشكر

post-28063-1116838722_thumb.jpg

#11

السلام عليكم

اخي الكريم

خير ان شاء الله

ان شاء الله بس اصل جهاز عليه فجوال بيسك و باذن الله ارسل لك المطلوب

gaza3-3.jpg
#12

السلام عليكم

Dim x
  x = InputBox("Please enter CardID")
 If x = "" Then Exit Sub

  text1= x
  SQL = "select * from Tblstudentinfo  where CardID= " & text1.Text & ""
  Set rs = db.OpenRecordset(SQL, 2)
  If rs.RecordCount < 1 Then
    MsgBox "Sory, Not Found"
    Exit Sub
  End If

    text1.Text = rs!CardID
    text2.Text = rs!GydNo
    text3.Text = rs!RefrenceNo
    text4.Text = rs!Address
    text5.text= rs!FName

طبعا :

Tblstudentinfo هو اسم الجدول .

CardID -GydNo - RefrenceNo - Address-FName

هي الحقول , و افضل لو قمت بتسمية الحقول باللغة الانكليزية بدل العربية ..

gaza3-3.jpg
#13

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

اخي الفاضل

انا انتظرك

اما الاسماء مافيها اي مشكله حوالها الي انقليزي

لكن مازال السؤال حائر في ذهني لماذا لانقدر ان نجعل البحث في الاسماء بدل من الرقم

اما على جهود في هذا الموضوع اشكرك جزيل الشكر واحترمك كثير الاحترام

وإن شاء الله ربنا يوفقك على فعل الخير

انتظر منك المثال لكي نستفيد منه

اذا امكن ان تفيدني في البحث عن دريق الاسماء تعمل لي خدمه ربي يقدرني اني اردها لك

وشكرآ

#14

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

طبعا الكود السابق يكون في زر أمر .

اللهم آمين وفق الكل .....

ياعمي العزيز مفيش مشكلة في كيفية البحث بالاسم

الفرق بين البحث بالاسم أو بالرقم .... هو أن الاسماء قد تتكرر أما الأرقام فلا أظن ان يحدث ذلك

علي العموم سارسل لك كود البحث بالاسم مع العلم أنه نفس الكود السابق .... إلا قليل :)

gaza3-3.jpg
#15

اخي وعزيزي ابراهيم الكود الى راح تظعه في المنتدى يبحث عن الاسم الاول فقط

اذا امكن ان تضع الكود ويكون يبحث في الاسماء يعني مثال الصوره المرفقه

انظر الصوره المرفقه للأفاده فقط

ربنا يطرح فيك البركه ياعم

post-28063-1116848244_thumb.jpg

#16

رجاء خاص لك ولجميع الاخوان

اذا امكن ان تضع لي مثال يكون افضل بدل من الاكواد

لأن الاكواد الموجوده في البرنامج تختلف

هذا طلب مني لكل الاخوان

ولكم جزيل الشكر

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

Exampel.rar

تم تعديل هذه المشاركة بواسطة q8-77 في 23 مايو 2005 في 14:46

#17

السلام عليكم

طيب جرب المثال المرفق :

ٍSearching

:) و كمان للبحث بالاسم بدل الارقام ..

تم تعديل هذه المشاركة بواسطة إبراهيم الطيب في 23 مايو 2005 في 14:54

gaza3-3.jpg
#18

اول شي ربنا يبارك فيك وفي جميع الاخوان ثاني شي يا اخ ابراهيم هذي صوره لبرنامج دليل الهواتف

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

ولك جزيل الشكر

post-28063-1116851650_thumb.jpg

#19

السلام عليكم

اتريد ان يكون البرنامج مثل ما في الصورة المرفقة مثلا ؟

يبدو اني لم استطيع فهم قصدك ....

ارجو ان تعيد المطلوب

هل تريد ان يكون ناتج البحث في جدول مرن FlexGrid بدلا عن صناديق النص ؟

:)

gaza3-3.jpg
#20

اخي ابراهيم انا الي اريده بالضبط ان ابحث عن الاسم

ثاني شي ان تكون قاعدة البيانات على النحو التالي

الاسم الاول ثم الاسم الثاني ثم الاسم الثالث ثم الرابع الى اخر شي

اما بالنسبه

FlexGrid

هذي حسب الافضليه اذا تكون هذي افضل فلا مانع اما اذا كانت صعبه نخليها بعدين انا اريد الشي اللذي يكون سهل وليس الصعب علي وعلى الاخوان جميع

اهم شي اني اكتب الاسم الرباعي ويطلع كل البيانات المتعلق

انا وظعة الصوره المرفقه فقط للعلم او مثال للبحث

اهم شي تكون البيانات ضاهره

#21

السلام عليكم

مافهمته هو انك تريد ان تكتب الاسماء الاربع و بعديها تعمل بحث لبقية الحقول ....

اذ اكان هيك بسيطة ... ان شاء الله , و لو انها غريبة شوي :)

طيب انا راح اعيك الفكرة و انت حاول و قولي ايش حصل معك ...

في المثال الاخير " Searching " تجد انا نمرر له ما كتب في صندوق النص الاول ....

الان نعمل كالأتي :

عرف متغير من نوع string و اكتب : الأتي في زر الأمر الخاص بالبحث :

dim MyStr as String 

MyStr = ( text1.text & " " text2.text & " " &  text3.text & " " text4.text )
'و نمرر المتغير MyStr  لجملة Select بدل صندوق النص Text1.text

طبعا نخن نكتب الاسم الاول في text1 و الاسم الثاني في text2 و هكذا لبقية الاسماء الاربع ..

و بهذا نكون قد مررنا الاسم رباعي للبحث

ارجو ان تجرب و ترد علي

gaza3-3.jpg
#22

اخي ابراهيم

المرفق الذي وضعته لايعمل

ارجو انك تكون فاهم قصدي في البحث

نشرح بالصوره

القاعده المصممه في accessعلى المرحه التاليه الاسم الاول الثاني الثالث الربع الي اخر المعلومات

نأتي في البرنامج

مثل ماهو في صورة البرنامج وانا مرفق برنامج في المرفقات

اتمنا انك تطلع عليه

الشي الاهم

اذا امكن وضع البرنامج نفس الصور في الشك والبحث هذا هو المطلوووب

انه يكون البرنامج فعال للبحث فقط لاغيره يعني مافي البرنامج غير البحث

اتمنا انك تكون فاهم قصدي

انظر الى المرفقات من صور وتصميم البرنامج

المطلوب البرنامج الي بالصوره يعني انا ابيه نفسه يا اخ ابراهيم

post-28063-1116869339_thumb.jpg

post-28063-1116869368_thumb.jpg

data.rar

#23

اخي ابراهيم ارجو منك ان تجرب هذا البرنامج المرفق واهم شي تنظر الى قاعدة البيانات المصممه على access

لكي توصل لك الفكره الي انا ابيها في الابرنامج

لنعمل مع بعض ارجووو مساعدتكم في هذا العمل

ساعدوني ربنا يرحمكم في رحمته

ســــــــــــــــــــــــــــــــــــــــــــــــــــــــــــاعدني

new.rar

#24

أخي العزيز q8-77 .

حملت برنامجك في المرفقات .. ورأيت تصميم قاعدة البيانات .. فتبين لي الآتي ..

أنت تريد أن تدخل الإسم في قاعدة البيانات مقطع بحيث يكون كل أسم في خانة في قاعدة البيانات .

وعندما تريد البحث تريد أن يبحث في الخانات المقطعه ... !!

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

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

ثانياً : إذا إدخل المستخدم الإسم كاملاً في خانة واحدة ( اي تسكت بوكس واحد ) .. فعليك تقسيم هذا الإسم إلى مصفوفة بالأمر ( split ) وتبحث كل إسم في خانته .. أي القيمة الأولى في المصفوفة تساويها مع الحقل الأول في قاعدة البيانات والقيمة الثانية تساويها مع الحقل الثاني وهكذا .. فإذا تطابق .. يرجع باقي السجلات ..

ثالثا : وهو كما فعلت تقسم الإسم عند البحث بحيث يكون كل أسم في تكست بوكس .. وتقارن بعد ذلك كل تكست بوكس مع ما يقابله في قاعدة البيانات ..

ولكن لي عتب عليك يا أخي q8-77 ليش تستخدم الأداة data في ربط قاعدة البيانات ......... لا تزعل امزح ..

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

إنتظرني ..

أخوك

#25

اول شي الشكر لك وللأخر ابراهيم الطيب وللأخوان

اخي الفاضل انا ما ابي اجعل كل الاسماء في خانه واحده انا اريد كل اسم في حقل وابحث عن الاسم في كل الحقول

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

انتظرك وابي منك و من اخي ابراهيم الطيب المساعده

لا شك مانستغني عن الاخوان الباقين في المنتدى

New Folder (3).rar

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

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