اريد طريقة استطيع من خلالها ان اقوم بعرض اسماء الجداول الخاصة باي قاعدة بيانات مصنوعة باكسيس في الاداة listbox

اخي انا أعتقد انك ممكن تعمل هذا عن طريق الخاصية Recordsource وتربطها مع اي أداة هذا اذا كنت بتستخدمdata Control

مش فاهم طيب ممكن توضحلي بمثال

أخي على حسب معرفتي والله أعلم ان هذا المثال سوف يفيدك

اخي الكريم محمد المثال جميل ولكنه يعتمد علي قاعدة البيانات الموصولة باداة الداتا كنترول ولكني اريد ان يتم استعراض كل الجداول الموجودة في قاعدة البيانات

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

بسم الله الرحمن الرحيم

الحل كالاتي

اولا نعلن ال connection باستخدام ال DAO

Public db As Database

و يفضل طبعا في module

ثانيا: الكود الذي يقرا الجداول

Sub readtables()
	Dim i, y As Integer

	Set db = OpenDatabase(dbname)
	y = db.TableDefs.Count - 1
	lsttblname.Clear
	For i = 0 To y
		If db.TableDefs(i).Attributes = 0 Then
			lsttblname.AddItem db.TableDefs(i).Name
		End If
	Next

End Sub

طبعا من الممكن ان ترسل الاداة List box بالمرجع الي ال method او ال procedure لكي يقوم تلقائيا بتحميل اي listbox في برنامجك باسماء الجداول

لكن اسمحلي انصحك بنصيحة و ارجو ان تتقبلها من اخ منك

اخي الكريم هذه التكنولوجيا اصبحت قديمة و في طريقها الي الزوال هذا ان لم تكن قد زالت بالفعل، و لن تصدق انني رفضت راتبا كبيرا في شركة ارادتني ان اعمل بهذه التكنولوجيا لانني اجيدها عوضا عن التكنولوجيات الحديثة مثل ال java و ال jsp و ال .net و ال asp.net و كذلك عملاق ال data access ال ADO.NET

هذا لانني اريد ان اجعل لنفسي مكانة و ابني career , ليس مهنة تجلب بعض المال و ليس لها مستقبل

اخوك احمد شلبي

Oracle Certified Professional

Database & Web Developer

أخي الكريم romantic_boy

جزاك الله كل خير وأثابك الله لقد قمت بتجربة هذه الطريقة ونجحت معا مرة ثانية جزاك الله كل خير ولي تعليق وبالنسبة لنصيحتك طبعا متقبلها ولكني كنت أريد فعلا ان اتعلم هذه التكنولوجيا الحديثة وعندما اشتركت في المنتدي دخلت فعلا علي الاقسام الخاصة ببيئة الدوت نت ولكني وجد الدروس الموجودة مطروحة لاشخاص ذو خبرة باللغات القديمة كالفيجوال بيسك الطرق القديمة في التعامل مع قواعد البيانات كالداتا كنترول والداو انا علي يقين انهم انقرضوا ولكني اريد ان اصعد في في التعليم درجة درجة ولو لك رايي اخر ارحب به جدا لكي تنور بصيرتي مرة ثانية جزاك الله كل خير