روعة من روائع أعمالك أخي الغالي " SENDBAD100 " .. باسم الله ما شاء الله
ربّنا لا يحرمنا منك أبدًا و يطيل بعمرك و أعمار كل من تحب بمحبته و مرضاته و ينعم عليك بخير الدتريْن إن شاء الله
أنا لمّا وضعت الملف حسّيت بشيء ناقص و بَقٍيت لي غصّة لم أعرف كيف أتخلّص منها .. و هي عند الكتابة بالتاكست 6 .. أوّل حرف تظهر البيانات حسب معيار الاسم التي تبدأ بذلك الحرف المكتوب ..
أخي الحبيب ..
كيف نغيّر الاستعلام بملّفك الرّائع ليصبح البحث بمجرّد كتابة الحرف الأول من الاسم تظهر البيانات على الشبكة
أجدّد إحتراماتي و تقديري و محبّتي في الله لشخصك الكريم
شكرا على دعواتك استاذ / عبد العزيز الله يحفظك من كل شر فانت ذو خلق رفيع
جرب الكودين التاليين احدهما سيعمل معك باذن الله
اعتذر اذا كان هناك خطأ فيهما لاني كتبتهم من الجوال ولم اجربهما بعد ولكن احببت ان اكون السباق الى مساعدك كي افوز بدعائك الجميل والرائع. تقبل الله مننا ومنك صالح الاعمال . ورضي عليك وعلى والديك
وباذن الله انه المطلوب
هذا
PHP كود :
Private Sub Command3_Click()
sql = "SELECT * FROM tablette1 WHERE الاسم like '%" & Trim(Text6.Text) & " ' UNION SELECT * FROM tablette2 WHERE [الاسم] LIKE '%" & Trim(Text6.Text) & "'" If rs.State = 1 Then rs.Close rs.Open sql, DB, adOpenStatic, adLockPessimistic DrawFlex View_Records
End Sub
او هذا
PHP كود :
Private Sub Command3_Click()
sql = "SELECT * FROM tablette1 WHERE الاسم like '*" & Trim(Text6.Text) & " ' UNION SELECT * FROM tablette2 WHERE [الاسم] LIKE '*" & Trim(Text6.Text) & "'" If rs.State = 1 Then rs.Close rs.Open sql, DB, adOpenStatic, adLockPessimistic DrawFlex View_Records
18-10-17, 03:39 AM (آخر تعديل لهذه المشاركة : 18-10-17, 03:47 AM {2} بواسطة sendbad100.)
وعليكم السلام ورحمة الله وبركاته
امين ولك مثل ما دعيت لي
ضع هذا الكود في حدث Chang للتكست 6
PHP كود :
Private Sub Text6_Change()
Set rs = New ADODB.Recordset
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM tablette1 WHERE [الاسم] like '" & Trim(Text6.Text) & "%' union all SELECT * FROM tablette2 WHERE [الاسم] LIKE '" & Trim(Text6.Text) & "%'", DB, adOpenStatic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub
والكود التالي يوضف في كوماند3
للبحث عن الاسم المطابق تماما فقط
PHP كود :
Private Sub Command3_Click()
sql = "SELECT * FROM tablette1 WHERE [الاسم] = '" & Trim(Text6.Text) & " ' UNION all SELECT * FROM tablette2 WHERE [الاسم]= '" & Trim(Text6.Text) & "'"
Set rs = New ADODB.Recordset
If rs.State = adStateOpen Then rs.Close
rs.Open sql, DB, adOpenStatic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub
والله الموفق
وهذا المثال بعد تطبيق الكودين اوالاجرائين
إلهي يا أكرم الأكرمين يا علي يا قدير .. أدعوه أن يفتحها بوجهك و يفتح لك أبواب الخير و البركة و يفتح لك كل أبواب الرّزق بشتّى مجالات حياتك و لا يجعل لأحد عليك فيه مٍنّة و لا عليك في الآخرة تبعة يا سميع يا عليم و يجود عليك بعطفه و كرمه