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

أريد كود بحث

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

بسم الله الرحمن الرحيم

أريد كود بحث مع العلم أنى رابط قاعدة بيانات أكسس بالفيجوال بيسك عن طريق data control

وسؤال كمان هل لابد أن يكون لقاعدة البيانات مفتاح أساسى أم لا

ولو سمحتوا يكون الكود مرة بحث بأسم ومرة بحث برقم وشرح ماتغير

أسف أطلت عليكم

أرجو الرد :unsure: :unsure: :unsure: :unsure: :unsure:

تم تعديل هذه المشاركة بواسطة basel2000 في 15 يوليو 2005 في 19:33

#2

لقد قمت بارفاق مثال عن data control

يقوم بعمل عدة وظائف التعديل والبحث وغيرها

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

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

وأي سؤال آخر أنا جاهز

GroupSavEditBakFindSortFilMov.zip

من كان في حاجة أخيه كان الله في حاجته

_______________________________________________________________

الآن سجل الأصوات الصادرة عن الجهاز مع برنامج TOTAL RECORDER

اجعل صورتك الرمزية متحركة

#3

السلام عليكم

لا يلزم وضع مفتاح أساسي لقاعدة البيانات ولكن يستحسن وضعه

460.gif

#4

ِكراً على ردكم

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

بس أنا عامل قاعدة بيانات على الأكسس وربطها بالأاداة ولما نسخت كود البحث كلة بيمشى تمام بس لما بكتب الأسم وبضغط انتر بيدنى رسالة خطأ الجملة دى

(" ' * "& Data1.Recordset.FindFirst ("Title Like '" & sf

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

أرجوك

بس ياريت تضع مثال بة مرة بحث برقم وأخر بحث بأسم بس ياريت ماتغير فى المثالين

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

وإذا كتبها صح يدخل

وبعد ما يدخل يستطيع تغير كلمة المرور بس يكتب كلمة المرور القديمة ثم الجديدة ويكرر كتابة الجديدة مرة أخرى

وشكراً

تم تعديل هذه المشاركة بواسطة basel2000 في 16 يوليو 2005 في 01:06

#5

هذا مثال من منتدى اهلا عرب للأخ النبهاني

أعتقد أنو فيه ما يلزم

تحياتي B)

Advanced Search.rar

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#6

السلام عليكم

اولا بالنسبة للمفتاح الاساسي فاهميته تكمن فقط اذا كان الحقل المعين كل قيمه لن تتكرر و لن تاخذ القيمة null اي ان تكون فارغة.......فيما عدا ذلك لا تحتاج للمفتاح الاساسي

بالنسبة للبحث توجد عدة طرق منها استعمال الامر findfirst او يمكن استعمال الكود التالي :

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

data1.recordset.movelast
x=data1.recordset.recordcount
data1.recordset.movefirst

if text5.text=text1.text then exit sub

for i=2 to x
data1.recordset.movenext
if text5.text=text1.text then exit sub
next

if not text5.text=text1.text then msgbox (text5.text & " is not found")

اذا اردت البحث عن جزء من كلمة و ليس الكلمة كاملة فاستبدل جملتي if أعلاه ب:

if inst( text1.text,text5.text,1) then exit sub

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#7

شكراً أخى hishamnasr و أخى hnhn على مساعدتكم لى

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

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