(یک سوال سخت(برای من

سلام

چجوری میشه یک دیتابیس رو باز کرد و لیستی از تمتم Tabel ها و لیستی از فیلد ها و همچنین لیستی از نوع فیلد ها تهیه کرد.

با کمک DAO

       For i = 0 To Data1.Database.TableDefs.Count - 1

           If Left(Data1.Database.TableDefs(i).Name, 4) <> "MSys" Then

              Combo1.AddItem Data1.Database.TableDefs(i).Name

           End If

        Next

   For i = 0 To Data1.Recordset.Fields.Count - 1

       lstAll.AddItem Data1.Recordset.Fields(i).Name

    Next

تعریف متغییر ها و افزودن کامبو و ... یادت نره درضمن چون این کد رو قبلا
نوشته بودم با DAO بود
بابک زواری

راه بهتر استفاده از کتابخانه ADOX است.
Microsoft Activex Data Objects For Data Definition Language and Security