[sphinx]

لدي قاعدة بيانت اكسس فيها 3 جداول وعملت ربط علاقات بينهم  ويجب ان يظهر كل الجداول في واجهةالبرنامج 
لكن وجدت صعوبة في  الاكواد علما اني استخدمت الاتصال المنفصل
المطلوب  / كيف يكون الكود لزر الاتصال و الاظافة والحفظ والتعديل 

[مبرمج بلا حدود]

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

[sphinx]

اخي لم اجد مواضيع الاعضاء

[abulayth]

السلام عليكم

هذا الرابط لمواضيع الاستاذ سعود

http://vb4arb.com/vb/thread-2340.html

يعطيك العافية

[sphinx]

اشكركم جدا لكن لم اجد مبتغاي من المطلوب

[سعود]

اشكر جميع اخواني على الاحالة لمواضيعي.
اخي السائل لو بدات بمثال قم برفعه لعل وعسى نساعدك بشكل اسرع.

[sphinx]

بصراحة البرنامج كبير الحجم وحاولت ارفعه لكن صعب
المطلوب كيف يكون الكود

[سعود]

مش ضروري نفس المثال الاساسي يعني اعمل مثال جديد بنفس الفكرة .

[sphinx]

جاري عمل مثال بسيط شكرا استاذ سعود وشكرا لكل الاساتذة والاخوة الاعزاء

---

البرنامج مرفق 
الجداول الاول جدول بيانات الطفل 
الجول الثاني vaccinetbl  جدول اللقاحات 
الجدول الثالث جدول laketbl  جدول التسرب وهو لمعرفة الطفل متسرب او لا

[سعود]

شوف اخي الكريم انا بدات بالتعديل والحين جهزت الاستعلام كالتالي:
جربه ريثما انهي ماعندي

PHP كود :

sql = "select * from TBLchilddata,TBLlake,TBLvaccine where TBLvaccine.idch=TBLlake.idch and TBLlake.idch=TBLchilddata.id and TBLchilddata.id=" & Val(TxtId.Text) & "" 


---

لقد قمت باستبدال الداتاتيبل بالداتاست
ايضا الاستعلام تم تعديله

PHP كود :

       sql = "select * from TBLchilddata,TBLlake,TBLvaccine where TBLvaccine.idch=TBLlake.idch and TBLlake.idch=TBLchilddata.tid" 


واجراء الربط هذا هو

PHP كود :

Private Sub gd()
        dt = New DataSet
        sql = "select * from TBLchilddata,TBLlake,TBLvaccine where TBLvaccine.idch=TBLlake.idch and TBLlake.idch=TBLchilddata.tid"


        da = New OleDbDataAdapter(sql, con)
        cb = New OleDbCommandBuilder(da)
        da.Fill(dt, "TBLchilddata")
        TxtId.DataBindings.Add("text", dt, "TBLchilddata.tid")
        Txtname.DataBindings.Add("text", dt, "TBLchilddata.tname")
        'Cboadress
        Cboadress.DataBindings.Add("text", dt, "TBLchilddata.adress")
        'Txtblock
        Txtblock.DataBindings.Add("text", dt, "TBLchilddata.block_id")
        'Txtdoor
        Txtdoor.DataBindings.Add("text", dt, "TBLchilddata.door_id")
        'Dtpbirth
        Dtpbirth.DataBindings.Add("text", dt, "TBLchilddata.birth", True)
        'Txtfamily
        Txtfamily.DataBindings.Add("text", dt, "TBLchilddata.family_id")
        'Cbokind
        Cbokind.DataBindings.Add("text", dt, "TBLchilddata.kind")


    End Sub 


---

الجداول الاخرى ليس لها واجه بالمشروع ولو وجد فالامر بسيط تكتب اسم الجدول ثم العمود

PHP كود :

Cboadress.DataBindings.Add("text", dt, "TBLchilddata.adress") 


---

يبدو اني لم افهم الواجهة هههههههههههه على كل حال ساعيد النظر لكن مامضى صحيح