• 0
ehab125

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

سؤال

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

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

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

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

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

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

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

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

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

950043498.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .