استخدام البحث المتعدد

بدأه midoo3591 في 12 سبتمبر 2010 · 7 رد · 4,335 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#112 سبتمبر 2010 في 03:20 صاحب الموضوع

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

محتاج كود ضروري لاكتمال هذا المشروع

مرفق صورة للشاشة التي أحتاج إلى أكوادها

مع العلم أن شاشة الدخول لم أكملها لعرض البرنامج عليكم بسهولة

محتاج كود للبحث

بــ ( الإسم - تليفون - رقم الكابينة - رقم البورتة )

مرفق الصورة والمشروع

يرجى نسخ قاعدة البيانات على هذا المسار لعمل البرنامج بصورة صحيحة

E:\Te Data\System\System32\Tedata.mdb

القاعدة لها كلمة حماية ( mohmmed016+52 )

مع العلم اني وضعت هذا الموضوع في منتدى آخر وقوبل بالحذف

البرنامج انا مصممه ليساعد والدي بعمله ليس الا

ليس بالبرنامج اي مخالفات ليتم حذفه كل ما اردته هو كود لاكتمال هذه الشاشة مرفق

مرفق ايضا سورس كود البرنامج

للتعديل عليه ورفعه مرة اخرى

Te Data.rar

المرفقات

MoHmMeD AhMeD

#212 سبتمبر 2010 في 22:47

البحث عن النص في الحقل

للبحث عن أي جزء من النص .

مثال البحث عن كلمة الفريق العربي

ممكن ندخل يق ، بي ، رب وسنحصل على الكلمة

SQL= "Select * from MyTable Where Field_Name LIKE '%" & text1.text & "%'"

======================================================

للبحث من بداية النص

للحصول على الفريق العربي

يجب ادخال ال ، الف ، الفر ، الفري ، الفريق ، ... الخ

SQL= "Select * from MyTable Where Field_Name LIKE '%" & text1.text & "'"

للبحث في نهاية النص

للحصول على الفريق العربي

يجب ادخال ال ، الف ، الفر ، الفري ، الفريق ، ... الخ

SQL= "Select * from MyTable Where Field_Name LIKE '" & text1.text & "%'"

مثال البحث عن كلمة الفريق العربي

ممكن ندخل بي ، ربي ، عربي ، ... الخ وسنحصل على الكلمة

ملاحظة :

MyTable = اسم الجدول في قاعدة البيانات

Field_Name= اسم الحقل الذي يحتوي على البيانات المطلوبة

تحياتي

تم تعديل هذه المشاركة بواسطة omani في 12 سبتمبر 2010 في 22:48

OMANI FOR EVER

-------------------------------------------------

#313 سبتمبر 2010 في 05:55

أخي OMANI ممكن كتابة الاكواد ورفع البرنامج مرة اخرى لاني معرفتش اعملها

MoHmMeD AhMeD

#413 سبتمبر 2010 في 20:08

midoo3591 كتب:
أخي OMANI ممكن كتابة الاكواد ورفع البرنامج مرة اخرى لاني معرفتش اعملها

تفضل هذا مثالك بعد التعديل .. قمت بحذف جميع النماذج السابقة واسبقيت فقط نموذج البحث وذلك لعدك وجود الاداة التي انت استخدمتها لتزين الشكل .

تحياتي

Search Te Data.rar

OMANI FOR EVER

-------------------------------------------------

#513 سبتمبر 2010 في 23:20

شكرا اخي العزيز وجاري التجربة

MoHmMeD AhMeD

#615 سبتمبر 2010 في 01:12

لم يعمل اختار من الكمبو بكس والاوبشن ولكن لا يعمل لا يظهر نتائج

MoHmMeD AhMeD

#716 سبتمبر 2010 في 05:20

 
On Error Resume Next
Set DataGrid1.DataSource = Nothing
If Combo1.ListIndex = 0 Then
If Option1.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where الإسم= '" & Text1 & "'"
End If
If Option2.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where الإسم LIKE '%" & Text1 & "';"
End If
If Option3.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where الإسم LIKE '" & Text1 & "%';"
End If
If Option4.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where الإسم LIKE '%" & Text1 & "%';"
End If
End If

On Error Resume Next
Set DataGrid1.DataSource = Nothing
If Combo1.ListIndex = 1 Then
If Option1.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where تليفون= '" & Text1 & "'"
End If
If Option2.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where تليفون LIKE '%" & Text1 & "';"
End If
If Option3.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where تليفون LIKE '" & Text1 & "%';"
End If
If Option4.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where تليفون LIKE '%" & Text1 & "%';"
End If
End If

