[سعود]

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

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") 


---

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