لیست جداول و کوئری ها

[ahsaya]

لیست جداول و کوئری ها :

سلام دوستان .

1- آیا می شه با یک کوئری در اکسس ، لیست و فهرست جداول و کوئری ها رو درآورد ؟

2- آیا می شه با یک کوئری مشخصات جداول رو درآورد ؟

[Abbas Amiri]

سلام
متاسفانه بسیاری ازدوستان زحمت یک جستسجوی ساده را هم بخودشان نمیدهند
در روال Form_Load مربوط به فرمی که کمبوی شما درآنست تایپ کنید:


Private Sub Form_Load()
Dim tdf As TableDef, Qdf As QueryDef
For Each tdf In CurrentDb.TableDefs
If tdf.Attributes = 0 Or tdf.Attributes = dbAttachedTable Then
MyCombo.AddItem tdf.Name
End If
Next
For Each Qdf In CurrentDb.QueryDefs
MyCombo.AddItem Qdf.Name
Next
End Sub

[ahsaya]

سلام دوست عزیز

منظور من این نبود .

من می دونم که در Sql از کوئری زیر برای بدست آوردن فهرست جداول و کوئری ها استفاده می شود :

Select * from Information_Schema.tables

می خوام بدونم که توی اکسس چطوری لیست جداول و کوئری ها رو بدون استفاده از هر تابع یا رویدادی بدست بیارم ؟

[Abbas Amiri]

از دستور زیر استفاده کنید


SELECT Type, Name FROM MSysObjects WHERE (Type=1 Or Type=5 Or Type=6)


فیلد Typeنوع شی را بر میگرداند
1 جداول
5 کوئری
6 جداول لینک شده

[ahsaya]

دوست گرامي تشكر مي كنم .

من دنبال اين دستور بودم . ممنون هستم .

راجع به كوئري كه مشخصات جداول مثل فيلدها و نوع فيلد ها رو استخراج بكنم هم مي توني كمك كني ؟

[Abbas Amiri]

سلام
نام اشیایی که در اکسس ایجاد کرده اید در جدول MSysObjects است و مشخصات اختصاصی کوئری ها هم در MSysQueries . با کوئری زیر فیلد ها ویاعباراتی که فیلدهای کوئری را میسازند (ونه الزاما نام آنها را) میتوان استخراج کرد


SELECT MSysQueries.Expression AS FieldNames
FROM MSysObjects INNER JOIN MSysQueries ON MSysObjects.Id = MSysQueries.ObjectId
WHERE (((MSysQueries.Expression)<>"") AND ((MSysObjects.Name)="MyQueryName"));


نوع فیلد را از طریق شی Database.QueryDefs میتونم شرح بدم ، گرچه مطمئنم در فیلدهای باینری دو جدول سیستمی که در کوئری بالا نامشان آمده ، حتما مشخصات بیشتری میتوان یافت . ولی ازحوصله ووقت بنده خارج است

[amirali111]

با سلام
در ساخت گزارش پویا(یعنی حالتی که کاربر بتواند خودش جداول و فیلد ها را برای گزارش انتخاب نماید) چگونه میتوان در هنگام انتخاب فیلد(فرضا در یک لیست باکس) CAPTION آن را به کاربر نمایش بدهد نه نام جدول و فیلد را . چونکه ما نمیخواهیم نام فیلدها (که عموما انگلیسی و اختصاری میگذاریم) که ظاهر کاربر پسند ندارد داشته باشیم. در اینصورت باید چه کنیم؟
لطفا راهنمائی بفرمائید