PDA

View Full Version : ارتباط بین 3 جدول و کدهای آن



shafie-rayaneh
پنج شنبه 12 شهریور 1394, 11:34 صبح
سلام خسته نباشید من یک مشکل دارم
سه تا جدول دارم و سه تا شو به هم وصل کردم. یک فرم ساختم میخوام سه تا جدول رو با سه تا دیتاگرید نشون بده. .
دیتاگرید برای adodc1 و adodc2 به هم وصله و مشکلی نداره ولی adodc3 برای دیتا گرید سوم اطلاعات جدول سوم رو نشون نمیده من فکر میکنم توی قسمت دیتاسورس adodc3 کد رو اشتباه نوشتم اگر میشه راهنماییم کنید. ممنون

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\RastinPlast.mdb;"
Adodc1.RecordSource = "SELECT * FROM TblMoshtari"
Adodc1.Refresh
LCount1 = Adodc1.Recordset.RecordCount

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\RastinPlast.mdb;"
If Adodc1.Recordset.RecordCount > 0 Then
Adodc2.RecordSource = "SELECT * FROM TBLShFaktor WHERE IDTBLMoshtari=" & Adodc1.Recordset.Fields("IDMoshtari")
Adodc2.Refresh
LCount2 = Adodc2.Recordset.RecordCount
End If
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\RastinPlast.mdb;"
If Adodc2.Recordset.RecordCount > 0 Then
Adodc3.RecordSource = "SELECT * FROM TBLFaktor WHERE TBLSHMoshtari=" & Adodc2.Recordset.Fields("IDSHFaktor") & Adodc1.Recordset.Fields("IDMoshtari")
Adodc3.Refresh
LCount2 = Adodc3.Recordset.RecordCount
End If