منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم و رحمة الله و بركاته عندى سؤال غريب شوية عندى اتنين جدوال الاسم اسمه useraddnew وده بيحمل اسماء المستخدمين و الجدوال التانى اسمه userandfriend و ده بيحمل بيانات الاصدقاء و عملت جملة select التالية بدون مشكلة عن الجدوال userandfriend
[attachment=27174]
كده ظهر قدمى ان المستخدم رقم 60 يعرف الاصدقاء رقم 61 و 62 من الحقلidfriend عايز بقى اخد ارقام الاصدقاء دى واعمل بحث تانى عن كل صديق فى الجدوال useraddnew
يعنى اعمل بحث فى الجدوال useraddnew عن id =61 ويتم عرض البيانات و بعد كده عن الصديق رقم 62 لحد ما القايمة تخلص بشريط ان البيانات تكون من الجدولين useraddnew وuserandfriend
ودى صورة من الدخل للجدولين
[attachment=27173]
واسف على الاطالة

دى اول محاولة ليا فى حلقة التكرار

كود :

  If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        Dim cmd As New SqlCommand("select * from userandfriend where id=('60')", con)

        Dim da As SqlDataReader = cmd.ExecuteReader

        Do While da.Read = True

            MsgBox((da("idfriend")))

            MsgBox((da("Status")))

        Loop

كده انا عرفت اخدت القيمة من الحقل idfriend و الحالة Status من الحقل فى الجدوال الاول userandfriend وعرفت ارقام الاصدقاء مفروض اعمل حلقة تكرار تانية علشان اخدت رقم الصديق من (da("idfriend"))) و اعمل بحث فى الجدوال useraddnew علشان يكون الكود شكله كده
useraddnew.id=userandfriend.id علشان اقدر اعرف بقى البيانات من الجدوال useraddnew بس ازاى يتم عمل ذلك
علشان فى الاخر يكون معايا من الجدوال الاولuserandfriend الحقل idfriend وStatus و من الجدوال التاني useraddnew الحقل id و surnameandnameو img؟؟؟!!!

من غير حلقة تكرار ولا حاجة ان شاء الله
جرب ده كده

كود :

select useraddnew.id , useraddnew.surnameandname ,useraddnew.img ,userandfriend.Status

from userandfriend 

inner join useraddnew

on userandfriend.idfriend = useraddnew.Id

where userandfriend.id=('60')

شكرا جدا ليك اخي العزيز انس على سرعه الرد الكود يعمل بنجاح

اظن ان الصديق 63 ليس موجود في الجدول useraddnew اصلا

عفوا لم ارى ردك
العفو اخي الكريم

شكرا ليك فعلان هو لسه موجود وغالبان القهوة لى بشربه مضروبه هههههههههه

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alims

alims

Anas Mahmoud

alims

Anas Mahmoud

alims