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

كيفية البحث عن اسم بمجرد الحرف

مغلق
بدأه COMFORT في 28 يوليو 2005 · 3 رد · 655 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

بس البحث يكون بالحرف فقط وليس الأسم كله .

بمجرد أن أكتب حرف الألف مثلاً تظهر لي جميع الأسماء

التي تبدأ بحرف الألف فقط ، مثل الصورة .

28_07_05_04_44_48_1122551088List.gif

جزاكم الله خيراً .

تم تعديل هذه المشاركة بواسطة COMFORT في 28 يوليو 2005 في 14:42

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ 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
#2

السلام عليكم

في حدث KeyPress

أضف الكود

Set rs = New ADODB.Recordset
rs.Open "select * from Table1 where name like '"& text1.text &"%' ", cn, adOpenStatic, adLockOptimistic
For i = 0 To rs.RecordCount - 1
List1.AddItem rs!Name
rs.MoveNext
Next

460.gif

#3
On Error Resume Next
Data1.Recordset.AddNew
For i = 0 To Data1.Recordset.RecordCount - 1
Data1.Refresh 'للتحديث
Data1.Recordset.Move (i)
If Left(Data1.Recordset("NameStudent"), Len(Text7)) = Text7 Then
Exit For
End If
Next i

هذا الكود ممتاز ضع الكود التالي في التكست

منتدى المحيط العربي منتدى المبدعين

---- pwned ----

للمراسله :

plantsman9009@hotmail.com

rofessionalvbsing.gif

#4

أخي الكريم Professional VB9 شكراً لك ولك

طريقةالأخ المتميز أفضل لأنني لا أريد استخدام DataControl

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ 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

هذا الموضوع مغلق.

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