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

مساعدة من اهل الخبرة

بدأه ehab125 في 3 ديسمبر 2012 · 1 رد · 755 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

في الاول انا مسؤل سيارات ومخازن وعندي ملفات ضخمة جدا والملفات دي عملها علي الاكسل مسهلة علي البحث شوية

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

انا عملت كل اللي قولت علية دة وصممت البرنامج علي الفيجوال بيسك 6 وعملت قاعدة البيانات وتم ربطها بالفجوال

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

لعل وعسي اجد الحل عندكم

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

وهذة صورة من التصميم

950043498.jpg

#2

Dim name,str As String

name= text1.text

If Len( name) = 0 Then

MsgBox " لم تقم بإدخال أي بيانات“

Exit Sub

End If

" ' "+str= "name=' "+ name

Data1.Recordset.FindFirst str

If Data1.Recordset.NoMatch = True Then

" هذا الاسم غير موجود"MsgBox

Else

[Txt1. Text = Data1. Recordset![name

[Txt2. Text = Data1. Recordset![ address

[Txt3. Text = Data1. Recordset![ phone

End If

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

text1 وحتعمل تعديل فى طريقة البحث فى السطر دا " ' "+str= "name=' "+ name

لان انا عامل بحث بالاسم انتا ممكن تعمل متقيرات للاسم والرقم لازرار الراديو

اما الكودات الاتيه مسؤوله عن عرض نواتج عملية البحث

[Txt1. Text = Data1. Recordset![name

[Txt2. Text = Data1. Recordset![ address

[Txt3. Text = Data1. Recordset![ phone

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