الدرس الرابع : اضافة زر بحث الي المشروع
صفحة 1 من اصل 1
الدرس الرابع : اضافة زر بحث الي المشروع
السلام عليكم
بعد ما تعلمنا كيفية اضافة سجل الي قاعدة البيانات ( الدرس الثالث) اليوم سوف نتعلم كيفية عمل زر بحث
----------------------------------------
سوف تكون الفكره انه عند الضغط علي زر البحث فانه سوف يتم تهيئة حقول الاسم والهاتف لاستقبال البيانات
وبعد ذلك عند ادخال رقم السجل المطلوب البحث فيه (في حقل 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
ولو في زول ما فهم حاجه فاليسأل
******* وما توفيقي الا من عند الله *****************
بعد ما تعلمنا كيفية اضافة سجل الي قاعدة البيانات ( الدرس الثالث) اليوم سوف نتعلم كيفية عمل زر بحث
----------------------------------------
سوف تكون الفكره انه عند الضغط علي زر البحث فانه سوف يتم تهيئة حقول الاسم والهاتف لاستقبال البيانات
وبعد ذلك عند ادخال رقم السجل المطلوب البحث فيه (في حقل 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
ولو في زول ما فهم حاجه فاليسأل
******* وما توفيقي الا من عند الله *****************
Dr.Smsm_07- Admin
- عدد المساهمات : 54
السٌّمعَة : 3
تاريخ التسجيل : 21/10/2011
العمر : 36
مواضيع مماثلة
» الدرس الثاني : انشاء قاعدة البيانات
» الدرس الثالث : ربط قاعدة البيانات مع البرنامج
» الدرس الاول : مقدمه لربط مع الكاميرا
» الدرس الثالث : الرسم ثنائي الابعاد 2D
» الدرس السادس :وضع الرسومات في نوافذ منفصله
» الدرس الثالث : ربط قاعدة البيانات مع البرنامج
» الدرس الاول : مقدمه لربط مع الكاميرا
» الدرس الثالث : الرسم ثنائي الابعاد 2D
» الدرس السادس :وضع الرسومات في نوافذ منفصله
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى