تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب كود للبحث عن اسم في قاعدة البيانات كلها وكود نقل سجل
#1
هل هناك كود للبحث عن اسم في قاعدة البيانات كله في جدولين من خلال كتابة الاسم في التكست

وهل هناك كود لنقل سجل من جدول الى جدول اخر 

السؤال يخص فيجوال بيسك 6 

ولكم جزيل الشكر 

واخص الشكر منتدى فيجوال بيسك لكل العرب و المشرفين عليه
الرد }}}
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. أرفقت لك مثالاً كمحاولة بسيطة لعلها تفيد ولو بالجزء اليسير إن شاء الله
إحتراماتي


الملفات المرفقة
.rar   نقل البيانات من جدول إلى جدول آخر.rar (الحجم : 16.17 ك ب / التحميلات : 95)
قناتنا على اليوتوب
الرد }}}
#3
السلام عليكم

في نفس مثال الاخ العزيز عبد العزيز 

اضف الكود التالي   
كما بالمثال 
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 sqlDBadOpenStaticadLockPessimistic
DrawFlex
View_Records

End Sub 


الملفات المرفقة
.rar   نقل البيانات من جدول إلى جدول آخر-2.rar (الحجم : 17.96 ك ب / التحميلات : 61)
الرد }}}
#4
السلام عليكم و رحمة الله و بركاته
روعة من روائع أعمالك أخي الغالي "  SENDBAD100  " .. باسم الله ما شاء الله
ربّنا لا يحرمنا منك أبدًا و يطيل بعمرك و أعمار كل من تحب بمحبته و مرضاته و ينعم عليك بخير الدتريْن إن شاء الله
أنا لمّا وضعت الملف حسّيت بشيء ناقص و بَقٍيت لي غصّة لم أعرف كيف أتخلّص منها .. و هي عند الكتابة بالتاكست 6 .. أوّل حرف تظهر البيانات حسب معيار الاسم التي تبدأ بذلك الحرف المكتوب ..
أخي الحبيب ..
كيف نغيّر الاستعلام بملّفك الرّائع ليصبح البحث بمجرّد كتابة الحرف الأول من الاسم تظهر البيانات على الشبكة
أجدّد إحتراماتي و تقديري و محبّتي في الله لشخصك الكريم
إحتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: sher , sendbad100 , Amir_Alzubidy , Ahmed_Mansoor
#5
السلام عليكم ورحمة الله وبركاته

شكرا على دعواتك استاذ / عبد العزيز    الله يحفظك من كل شر  فانت ذو خلق رفيع 

جرب  الكودين التاليين احدهما سيعمل معك باذن الله 

اعتذر اذا كان هناك خطأ فيهما  لاني كتبتهم من الجوال  ولم اجربهما بعد   ولكن احببت ان اكون السباق الى مساعدك كي افوز بدعائك  الجميل والرائع. تقبل الله مننا ومنك صالح الاعمال . ورضي عليك وعلى والديك 


 وباذن الله انه المطلوب 

هذا 
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 sqlDBadOpenStaticadLockPessimistic
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 sqlDBadOpenStaticadLockPessimistic
DrawFlex
View_Records

End Sub 
والله الموفق
الرد }}}
#6
السّلام عليكم و رحمة الله و بركاته
الله يرضى عليك أخي و أستاذي الغالي " SENDBAD100 " .. على الاستجابة الطيّبة لتساؤلاتي
جزاك الله خير الجزاء و رزقك من حيث لا تحتسب و أمدّك بموفور الصحّة و العافية و راحة البال إن شاء الله
للأسف يا غالي .. الأكواد الثلاثة تعمل نفس العمليّة .. الانتظار لغاية كتابة آخر حرف لظهور النتيجة على شبكة الفليكس جريد
خالص إحتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Ahmed_Mansoor , Ahmed_Mansoor , sher
#7
وعليكم السلام ورحمة الله وبركاته

امين ولك مثل ما دعيت لي


ضع هذا الكود في حدث 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) & "%'"DBadOpenStaticadLockOptimistic

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 sqlDBadOpenStaticadLockOptimistic

Set MSHFlexGrid1
.DataSource rs

 End Sub 


والله الموفق

وهذا المثال بعد تطبيق الكودين اوالاجرائين


الملفات المرفقة
.rar   نقل البيانات من جدول إلى جدول آخر-3.rar (الحجم : 17.96 ك ب / التحميلات : 69)
الرد }}}
#8
السّلام عليكم و رحمة الله و بركاته
الله الله عليك أخي الغالي " SENDBAD100 "
ياسم الله ما شاء الله تبارك الله
الكل شغّال و لله الحمد و الشّكر ألفين بالمئة
تحقّق المطلوب و زيادة ..
إلهي يا أكرم الأكرمين يا علي يا قدير .. أدعوه أن يفتحها بوجهك و يفتح لك أبواب الخير و البركة و يفتح لك كل أبواب الرّزق بشتّى مجالات حياتك و لا يجعل لأحد عليك فيه مٍنّة و لا عليك في الآخرة تبعة يا سميع يا عليم و يجود عليك بعطفه و كرمه
فائق الشكر و الاحترام و التقدير أخي الكريم
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: sendbad100 , Amir_Alzubidy , Ahmed_Mansoor , sher


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 0 373 21-01-24, 12:58 PM
آخر رد: haitham Muhammed
  [vb6.0] تصدير البيانات محمد عياش 0 469 12-12-22, 07:10 PM
آخر رد: محمد عياش
  بخصوص صيغة التاريخ عند الحفظ في قاعدة البيانات hannileo 0 551 03-07-22, 12:19 PM
آخر رد: hannileo
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 14 8,480 14-06-22, 04:01 PM
آخر رد: sher
  [vb6.0] طلب : أريد كود للبحث في كومبوبوكس وتظهر النتيجة في ليستبوكس أسفله hamada salah90 0 871 20-08-21, 11:18 PM
آخر رد: hamada salah90
  [vb6.0] مشكلة فى قاعدة بيانات اكسس mohhasddx1 1 1,000 04-08-21, 10:12 AM
آخر رد: awidan76
  [vb6.0] طلب : كود عرض نص معين من قاعدة البيانات وعرضه في label في داتا ريبورت hamada salah90 3 1,561 26-07-21, 06:43 PM
آخر رد: hamada salah90
  [vb6.0] أريد شرح مبسط وواضح للعلاقات بين جداول قاعدة البيانات وشرح الإستعلامات بهذه العلاقات hamada salah90 0 1,006 01-06-21, 02:12 AM
آخر رد: hamada salah90
  أطلب مساعدة من الأعضاء ذوي الخبرة : أريد طريقة حفظ ملف من نوع PDF في قاعدة بيانات SQL rami_cis 2 1,433 23-11-20, 01:03 AM
آخر رد: rami_cis
  [vb6.0] مشكل في ادخال البيانات من البارتاج lkjnfg 0 1,087 26-10-20, 10:03 PM
آخر رد: lkjnfg

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم