الدرس الرابع : كيفيت البحث في البيانات بعد الحفط في فيجوال البيسك

[الكيكي]

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

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

تكتب الاوامر التالية :
بعد ان تضع زر لبحث تكتب داخل هذا الزر الاوامر التالية :
Data1.RecordSource = "select * from n where n1=" + "'" + Text1.Text+ "'"
Data1.*******
If Data1.Recordset.EOF Then


MsgBox " لاتــــوجد بيانــات بهذا الـــرقم المدخــل "

Else
Text1.Text = Data1.Recordset.Fields!n1
End If
طبعاً سوف تتسال ماهو الامر الاول
هو معناه ابحث لي وهي كلمة (select) في(* from ) ومعناة هذه الكلمة هي ( في )
ثم تأتي كلمة (n) وهو اسم الجدول الذي انشاته في قاعدة البيانات اكسس97
وهذا الاسم إحتياري فيمكنك تغيره كما تشاء
ثم تاتيك كلمة ( where n1) ومعناتها ابحث في (n1) وهو اسم الحقل الذي داخل الجدول .
وطبعاً TEXT1.TEXTهو اسم الحقل الذي داخل فيجوال البيسك اي انك تريد اتبحث في هذا المربع ومثلا يكون هذ الحقل رقم الموظف وتريد ان تبحث برقمه فتبحث عن طريق هذا الحقل وهو اختياري لك
اما كلمة (Msgbox) اي إذا لم تجد لهذا اي معلومات فعرضلي الرسالة المطلوبة التي انت تكتبها كما هو موجود في الاعلى .
اما كلمة (Else) هي معناتها إذا وجت بيانات فعرضها في هذا الحقول وهي
Text1.Text = Data1.Recordset.Fields!n1
ويمكن كتابة اكثر من textولكن هذا مثلا فقط .
اما كلمة (End if) فهي اداه شرطيه لنك كتبت كلمة (Else) وهي تاتي كلها سوى لايمكن الاستغناء عنها .

وشكراً لك
والدرس الخامس : سوف يكون في التنقل بين الحقول بأستخدام زر (Enter) الموجود في لوحة المفاتيح .

اخوكم الكيكي
:rolleyes: