delphi4arab منتديات دلفي للعرب

السلام عليكم لدي قاعدة بيانات من نوع 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

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

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

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

سواء أ كان 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;

(06-02-2019, 09:42 PM)Mustapha29 كتب : [ -> ]سواء أ كان ADOQuery أو ADOTable
في حدث ما (Button1)

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

(06-02-2019, 09:26 AM)لؤي كتب : [ -> ]شيئ من النت غير مجربة :

ظهر هذا الخطا لؤي
[صورة: fe6a10116b6e1a6.png]

السلام عليكم

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

كود :
SELECT
  MSysObjects.Name
FROM
  MSysObjects
WHERE
  (MSysObjects.Type = 1)

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

نفس الخطا

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

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

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; 

Med-01

لؤي

Med-01

Mustapha29

Med-01

Med-01

لؤي

Med-01

Med-01