به دست آوردن اسامی آبجکت های دیتابیس

به دست آوردن اسامی آبجکت های دیتابیس - نسخه‌ی قابل چاپ

+- فروم تخصصی - پشتیبانی CPSD (http://cpsd.ir/forum)
+-- انجمن: آموزش (/forumdisplay.php?fid=9)
+--- انجمن: عمومی (/forumdisplay.php?fid=21)
+--- موضوع: به دست آوردن اسامی آبجکت های دیتابیس (/showthread.php?tid=9)

به دست آوردن اسامی آبجکت های دیتابیس - CPSD Admin - ۱۸ مرداد ۱۳۸۹ ۰۳:۴۸ عصر

ضمن سلام

ممکن است این نیاز پیش بیاید که بخواهید به لیستی از آبجکتهای موجود در یک فایل اکسس دست پیدا کنید
اسامی آبجکت های موجود در یک فایل اکسس در داخل یکی از جدوال سیستمی با نام MsysObjects نگهداری و ثبت و ضبط میشود
بر همین اساس و با تکیه بر عبارات زیر اقدام به برگرداندن لیست تفکیکی اسامی آیجکتها نمایید
جهت انجام این امر SQL statement مربوطه را در مد SQL View و در داخل یک پرس و جوی خام کپی نمایید , با اجرای پرس و جو شاهد لیست آبجکتهای موجود خواهید بود

Tables

کد: 

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND 

(Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name;

Queries

کد: 

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND 

(MSysObjects.Type)=5 ORDER BY MSysObjects.Name;

Forms

کد: 

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND 

(MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name;

Reports

کد: 

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND 

(MSysObjects.Type)= -32764 ORDER BY MSysObjects.Name;

Modules

کد: 

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND 

(MSysObjects.Type)= -32761 ORDER BY MSysObjects.Name;

Macros

کد: 

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND 

(MSysObjects.Type)= -32766 ORDER BY MSysObjects.Name;