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

السلام عليكم
بعد ما تعلمنا كيفية اضافة سجل الي قاعدة البيانات ( الدرس الثالث) اليوم سوف نتعلم كيفية عمل زر بحث
----------------------------------------
سوف تكون الفكره انه عند الضغط علي زر البحث فانه سوف يتم تهيئة حقول الاسم والهاتف لاستقبال البيانات
وبعد ذلك عند ادخال رقم السجل المطلوب البحث فيه (في حقل 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
ولو في زول ما فهم حاجه فاليسأل
******* وما توفيقي الا من عند الله *****************