[mmaalmesry]

كنت أقصد بأحدث إصدار انه من الأفضل آخر نسخة visual basic

ملحوظة:
أنا استخدم vb 2015 ولم يعمل الكود السابق إلا بعد تعديله إلى:

كود :

con.open
dim dt=con.getschema("tables",{nothing,nothing,nothing}) 'هذا السطر
for each r in dt.rows
msgbox(r("table_name"))
next
con.close

شكرا جزيلا و بارك الله فيكم