تعديل على تعليمة اسكيال لجلب أسماء الجداول في الاكسس

Question

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

اليكم تعليمة اسكيال للاستعلام عن أسماء الجداول في الاكسس 

المطلوب

تعديل على التعليمة لجلب ايضا عدد السجلات لكل جدول

Answer 1

بشكل عام اذا لم تستعمل Group By فلا يمكن عمل تعداد او متوسط او مجموع لحقل ما، يعني، علي ان تختار حقل للتجميعه Group و عندها اضف بعد ال Selcect عملية Count(*)

select count(*) , myfield where myid=1
group by myfield

 

Comments

شكرا على التوضيح أخي طلبت إضافة التعليمية السابقة لجلب أسماء الجداول في القاعدة وكذلك جلب عدد السجلات لكل جدول

Answer 2

ADOConnection1.GetTableNames(ListBox2.Items, False);

الرابط من هنا .

وحظا طيبا 

Comments

أخي شكرا لك على الاضافة
هذا الكود لجلب أسماء الجداول في القاعدة
في كود السابق المرفق تعليمةاسكيال  لجلب أسماء الجداول
 أنا أريد جلب عدد السجلات لكل جدول في القاعدة

---

يمكنك فقط بعد معرفة عدد الجداول .... القيام باللوب "for" مع إستعمال خاصية "ADOQuery1.RecordCount" 

procedure TFrmMain.Btn_GetRecodCountForEachTableClick(Sender: TObject);
var
  I: Integer;
  List: TStringList;
  AdoQuery: TADOQuery;
begin
  List := TStringList.Create;
  AdoQuery := TADOQuery.Create(nil);
  AdoQuery.Connection := ADOCon_MyData;
  ADOCon_MyData.GetTableNames(List, False);
   for I:= 0 to List.Count -1 do
   begin
     with AdoQuery do
     begin
       Close;
       SQL.Clear;
       SQL.Add('select * from ' + List[I]); Open;
      // SQL.Add('do your Needed Query here'); ExecSQL;
       LstBox_TablesNames.Items.Add(List[I] + ' ==> ' + RecordCount.ToString);
     end;
   end;
   List.Free;
   AdoQuery.Free;
end;

 

 

---

السلام عليكم أخي عند التنفيذ يظهر خطأ هنا
ListBox1.Items.Add(List[I] + ' ==> '  RecordCount.ToString);
لكن عند حذف الكود الخاص بجلب عدد السجلات لكل جدول تظهر أسماء الجداول فقط
ListBox1.Items.Add(List[I] + ' ==> ' );

---

تم حل المشكلة بتغيير القيمة الرقمية الى قيمة نصية
ListBox1.Items.Add(List[I] + ' ==> '+ IntToStr(RecordCount));

---

ما هي نسخة الدلفي عندك ؟ إذا ماكانت النسخة أقل من النسخة Xe4 فلابد لك من إستعمال الفانكشن "IntToStr" عوضا عن الهالبر "ToString" 

بمعنى عليك إستبدال الهالبر "ToString" بالفانكشن  "IntToStr" كمايلي :

LstBox_TablesNames.Items.Add(List[I] + ' ==> ' + IntToStr(RecordCount));

الرايط من هنا .