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

كيف طريقة كتابة امر للبحث عن الاسم بحرف واحد

مغلق
بدأه bode في 9 أغسطس 2007 · 5 رد · 803 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف يمكن كتابة امر يبحث في قاعدة البيانات بحيث يطلع لي كل الي اسمهم يبداء بحرف معين مثال ( م) يطلع لي الي اسمهم يبداء بحرف الميم محمد معطي مرسي ماج وهكذا ويطلعهم في اداة MSHFLEXGRID وتحياتي لكم

وهذا الكود حقي مدري شنو الغلط فيه

With adodc1

.CommandType = adCmdText

.Mode = adModeReadWrite

.RecordSource = "select * from Q WHERE C = " & "'" & T2.Text & "'"

.Refresh

End With

If Fdata.Recordset.EOF = True Then

MsgBox " لا يـوجــد بـيـانـات مسجلة .. أبحث بطريقة اخرى", vbMsgBoxRight + vbCritical, "تنبية"

T2.Text = ""

T2.SetFocus

End If

تم تعديل هذه المشاركة بواسطة bode في 9 أغسطس 2007 في 19:07

#2

:(

#3

لم اتعامل مع msflex

لكن كود البحث هو :

	Form1.Data1.RecordSource = " select * from (اسم الجدول) where (اسم الصنف) like '*" & Text1.Text & "*'"
	Form1.Data1.Refresh

اخي لو بحثت بكون افضل فكثير من مواضيع البحث موجودة و تقريبا كلها مكررة

startingprogremmer.jpg
#4
Form1.Data1.RecordSource = " Select * from  اسم الجدول where Trim(اسم الحقل) like '" & Trim(Text1) & "%' "
Form1.Data1.Refresh

تم تعديل هذه المشاركة بواسطة العقده في 10 أغسطس 2007 في 16:51

ليس كل ما يتمناه المرء يدركه

arabteam2000.gif

#5

ياخي ضع الكود في تايمر واجعل الانترفال = 100

#6

اخي العزيز

ارفق مثال بسيط لقاعدة البيانات عندك وسف يتم التعديل على نفس المثال اختصار للوقت والجهد

والله الموفق

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…