شوف اخي الكريم انا بدات بالتعديل والحين جهزت الاستعلام كالتالي:
جربه ريثما انهي ماعندي
لقد قمت باستبدال الداتاتيبل بالداتاست
ايضا الاستعلام تم تعديله
واجراء الربط هذا هو
الجداول الاخرى ليس لها واجه بالمشروع ولو وجد فالامر بسيط تكتب اسم الجدول ثم العمود
يبدو اني لم افهم الواجهة هههههههههههه على كل حال ساعيد النظر لكن مامضى صحيح
جربه ريثما انهي ماعندي
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")
يبدو اني لم افهم الواجهة هههههههههههه على كل حال ساعيد النظر لكن مامضى صحيح
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير