[أبوسعود]

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

[Ahmed_Mansoor]

وعليكم السلام و رحمة الله وبركاته

أهلا أخي الكريم , هذا مثال جميل لذلك .

[أبوسعود]

(05-05-17, 01:21 AM)Ahmed_Mansoor كتب : وعليكم السلام و رحمة الله وبركاته

أهلا أخي الكريم , هذا مثال جميل لذلك .

السلام عليكم
أخي الكريم لم يتم التعامل مع الحدث
Listview1_ItemClick(ByVal Item As MSComctLib.ListItem)
يرجى المساعدة في الحصول على الاداة MSComctLib

[Ahmed_Mansoor]

أهلا أخي الكريم أبوسعود , الحدث Listview1_ItemClick هو حدث الضغط على عنصر معين مضاف في أداة الـ Listview1 لكي يتم إظهار حقول الجدول في أداة الـ Listview2 وإذا واجهتك مشكلة أو ظهر لك خطأ أثناء تشغيل البرنامج فذلك ربما لأني أستخدمت الأداة Listview1 وهي محدثه الإصدار 6 حيث تستطيع حذفها من المشروع ثم إعادة إضافتها من الإصدار الذي لديك القديم أو أنك تقوم بتحديث الفيجول بيسك6 حيث يوجد ملف تحديث للفيجول6 موجود مواضيع له هنا في المنتدى لكي تحدث أغلب الأداوت بما فيها Listview1 .

[أبوسعود]

(06-05-17, 12:55 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم أبوسعود , الحدث Listview1_ItemClick هو حدث الضغط على عنصر معين مضاف في أداة الـ Listview1  لكي يتم إظهار حقول الجدول في أداة الـ Listview2 وإذا واجهتك مشكلة أو ظهر لك خطأ أثناء تشغيل البرنامج فذلك ربما لأني أستخدمت الأداة Listview1 وهي محدثه الإصدار 6 حيث تستطيع حذفها من المشروع ثم إعادة إضافتها من الإصدار الذي لديك القديم أو أنك تقوم بتحديث الفيجول بيسك6 حيث يوجد ملف تحديث للفيجول6 موجود مواضيع له هنا في المنتدى لكي تحدث أغلب الأداوت بما فيها Listview1 .

مشكور أخي الغالي أحمد
تم التغلب على المشكلة بانشاء مشروع جديد يتضمن اداة Listview ونقل كافة الكودات والمعلومات له وبحمد الله تم حل المشكلة
لكنه يظهر لي جداول تحت مسمى ACCESS TABLE و SYSTEM TABLE أعتقد انها جداول اساسية لقاعدة البيانات لايمكن الاستغناء عنها

مشكور على جهودك يا غالي ....

[Ahmed_Mansoor]

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

PHP كود :

Private Sub Command1_Click()

Command1.Enabled = False

Dim I As Integer
  
ListView1.ListItems.Clear

'عرض جميع الجداول بجميع أنواعها
For I = 0 To Cat.Tables.Count - 1
    If LCase$(Trim$(Cat.Tables(I).Type)) = "table" Then
       ListView1.ListItems.Add , , Cat.Tables(I).Name
       ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = Cat.Tables(I).Type
    End If
Next I

Command1.Enabled = True

End Sub