السلام عليكم
انا كنت اصنع برنامج دليل التليفون
وكنت محتاج لبعض الاكواد
1- كيف يمكنني البحث بالاسم او الرقم واذا بحثت بجزء من الاسم او الرقم ظهرت لي النتائج
2-كيف يمكنني اضافة اسم واذا كان هذا الاسم موجود يظهر لي مسج بوكس لتنبيهي
3- كيف يمكن تعديل اسم واذا كان الاسم المعدل موجود يظهر لي مسج بوكس لتنبيهي
4- كيف يمكنني حذف اسم
وشكرا جزيلا :wub:
تم تعديل هذه المشاركة بواسطة ain334 في 24 سبتمبر 2008 في 17:51
السلام عليكم ,,,
اخي الكريم , الموضوع يطول شرحه لذلك صممت نموذج بسيط ستجد فيه كل ما تحتاجه عن برنامج دليل التليفونات
ستجد البرنامج في المرفقات
اتمني ان يفيدك البرنامج وان افيد واستفيد في هذا المنتدي
مع تحياتي والسلام عليكم ورحمة الله وبركاته
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
السلام عليكم
شكرا لاهتمامك ولكن هذا ليس مااريده
انا اريد انا ابحث بجزء من الاسم فيظهرلي الاسم كامل
وايضا الاكواد المطلوبة في الموضوع الرئيسي اول الموضوع
- بالنسبة للبحث عن الاسم يمكنك استخدام الاستعلام هكذا:
"Select * From Table Where [Name] like '*" & strName & "*'"
حيث table هو اسم الجدول الذي يحتوي على بيانات الدليل و name هو اسم حقل الاسم في الجدول و strName هو متغير للاسم المطلوب البحث عنه
- لإضافة اسم يمكنك استخدام الكود التالي:
with rsPhone
.find "[Name] ='" & strName & "'"
if not rs.eof then
msgbox "error"
exit sub
else
.addnew
.fields([Name])=strName
.update
end if
end with
- بالنسبة لتعديل اسم:
rs.find "[name]='" & oldname & "'"
rs.fields([name])=newname
rs.update
وبالنسبة لعدم التكرار يمكن عمله بالطريقة السابقة عند الإضافة
- بالنسبة للحذف:
rs.find "[name]='" & strname & "'"
rs.delete
وبالتوفيق
كان الله في عون العبد ما كان العبد في عون أخيه
qushisha@yahoo.com
استخدم جمل SQL للإستعلام ، بها ما تريد و أكثر
المعامل Like
Select * From Table Where Field Like 'Value'
البحث باستخدام أول حروف في الكلمة
Select * From Table Where Field Like 'Value%'
البحث باستخدام أي حرف من الكلمة يعني البحث
عن حرف ميم سيكون من النتائج محمد وأحمد
Select * From Table Where Field Like '%Value%'
