الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أين تكتب هذه الإضافة في كود البحث في جدولين

مغلق
بدأه booknet في 4 مايو 2005 · 7 رد · 725 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

عندي جدولين

ألأول اسمه t_Cur

والثاني t_Cur2

واستخدمت الكود التالي للبحث في الجدول الأول

وما أريده هو البحث في الجدولين

وشكرا

   RS.Open "Select * from t_Cur  Where " & Build_Boolean_Criteria(Trim(T_Search)), CN, adOpenStatic, adLockReadOnly
#2

إستخدم join بين الجدولين حتى تربط بينهم، ومن ثم اكتب الشرط في جزء where

select * from t_cur
inner join select * from t_cur2
on t_cur.pk = t_cur2.fk
where ' حط الشرط هنا

تم تعديل هذه المشاركة بواسطة محمد نسمان في 4 مايو 2005 في 21:38

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#3

شكرا أخي العزيز محمد نسمان

ولكني كتبت الكود بهذه الطريقة ولم ينفع

       RS.Open "select * from t_cur inner join select * from t_cur2 on t_cur.pk = t_cur2.fk Where " & Build_Boolean_Criteria(Trim(T_Search)), CN, adOpenStatic, adLockReadOnly
#4

أسف اخي كتبت الجملة السابقة بشكل خطأ، جملة select تكتب مرة واحدة فقط وليس مرتين كما كتبت

جرب بهذه الطريقة

select * from t_cur
inner join t_cur2
on t_cur.pk = t_cur2.fk
where ' حط الشرط هنا

انا اقصد ب Pk و Fk إسم ال PrimaryKey في الجدول الاول وال Fk الForeignKey

حتى يتم الربط بينهم

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#5

أخي العزيز

كتبت الكود بهذه الطريقة ولم ينفع

RS.Open "SELECT * FROM t_cur inner join t_cur2 on t_cur.pk = t_cur2.fk WHERE BookContents  LIKE " & " '%" & T_Search.Text & "%'", CN, adOpenStatic, adLockReadOnly

شكرا

#6

كما ذكرت سابقا، ال pk و fk وضعتهم للتوضيح، يجب عليك استبدالهم بأسماء الحقول الموجودة في الجداول لديك

هل من الممكن ان توضح الحقول الموجودة في كل جدول؟

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#7

أسماء الحقول في الجدولين نفس الشيء وهي:

BookNumber

BookName

PageTitle

#8

جرب هيك

RS.Open "SELECT * FROM t_cur inner join t_cur2 on t_cur.BookNumber = t_cur2.BookNumber WHERE BookContents  LIKE " & " '%" & T_Search.Text & "%'", CN, adOpenStatic, adLockReadOnly

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…