+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ (/showthread.php?tid=10035)
كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - Med-01 - 06-02-2019
السلام عليكم لدي قاعدة بيانات من نوع access وبها عدة جدوال
كيف اقوم بعرض هذه الجداول في ComboBox1
حيث بمجرد اضافة جدول في قاعدة بينات يظهر في ComboBox1
شكرا وجزاكم الله خيرااا
RE: كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - لؤي - 06-02-2019
السلام عليكم
شيئ من النت غير مجربة :
كود :
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.NameRE: كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - Med-01 - 06-02-2019
لم افهم الكود يظهر انه كود استعلام فقط اي combobox وحلقة for او while
في انتظار المساعدة
لؤي شكرا لمشاركتك
RE: كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - Mustapha29 - 06-02-2019
سواء أ كان 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;RE: كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - Med-01 - 06-02-2019
(06-02-2019, 09:42 PM)Mustapha29 كتب : سواء أ كان ADOQuery أو ADOTableاريد ان اظهار اسماء الجداول الموجود في قاعدة البيانات وليس اسماء الحقول
في حدث ما (Button1)
RE: كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - Med-01 - 07-02-2019
(06-02-2019, 09:26 AM)لؤي كتب : شيئ من النت غير مجربة :ظهر هذا الخطا لؤي
![[صورة: fe6a10116b6e1a6.png]](http://www.m5zn.com/newuploads/2019/02/06/png//fe6a10116b6e1a6.png)
RE: كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - لؤي - 07-02-2019
السلام عليكم
بالنسبة للكمبوبكس لما تجد طريقة في جلب قائمة أسماء الجداول تصبح سهلة في إدراجها داخل الكمبوبكس
جرب هذا مع العلم أن ليس عندي قاعدة أكسس
كود :
SELECT
MSysObjects.Name
FROM
MSysObjects
WHERE
(MSysObjects.Type = 1)للإستفاظة ألقي نظرة على الرابط فيه جدول بقيم الأشياء (Objects) داخل قاعدة الأكسس هنا قيمة 1 تعني :
https://www.devhut.net/2010/06/12/ms-access-listing-of-database-objects/
RE: كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - Med-01 - 07-02-2019
نفس الخطا
لؤي تنصب الاكسس و تقوم بتجريب
http://www.m5zn.com/newuploads/2019/02/06/png//fe6a10116b6e1a6.png
RE: كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟ - Med-01 - 10-02-2019
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;