The ADO OpenSchema Method simply returns a recordset with the following information in it. You can then loop through it and use the TABLE_Name to index whatever information you wish to retrieve from that particular recordset.

(Rs as adodb.recordset)

 Set RS = ADOConnection.OpenSchema(AdSchemaTables)

   RS.MoveFirst

        Do while NOT RS.EOF

            If RS!TABLE_NAME = "MyTable" then

                 Debug.print RS!TABLE_TYPE

                 Debug.print RS!DATE_CREATED

                  Etc.  etc.

            End If

          RS.MoveNext

        Loop

    RS.Close

 Here are a few of the Schema recordset Structures

 ADSCHEMATABLES recordset:

 FieldName:  TABLE_CATALOG  Value: none

FieldName:  TABLE_SCHEMA  Value: none

FieldName:  TABLE_NAME  Value:  EOnlyTest

FieldName:  TABLE_TYPE  Value:  TABLE

FieldName:  TABLE_GUID  Value: none

FieldName:  DESCRIPTION  Value: none

FieldName:  TABLE_PROPID  Value: none

FieldName:  DATE_CREATED  Value:  3/22/2000 12:25:40 AM

FieldName:  DATE_MODIFIED  Value:  3/22/2000 12:25:40 AM

AdSchemaColumns:

 FieldName:  TABLE_CATALOG  Value: none

FieldName:  TABLE_SCHEMA  Value: none

FieldName:  TABLE_NAME        Value:  Data

FieldName:  COLUMN_NAME        Value:  AdLogIn

FieldName:  COLUMN_GUID  Value: none

FieldName:  COLUMN_PROPID  Value: none

FieldName:  ORDINAL_POSITION        Value:  2

FieldName:  COLUMN_HASDEFAULT        Value:  False

FieldName:  COLUMN_DEFAULT  Value: none

FieldName:  COLUMN_FLAGS        Value:  102

FieldName:  IS_NULLABLE        Value:  True

FieldName:  DATA_TYPE        Value:  129

FieldName:  TYPE_GUID  Value: none

FieldName:  CHARACTER_MAXIMUM_LENGTH        Value:  5

FieldName:  CHARACTER_OCTET_LENGTH        Value:  5

FieldName:  NUMERIC_PRECISION  Value: none

FieldName:  NUMERIC_SCALE  Value: none

FieldName:  DATETIME_PRECISION  Value: none

FieldName:  CHARACTER_SET_CATALOG  Value: none

FieldName:  CHARACTER_SET_SCHEMA  Value: none

FieldName:  CHARACTER_SET_NAME  Value: none

FieldName:  COLLATION_CATALOG  Value: none

FieldName:  COLLATION_SCHEMA  Value: none

FieldName:  COLLATION_NAME  Value: none

FieldName:  DOMAIN_CATALOG  Value: none

FieldName:  DOMAIN_SCHEMA  Value: none

FieldName:  DOMAIN_NAME  Value: none

FieldName:  DESCRIPTION  Value: none

AdSchemaIndexes:

FieldName:  TABLE_CATALOG  Value: none

FieldName:  TABLE_SCHEMA  Value: none

FieldName:  TABLE_NAME        Value:  TblRepass

FieldName:  INDEX_CATALOG  Value: none

FieldName:  INDEX_SCHEMA  Value: none

FieldName:  INDEX_NAME        Value:  ETable

FieldName:  PRIMARY_KEY        Value:  False

FieldName:  UNIQUE        Value:  False

FieldName:  CLUSTERED        Value:  False

FieldName:  TYPE        Value:  4

FieldName:  FILL_FACTOR        Value:  100

FieldName:  INITIAL_SIZE        Value:  2048

FieldName:  NULLS        Value:  4

FieldName:  SORT_BOOKMARKS        Value:  False

FieldName:  AUTO_UPDATE        Value:  True

FieldName:  NULL_COLLATION        Value:  4

FieldName:  ORDINAL_POSITION        Value:  1

FieldName:  COLUMN_NAME        Value:  ETable

FieldName:  COLUMN_GUID  Value: none

FieldName:  COLUMN_PROPID  Value: none

FieldName:  COLLATION        Value:  1

FieldName:  CARDINALITY        Value:  4

FieldName:  PAGES        Value:  1

FieldName:  FILTER_CONDITION  Value: none

FieldName:  INTEGRATED        Value:  True

Comments

Add New Search

Write comment

Name: Email:   Website: Title: UBBCode:         -color-aquablackbluefuchsiagraygreenlimemaroonnavyolivepurpleredsilvertealwhiteyellow -size-tinysmallmediumlargehuge   Please input the anti-spam code that you can read in the image.

Shankar  - Expert SEO Service & Web development India |122.163.51.xxx |2009-07-15 20:20:13 This is one of the best article which has short out my problem. ReplyQuote 0 0

Powered by !JoomlaComment 4.0 beta2