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

شكرا وجزاكم الله خيرااا
الرد
#2
السلام عليكم

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

كود :
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
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
[-] كل من 1 user says قال شكرا ل لؤي على المشاركة المفيدة
  • Med-01
الرد
#3
Huh Huh Huh

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

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

لؤي شكرا لمشاركتك Dodgy
الرد
#4
سواء أ كان  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;
صدقة العلم تعليمه
[-] كل من 1 user says قال شكرا ل Mustapha29 على المشاركة المفيدة
  • Med-01
الرد
#5
(06-02-2019, 09:42 PM)Mustapha29 كتب : سواء أ كان  ADOQuery أو ADOTable
في حدث ما  (Button1)
اريد ان اظهار اسماء الجداول الموجود في قاعدة البيانات وليس اسماء الحقول
الرد
#6
(06-02-2019, 09:26 AM)لؤي كتب : شيئ من النت غير مجربة :
ظهر هذا الخطا لؤي
[صورة مرفقة: fe6a10116b6e1a6.png]
الرد
#7
السلام عليكم

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

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

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

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

http://www.m5zn.com/newuploads/2019/02/0...b6e1a6.png
الرد
#9
PHP كود :
procedure TForm1.Button2Click(SenderTObject);
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(SenderTObject);
var
IInteger;
List: 
TStringList;
begin
List := TStringList.CreateADOConnection1.GetTableNames(List, False);
With ComboBox1.Items do
Begin
BeginUpdate
;
Clear;
for 
I:= 0 to List.Count -do
Add(List[I] );
EndUpdate;
End;
List.
Free;
end
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف