ADODB.Connetcion

[A Pig in a Cage]

ADODB.Connetcion

האם יש דרך לדעת את שמות הטבלאות הקיימות בתוך מסד נתונים אקסס המקושר ע"י אובייקט ADODB.Connection?

 

[רון קליין]

כן

תשתמש ב- OpenSchema במקום ב- Open.

 

[A Pig in a Cage]

עשיתי

conn.OpenSchema adSchemaTables אבל איך אני מוציא מזה את רשימת הטבלאות?

 

[רון קליין]

דוגמה

Option Explicit Dim rs As New Recordset Dim con As New Connection Private Sub Command1_Click() Me.Cls rs.MoveFirst Do Until rs.EOF Print rs!TABLE_NAME rs.MoveNext Loop End Sub Private Sub Form_Load() con.Provider = "microsoft.jet.oledb.4.0" con.ConnectionString = "data source=c:\db1.mdb" con.Open Set rs = con.OpenSchema(adSchemaTables) End Sub​

ההצהרות בסגנון As New רק חוסכות כאן מקום בדוגמה. ברור שזו טכניקה לט רצויה בתכנות אמיתי...

 

[uts]

שאלה על הדוגמא

היי רון הרצתי את הדוגמא שלך וקיבלתי רשימה הטבלאות אך גם דברים נוספים כגון MsysObjectS MsysACES ןעוד וגם 2 שמות של שאילתות מתוך 7 אם תוכל להסביר לי מה רואים אשמח אורי

 

[A Pig in a Cage]

יש שני סוגים של טבלאות:

טבלאות רגילות (TABLE) וטבלאות מערכת (SYSTEM TABLE). צריך להוסיף לדוגמה הנ"ל

If rs!TABLE_TYPE = "TABLE" Then Print rs!TABLE_NAME​