الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اكواد مهمة لدليل التليفون

بدأه ain334 في 24 سبتمبر 2008 · 4 رد · 2,042 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا كنت اصنع برنامج دليل التليفون

وكنت محتاج لبعض الاكواد

1- كيف يمكنني البحث بالاسم او الرقم واذا بحثت بجزء من الاسم او الرقم ظهرت لي النتائج

2-كيف يمكنني اضافة اسم واذا كان هذا الاسم موجود يظهر لي مسج بوكس لتنبيهي

3- كيف يمكن تعديل اسم واذا كان الاسم المعدل موجود يظهر لي مسج بوكس لتنبيهي

4- كيف يمكنني حذف اسم

وشكرا جزيلا :wub:

تم تعديل هذه المشاركة بواسطة ain334 في 24 سبتمبر 2008 في 17:51

#2

السلام عليكم ,,,

اخي الكريم , الموضوع يطول شرحه لذلك صممت نموذج بسيط ستجد فيه كل ما تحتاجه عن برنامج دليل التليفونات

ستجد البرنامج في المرفقات

اتمني ان يفيدك البرنامج وان افيد واستفيد في هذا المنتدي

مع تحياتي والسلام عليكم ورحمة الله وبركاته

___________________________.rar

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#3

السلام عليكم

شكرا لاهتمامك ولكن هذا ليس مااريده

انا اريد انا ابحث بجزء من الاسم فيظهرلي الاسم كامل

وايضا الاكواد المطلوبة في الموضوع الرئيسي اول الموضوع

#4

- بالنسبة للبحث عن الاسم يمكنك استخدام الاستعلام هكذا:

"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

#5

استخدم جمل SQL للإستعلام ، بها ما تريد و أكثر

المعامل Like

Select * From Table Where Field Like 'Value'

البحث باستخدام أول حروف في الكلمة

Select * From Table Where Field Like 'Value%'

البحث باستخدام أي حرف من الكلمة يعني البحث

عن حرف ميم سيكون من النتائج محمد وأحمد

Select * From Table Where Field Like '%Value%'
مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif

مواضيع مشابهة