كيف احصل على اسماء الحقول

ممكن توضح سؤالك يمكن اعرف اجاوبك

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

هل تريد أخى أسماء الأعمدة ام ماذا؟

بواسطة ADO

    With RS
        .Open TableName, db, 3
        For i = 0 To .Fields.Count - 1
            Lst_TableFields.AddItem .Fields(i).Name
        Next
    End With

الله يعافيك اخوي محمد

وبغيت لو تكرمت كيفية إظهار أسماء الجداول داخل القاعدة ؟

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

يمكن القول انه لافرق بين الكود المطلوب وبين كود الأستاذ محمد بدوى

Set dbs = OpenDatabase(mypath)
       For i = 5 To dbs.TableDefs.Count - 1
           List1.AddItem dbs.TableDefs(i).Name
       Next

لعرض الجداول (Table)

Dim RS As New ADODB.Recordset

    Set RS = db.OpenSchema(adSchemaTables)

    With Cmb_Table
        Do While Not RS.EOF
            If RS("TABLE_TYPE").Value = "TABLE" Then
                .AddItem RS("TABLE_NAME").Value
            End If
            RS.MoveNext
        Loop
    End With

لعرض الاستعلامات (View)

Dim RS As New ADODB.Recordset

    Set RS = db.OpenSchema(adSchemaTables)

    With Cmb_Table
        Do While Not RS.EOF
            If RS("TABLE_TYPE").Value = "VIEW" Then
                .AddItem RS("TABLE_NAME").Value
            End If
            RS.MoveNext
        Loop
    End With

ما شاء الله عليك استاذ محمد بدوي خبير لآخر درجه .. وهذه ليست مجاملة بل مرآه للواقع ..

لك وللجميع تحياتي على الجهود المبذولة هنا

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

لا أملك إلا أن أقول لك شكرا على مجهودك ..

وأتتمنى لو تتكرم وتوضح كيفية الحصول على خصائص الحقل DataType والطول وغيره ..

والمعذرة على الإزاعج

تحياتي

للرفع

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

أسماء الحقول.rar

مشكور وما قصرت :)