Neelain IT
السلام عليكم ورحمة الله وبركاته
مرحب بيكم في منتداكم

الدرس الرابع : اضافة زر بحث الي المشروع

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الدرس الرابع : اضافة زر بحث الي المشروع

مُساهمة  Dr.Smsm_07 في الأربعاء نوفمبر 09, 2011 7:27 pm

السلام عليكم
بعد ما تعلمنا كيفية اضافة سجل الي قاعدة البيانات ( الدرس الثالث) اليوم سوف نتعلم كيفية عمل زر بحث
----------------------------------------
سوف تكون الفكره انه عند الضغط علي زر البحث فانه سوف يتم تهيئة حقول الاسم والهاتف لاستقبال البيانات
وبعد ذلك عند ادخال رقم السجل المطلوب البحث فيه (في حقل no1) ومن ثم ااضغط علي زر Enter فسوف يتم ملئ حقل الاسم والرقم بالبيانات
واذا لم تكن هنالك بيانات سوف تظهر رساله تفيد بذلك
وهذا هو الكود - يتم وضع هذا الكود في Text1_KeyPress-
***********************
If KeyAscii = 13 Then " الرقم 13 هو الاسكي للزر انتر "
If Text1.Text = "" Then
MsgBox (" plese enter the number and prese Enter_key ")
Else
Set RS = New ADODB.Recordset
RS.Open "select * from tabl1 where no1=" & Text1.Text & "", DB, adOpenStatic, adLockReadOnly
If RS.RecordCount > 0 Then
Text2.Text = RS!Name
Text3.Text = RS!phon
Else
MsgBox "This nomber is not in the DB"
End If
End If
End If
-------------- يارب اكون وفقت في الشرح ---------------
وعلي العموم دي السورس كود بتاعي العملتو
http://jumbofiles.com/8koelm2zb7q0/serch_db_vb6.rar.html
ولو في زول ما فهم حاجه فاليسأل
******* وما توفيقي الا من عند الله *****************
avatar
Dr.Smsm_07
Admin

عدد المساهمات : 54
السٌّمعَة : 3
تاريخ التسجيل : 21/10/2011
العمر : 30

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى