16-06-19, 02:21 AM
السلام عليكم ورحمة الله وبركاته
عندي مشروع أستخدم فيه الأداة DataControl
وعندي قاعدة بيانات بها ثلاث جداول مرتبطه مع بعضها
أريد عمل جملة استعلام لجدول واحد أو عمل أستعلام علي الثلاث جداول مرة واحدة
----------------------------
والسبب أن الكود يكون بهذا الشكل
فتكون عملية الأستعلام بطيئة جدا
-------------------------------------------------
وهل يمكن عمل الاستعلام في قاعدة البيانات وربطه بأداة DataControl مثل الجداول
أرجو الافادة وجزاكم الله خيرا
عندي مشروع أستخدم فيه الأداة 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 مثل الجداول
أرجو الافادة وجزاكم الله خيرا