منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود البحث فى جدولين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كود البحث فى جدولين (/showthread.php?tid=12458)

كود البحث فى جدولين - اسلام الكبابى - 10-06-15

لدى قاعدة البيانات بها جدولين اسم الأول TABLE1 واسم الثانى TABLE2
الجدولين لهما نفس الDESIGN أى لهما نفس أسماء الحقول
وأريد استخراج جميع السجلات التى فيها قيمة الحقل NUM1 أكبر من 900 من كلا الجدولين
هذا كود البحث من الجدول الأول مثلآ
NUMM1=900
   Set RS = New ADODB.Recordset
    RS.Open "select * from TABLE1 where NUM1> " & "" & NUMM1 & "" & " , DB, adOpenStatic, adLockReadOnly"
ولكنى أريد البحث فى كلا الجدولين
فاذا كان الجدول الأول يحتوى على 30 سجل يحققون هذا الشرط
     وكان الجدول الثانى يحتوى على 40 سجل يحققون هذا الشرط
فانى أريده يعرض لى 70 سجل

 ولكم ألف شكر

RE: كود البحث فى جدولين - Amir_Alzubidy - 10-06-15

السلام عليكم
في المرفقات
[attachment=7216]

RE: كود البحث فى جدولين - اسلام الكبابى - 11-06-15

أين الDataGrid التى تعرض جميع سجلات الجدولين المحققة للشرط( السجلات ال16)

إقتباس :وأريد استخراج جميع السجلات التى فيها قيمة الحقل NUM1 أكبر من 900 من كلا الجدولين

الكود المرفق لم يبحث الا فى كل جدول على حده  ثم جمع العددين (كود شبيه بالذى كتبته بنفسى كمثال للبحث فى الجدول الأول)   

إقتباس :هذا كود البحث من الجدول الأول مثلآ"
RS.Open "select * from TABLE1 where NUM1> " & "" & NUMM1 & "" & " , DB, adOpenStatic, adLockReadOnly

ولكم ألف شكر

RE: كود البحث فى جدولين - Amir_Alzubidy - 11-06-15

عزيزي اسلام تم بناء المشروع بناءا على المعطيات
وتم اختصار كود الاستعلام ببناء جدولين استعلام وتحقق الشرط الذي طلبته
في كل جدول على حدة
للاسف لم توضح في سؤالك دمج الجدولين في داتا قريد واحدة
عموما 

ان شاء الله طلبك التالي

RE: كود البحث فى جدولين - اسلام الكبابى - 11-06-15

إقتباس :للاسف لم توضح في سؤالك دمج الجدولين في داتا قريد واحدة

ليست المشكلة فى الداتا جريد
المهم عمل استعلام يستخرج جميع السجلات التى فيها قيمة الحقل NUM1 أكبر من 900 من كلا الجدولين
بحيث أجد قيمة rs.RecordCount تساوى 16
ثم أضعهم بعد ذلك فى داتا جريد أو فى تكست أو أعرض بعضهم فقط أو .........
ولكم ألف شكر

RE: كود البحث فى جدولين - Ahmed_Mansoor - 12-06-15

أهلا , هذا تعديل بسيط على مثال أخي أمير , في المرفقات .

RE: كود البحث فى جدولين - Amir_Alzubidy - 12-06-15

شغل ممتاز اخي احمد فعلا اجزم بان الكبابي يحتاج الى هذا المثال
سلمت يمناك

RE: كود البحث فى جدولين - اسلام الكبابى - 13-06-15

ممتااااااااااز

بارك الله فيك

ولك ألف شكر