كيف أعرف أسماء الجداول وأضعها في كمبو بوكس ؟؟؟؟

تعديل الاجابة بالرد القادم لعدم فهم الطلب

الكود التالي باستخدام DAO

Dim db As Database, i As Integer

Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "\Data.mdb", False, False)

 For i = 0 To db.TableDefs.Count - 1
	If db.TableDefs(i).Attributes = 0 Then Combo1.AddItem db.TableDefs(i).Name
 Next
End Sub

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

بس انا عامل برنامج بيمكن المستخدم يضيف جداول

والكمبوبوكس هيختار منه جدول من اللى هوا ضافهم قبل كده

يعني انا ماعرفش اسم الجدول

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

من فضلك التوضيح في طلبك في المرات القادمة علشان تعرف اجابتك في اقل زمن

الأخ pharaonic_guy

مينفعش واحد زي ده بالأدو ؟؟؟؟؟؟؟؟

عزيز محمد هل البرنامج مستخدم علس شبكة

ان كان لا فيفضل استخدام الكود السابق

يمكن استعمال OpenSchema للاتصال المنشئ بال ADO

ومن ثم عمل recordeset تقوم بقراءة الهيكل داخل قاعدة البيانات

مشكورين ياجماعه أنا كنت فاكر الأدو لواحدها تقدر تعملها

عزيزي يوجد حل بالادو بس لتجاهلك اسئلتي فمن الطبيعي اتجاهل طلبك

أنا بصراحة لم أعرف قصدك ولكن إليك هذه الطريقة :

جرب تعمل طلب أس كيو أل على الشكل التالي :

select name from tabs
or 
select name from table

لا أذكر بالضبط ما هي هل هي Tabs أو table

وبالنسبة لــ name كذلك لا أذكر هل هي name أو tname أو أي شيء آخر .... :unsure:

على كل الاحوال أرجو أن أكون قد ساعدتك مع أني لا أشعر بذلك... :^)

لا أعرف مامعنى الado لوحدها

آمل أن يكون المثال المرفق فيه ماتريده

sample.zip

الأخ الفاضل ...

كما ذكر الأخ DreamNet يمكن استعمال OpenSchema للاتصال المنشئ بال ADO، ومن ثم عمل recordeset تقوم بقراءة الهيكل داخل قاعدة البيانات.

فهذا مثال أخر على ذلك

شكراً

Tables.zip

اذا كانت قاعدة بيانات اوراكل يمكن معرفة اسماء الجداول الخاصه باي مستخدم يتم الاتصال به كالتالي:-

Select Table_name From User_Tables