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

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

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

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

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


الملفات المرفقة
.rar   نقل البيانات من جدول إلى جدول آخر.rar (الحجم : 16.17 ك ب / التحميلات : 52)
الرد
#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 ك ب / التحميلات : 46)
الرد
#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 ك ب / التحميلات : 55)
الرد
#8
السّلام عليكم و رحمة الله و بركاته
الله الله عليك أخي الغالي " SENDBAD100 "
ياسم الله ما شاء الله تبارك الله
الكل شغّال و لله الحمد و الشّكر ألفين بالمئة
تحقّق المطلوب و زيادة ..
إلهي يا أكرم الأكرمين يا علي يا قدير .. أدعوه أن يفتحها بوجهك و يفتح لك أبواب الخير و البركة و يفتح لك كل أبواب الرّزق بشتّى مجالات حياتك و لا يجعل لأحد عليك فيه مٍنّة و لا عليك في الآخرة تبعة يا سميع يا عليم و يجود عليك بعطفه و كرمه
فائق الشكر و الاحترام و التقدير أخي الكريم
الرد
تم الشكر بواسطة: sendbad100 , Amir_Alzubidy , Ahmed_Mansoor , sher


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة بقاعدة البيانات hannileo 4 56 13-09-19, 01:52 PM
آخر رد: hannileo
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 3 1,095 09-08-19, 02:23 AM
آخر رد: princeofislam
Sad نسخ بيانات من جدول لاخر قاعدة بيانات اكسس والربط ADO starwarr2005 4 2,389 05-02-19, 05:52 PM
آخر رد: بلال مناصرة
  الحفظ في قاعدة البيانات hannileo 2 459 01-11-18, 08:42 AM
آخر رد: hannileo
  نقل بيانات أولياء الأمور من الإكسل إلى قاعدة بيانات االرسام 1 410 14-09-18, 07:33 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 4 1,642 07-07-18, 02:54 PM
آخر رد: boussida fethi
  مشكلة في اتصال قاعدة بيانات sql server 2005 مصمم هاوي 6 868 31-03-18, 03:04 PM
آخر رد: مصمم هاوي
  [سؤال] استعادة قاعدة بيانات SQL ABO.BANCIANA 11 3,031 30-03-18, 12:12 AM
آخر رد: Talal2018
  [سؤال] كود الاستعلام في قاعدة بيانات اكسس بين تاريخين محمد حمد محمد ليبيا 1 937 16-01-18, 01:24 AM
آخر رد: Amir_Alzubidy
  [سؤال] تعديل كود تحديث البيانات ZaerAllail 0 455 10-01-18, 05:24 AM
آخر رد: ZaerAllail

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


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