كيفية عمل بحث بطريقة جوجل

أخى وحبيبى بارك الله فيك

اولا قبل ان تحفظ البيان تأكد من البيان المدخل انه غير مسافات باستخدام الداله

 trim(text)

حيث text هو المدخل من خلاله اما الداله trim فهيا تقوم بحذف كل المسافات فى الاول والاخر وانت حين تقوم بالبحث تجد "محمد " بدون مسافات فى الاول او الاخر

السلام عليكم ستجد هنا ما تبحث عنه

مجموعه من برامجى الخاصه

اخى العزيز

wael abed

شكرا على هذا المجهود الرائع

ولكن انت قمت بتغطية ناحية المسافات ودى بطريقة trim(text) اما الناحية الاخرى

الاوهى لوفى اسمين زى بعض يعنى مسجل اسم محمد مرتين فى البحث لايعطى اى نتائج

وشكرا

اخى العزيز مسلم

مشكور على المجهود

بس الرابط الى انت حاطة مش شغال

لانى موقع 4shared بيطلب user و pass

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

وشكرا

like google text box

أعتقد أنه يوجد لديك خطأ في أمر البحث ،

ما هو كود البحث الذي تستخدمه ( مثلاً للبحث عن كلمة "محمد" ) ؟ ولو استطعت إرفاق المشروع يكون أفضل ..

 

Dim X As String
X = InputBox("Enter name")
re.FindFirst "Name='" + X + "'"
If re.NoMatch Then
MsgBox "Not...found", vbExclamation, "Error"
End If

مع التعديل

Dim X As String
X = InputBox("Enter name")
re.FindFirst "Name like '" + X + "'"
If re.NoMatch Then
MsgBox "Not...found", vbExclamation, "Error"End If

wael abed كتب:

مع التعديل

Dim X As String
X = InputBox("Enter name")
re.FindFirst "Name like '" + X + "'"
If re.NoMatch Then
MsgBox "Not...found", vbExclamation, "Error"End If

ويمكن استخدام التالي لوكانت قاعدة البيانات SQL

re.FindFirst "Name like '%" + X + "%'"

وغير ذلك

re.FindFirst "Name like '*" + X + "*'"