[عبدالله الصافي]

السلام عليكم ورحمة الله وبركاته

عندي مشروع أستخدم فيه الأداة DataControl

وعندي قاعدة بيانات بها ثلاث جداول مرتبطه مع بعضها

أريد عمل جملة استعلام لجدول واحد أو عمل أستعلام علي الثلاث جداول مرة واحدة
----------------------------
والسبب أن الكود يكون بهذا الشكل

كود :

Frm_Main.Dt_Zepoons.RecordSource = "Select * From Zepoons Where  ZepoonTown like '" & Cmb_ZepoonTown & "'and ZepoonAddress like '*" & Txt_Address & "*'"
       Frm_Main.Dt_Zepoons.Refresh
       If Frm_Main.Dt_Zepoons.Recordset.RecordCount > 0 Then
           Do
               Frm_Main.Dt_Mabeaat.RecordSource = "Select * From Mabeaat Where  val(ZepoonID) like " & Frm_Main.Dt_Zepoons.Recordset.Fields![ZepoonID]
               Frm_Main.Dt_Mabeaat.Refresh
               If Frm_Main.Dt_Mabeaat.Recordset.RecordCount > 0 Then
                   Do
                       Frm_Main.Dt_Isalat.RecordSource = "Select * From Isalat Where  val(IsalID) like " & Frm_Main.Dt_Mabeaat.Recordset.Fields![IsalID] & " and NumDateTahseel like '0'"
                       Frm_Main.Dt_Isalat.Refresh
                       If Frm_Main.Dt_Isalat.Recordset.RecordCount > 0 Then
                           Do
                               FillFlexGrid
                               Frm_Main.Dt_Isalat.Recordset.MoveNext
                           Loop Until Frm_Main.Dt_Isalat.Recordset.EOF
                       End If
                       Frm_Main.Dt_Mabeaat.Recordset.MoveNext
                   Loop Until Frm_Main.Dt_Mabeaat.Recordset.EOF
               End If
               Frm_Main.Dt_Zepoons.Recordset.MoveNext
           Loop Until Frm_Main.Dt_Zepoons.Recordset.EOF
       End If

فتكون عملية الأستعلام بطيئة جدا

-------------------------------------------------
وهل يمكن عمل الاستعلام في قاعدة البيانات وربطه بأداة DataControl مثل الجداول



أرجو الافادة وجزاكم الله خيرا