On Error Resume Next
Set DataGrid1.DataSource = Nothing
If Combo1.ListIndex = 2 Then
If Option1.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where رقم البورتة= '" & Text1 & "'"
End If
If Option2.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where رقم البورتة LIKE '%" & Text1 & "';"
End If
If Option3.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where رقم البورتة LIKE '" & Text1 & "%';"
End If
If Option4.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where رقم البورتة LIKE '%" & Text1 & "%';"
End If
End If

On Error Resume Next
Set DataGrid1.DataSource = Nothing
If Combo1.ListIndex = 3 Then
If Option1.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where تاريخ التنفيذ= '" & Text1 & "'"
End If
If Option2.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where تاريخ التنفيذ LIKE '%" & Text1 & "';"
End If
If Option3.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where تاريخ التنفيذ LIKE '" & Text1 & "%';"
End If
If Option4.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where تاريخ التنفيذ LIKE '%" & Text1 & "%';"
End If
End If

On Error Resume Next
Set DataGrid1.DataSource = Nothing
If Combo1.ListIndex = 4 Then
If Option1.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where رقم الكابينة= '" & Text1 & "'"
End If
If Option2.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where رقم الكابينة LIKE '%" & Text1 & "';"
End If
If Option3.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where رقم الكابينة LIKE '" & Text1 & "%';"
End If
If Option4.Value = True Then
Adodc1.RecordSource = "Select * From Telcom Where رقم الكابينة LIKE '%" & Text1 & "%';"
End If
End If

Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

هل الكود صحيح

MoHmMeD AhMeD

#816 سبتمبر 2010 في 13:19

اخي لا داعي لكل ذلك استخدم متغيير يحضر اسم الحقل من الكومبو مباشرة .

بهذه الطريقة

On Error Resume Next 
Set DataGrid1.DataSource = Nothing 
If Combo1.ListIndex = 4 Then 
If Option1.Value = True Then 
Adodc1.RecordSource = "Select * From Telcom Where [" & combo1.text & "]= '" & Text1 & "'" 
End If 
If Option2.Value = True Then 
Adodc1.RecordSource = "Select * From Telcom Where  [" & combo1.text & "] LIKE '%" & Text1 & "';" 
End If 
If Option3.Value = True Then 
Adodc1.RecordSource = "Select * From Telcom Where  [" & combo1.text & "] LIKE '" & Text1 & "%';" 
End If 
If Option4.Value = True Then 
Adodc1.RecordSource = "Select * From Telcom Where  [" & combo1.text & "] LIKE '%" & Text1 & "%';" 
End If 
End If 

Adodc1.Refresh 
Set DataGrid1.DataSource = Adodc1

أو أن تقوم بوضع اسم الحقل في [] وذلك ليتمكن الاسكيوال معرفة أن الكلمتين هم اسم الحقل , وليس أول كلمة .

On Error Resume Next 
Set DataGrid1.DataSource = Nothing 
If Combo1.ListIndex = 4 Then 
If Option1.Value = True Then 
Adodc1.RecordSource = "Select * From Telcom Where [رقم الكابينة]= '" & Text1 & "'" 
End If 
If Option2.Value = True Then 
Adodc1.RecordSource = "Select * From Telcom Where  [رقم الكابينة] LIKE '%" & Text1 & "';" 
End If 
If Option3.Value = True Then 
Adodc1.RecordSource = "Select * From Telcom Where  [رقم الكابينة] LIKE '" & Text1 & "%';" 
End If 
If Option4.Value = True Then 
Adodc1.RecordSource = "Select * From Telcom Where  [رقم الكابينة] LIKE '%" & Text1 & "%';" 
End If 
End If 

Adodc1.Refresh 
Set DataGrid1.DataSource = Adodc1

تحياتي

تم تعديل هذه المشاركة بواسطة omani في 16 سبتمبر 2010 في 13:32

OMANI FOR EVER

-------------------------------------------------

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

[مخالف - لم يستخدم البحث :]مساعده كيف العمل كارت الصنف متعدد العبوات1 رد · 1 يوليو 2012
خوارزمية البحث المتعدد4 رد · 27 فبراير 2011
المساعدة في عمل نموذج بحث متعدد0 رد · 11 فبراير 2013
استخدام بحث قوقل من برنامج2 رد · 10 ديسمبر 2011
[مخالف - لم يستخدم البحث :]كيفيه استخدام الcursor1 رد · 21 يوليو 2009
البحث المتعدد2 رد · 18 يناير 2014