+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [سؤال] طلب كود للبحث عن اسم في قاعدة البيانات كلها وكود نقل سجل (/showthread.php?tid=22126)
طلب كود للبحث عن اسم في قاعدة البيانات كلها وكود نقل سجل - sher - 16-10-17
هل هناك كود للبحث عن اسم في قاعدة البيانات كله في جدولين من خلال كتابة الاسم في التكست
وهل هناك كود لنقل سجل من جدول الى جدول اخر
السؤال يخص فيجوال بيسك 6
ولكم جزيل الشكر
واخص الشكر منتدى فيجوال بيسك لكل العرب و المشرفين عليه
RE: سؤال للاحبة في المنتدى - عبد العزيز البسكري - 17-10-17
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. أرفقت لك مثالاً كمحاولة بسيطة لعلها تفيد ولو بالجزء اليسير إن شاء الله
إحتراماتي
RE: سؤال للاحبة في المنتدى - sendbad100 - 17-10-17
السلام عليكم
في نفس مثال الاخ العزيز عبد العزيز
اضف الكود التالي
كما بالمثال
PHP كود :
Private Sub Command3_Click()
sql = "SELECT * FROM tablette1 WHERE ÇáÇÓã = '" & Trim(Text6.Text) & " ' UNION SELECT * FROM tablette2 WHERE [ÇáÇÓã]= '" & Trim(Text6.Text) & "'"
If rs.State = 1 Then rs.Close
rs.Open sql, DB, adOpenStatic, adLockPessimistic
DrawFlex
View_Records
End Sub
RE: سؤال للاحبة في المنتدى - عبد العزيز البسكري - 17-10-17
السلام عليكم و رحمة الله و بركاته
روعة من روائع أعمالك أخي الغالي " SENDBAD100 " .. باسم الله ما شاء الله
ربّنا لا يحرمنا منك أبدًا و يطيل بعمرك و أعمار كل من تحب بمحبته و مرضاته و ينعم عليك بخير الدتريْن إن شاء الله
أنا لمّا وضعت الملف حسّيت بشيء ناقص و بَقٍيت لي غصّة لم أعرف كيف أتخلّص منها .. و هي عند الكتابة بالتاكست 6 .. أوّل حرف تظهر البيانات حسب معيار الاسم التي تبدأ بذلك الحرف المكتوب ..
أخي الحبيب ..
كيف نغيّر الاستعلام بملّفك الرّائع ليصبح البحث بمجرّد كتابة الحرف الأول من الاسم تظهر البيانات على الشبكة
أجدّد إحتراماتي و تقديري و محبّتي في الله لشخصك الكريم
إحتراماتي
RE: سؤال للاحبة في المنتدى - sendbad100 - 17-10-17
السلام عليكم ورحمة الله وبركاته
شكرا على دعواتك استاذ / عبد العزيز الله يحفظك من كل شر فانت ذو خلق رفيع
جرب الكودين التاليين احدهما سيعمل معك باذن الله
اعتذر اذا كان هناك خطأ فيهما لاني كتبتهم من الجوال ولم اجربهما بعد ولكن احببت ان اكون السباق الى مساعدك كي افوز بدعائك الجميل والرائع. تقبل الله مننا ومنك صالح الاعمال . ورضي عليك وعلى والديك
وباذن الله انه المطلوب
هذا
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
End Sub
RE: سؤال للاحبة في المنتدى - عبد العزيز البسكري - 17-10-17
السّلام عليكم و رحمة الله و بركاته
الله يرضى عليك أخي و أستاذي الغالي " SENDBAD100 " .. على الاستجابة الطيّبة لتساؤلاتي
جزاك الله خير الجزاء و رزقك من حيث لا تحتسب و أمدّك بموفور الصحّة و العافية و راحة البال إن شاء الله
للأسف يا غالي .. الأكواد الثلاثة تعمل نفس العمليّة .. الانتظار لغاية كتابة آخر حرف لظهور النتيجة على شبكة الفليكس جريد
خالص إحتراماتي
RE: سؤال للاحبة في المنتدى - sendbad100 - 18-10-17
وعليكم السلام ورحمة الله وبركاته
امين ولك مثل ما دعيت لي
ضع هذا الكود في حدث 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
والله الموفق
وهذا المثال بعد تطبيق الكودين اوالاجرائين
RE: سؤال للاحبة في المنتدى - عبد العزيز البسكري - 18-10-17
السّلام عليكم و رحمة الله و بركاته
الله الله عليك أخي الغالي " SENDBAD100 "
ياسم الله ما شاء الله تبارك الله
الكل شغّال و لله الحمد و الشّكر ألفين بالمئة
تحقّق المطلوب و زيادة ..
إلهي يا أكرم الأكرمين يا علي يا قدير .. أدعوه أن يفتحها بوجهك و يفتح لك أبواب الخير و البركة و يفتح لك كل أبواب الرّزق بشتّى مجالات حياتك و لا يجعل لأحد عليك فيه مٍنّة و لا عليك في الآخرة تبعة يا سميع يا عليم و يجود عليك بعطفه و كرمه
فائق الشكر و الاحترام و التقدير أخي الكريم