كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟

[Med-01]

السلام عليكم لدي قاعدة بيانات من نوع access وبها عدة جدوال
كيف اقوم بعرض هذه الجداول في ComboBox1
حيث بمجرد اضافة جدول في قاعدة بينات يظهر في ComboBox1

شكرا وجزاكم الله خيرااا

[لؤي]

السلام عليكم

شيئ من النت غير مجربة :

كود :

SELECT MSysObjects.Name AS table_name
FROM MSysObjects
WHERE (((Left([Name],1))<>"~")
       AND ((Left([Name],4))<>"MSys")
       AND ((MSysObjects.Type) In (1,4,6)))
order by MSysObjects.Name

[Med-01]

لم افهم الكود يظهر انه كود استعلام فقط اي combobox وحلقة for او while

في انتظار المساعدة

لؤي شكرا لمشاركتك

[Mustapha29]

سواء أ كان  ADOQuery أو ADOTable
في حدث ما  (Button1)

كود :

أو من الأحسن FormShow


ComboBox1.Clear;
with ADOTable1 do
 begin
   First;
   While Not EOF do
   begin
    ComboBox1.Items.Add(ADOTable1code_C.value);  // adotable1code_c =  الحقل المراد إظهاره في comboBox
    Next;
   end;
 end;
 ComboBox1.ItemIndex := 0;
end;

[Med-01]

سواء أ كان  ADOQuery أو ADOTable
في حدث ما  (Button1)

اريد ان اظهار اسماء الجداول الموجود في قاعدة البيانات وليس اسماء الحقول

[Med-01]

شيئ من النت غير مجربة :

ظهر هذا الخطا لؤي

[لؤي]

السلام عليكم

بالنسبة للكمبوبكس لما تجد طريقة في جلب قائمة أسماء الجداول تصبح سهلة في إدراجها داخل الكمبوبكس
جرب هذا مع العلم أن ليس عندي قاعدة أكسس 

كود :

SELECT
  MSysObjects.Name
FROM
  MSysObjects
WHERE
  (MSysObjects.Type = 1)

للإستفاظة ألقي نظرة على الرابط فيه جدول بقيم الأشياء (Objects) داخل قاعدة الأكسس هنا قيمة 1 تعني :
https://www.devhut.net/2010/06/12/ms-acc...e-objects/

[Med-01]

نفس الخطا

لؤي تنصب الاكسس و تقوم بتجريب

---

http://www.m5zn.com/newuploads/2019/02/0...b6e1a6.png

[Med-01]

PHP كود :

procedure TForm1.Button2Click(Sender: TObject);
var
Qry : TADOQuery;

begin
Qry := TADOQuery.Create(nil);
With Qry do
Begin
Close;
Connection := ADOConnection1;
//SQL.Clear ;
SQL.text := 'DROP TABLE ' + ComboBox1.Text ;
ExecSQL;
End;
Qry.Free;
ComboBox1.Text:='';
end; 


الحمد لله
تم وضع الكود ليستفيد منه الاعظاء

---

عفوا هذا هو الكود والكود في الاعلى لحذف من خلال الكومبوبوس combobox

اما هذا فهو من اجل عرض جداول قاعدة بيانات في combobox

PHP كود :

procedure TForm1.ComboBox1Enter(Sender: TObject);
var
I: Integer;
List: TStringList;
begin
List := TStringList.Create; ADOConnection1.GetTableNames(List, False);
With ComboBox1.Items do
Begin
BeginUpdate;
Clear;
for I:= 0 to List.Count -1 do
Add(List[I] );
EndUpdate;
End;
List.Free;
end;