cadoschemas.cls

Decision 算法

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cADOSchemas"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Private mvarTableSchema As ADODB.Recordset
Private mvarFieldSchema As ADODB.Recordset

Public Property Get FieldSchema() As ADODB.Recordset
    Set FieldSchema = mvarFieldSchema
End Property

Public Property Get TableSchema() As ADODB.Recordset
    Set TableSchema = mvarTableSchema
End Property

Public Function OpenSchema_Tables(ByRef ConnectionObject As ADODB.Connection) As ADODB.Recordset
'Opens an ADO schema and retrieves the table names

On Error GoTo ErrorHandler


    Dim rstSchemaSchema As ADODB.Recordset
      
    Set rstSchemaSchema = ConnectionObject.OpenSchema _
        (adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

     
    rstSchemaSchema.MoveFirst
    
    
    Set mvarTableSchema = rstSchemaSchema
    
    Set OpenSchema_Tables = mvarTableSchema


Exit_ErrorHandler:
    Exit Function
    
    
ErrorHandler:
       
        ErrorManager.ErrorHandler Err, "cADOSchemas.OpenSchema_Tables"
                            
    
    Resume Exit_ErrorHandler
    

End Function


Public Function OpenSchema_Fields(ByRef ConnectionObject As ADODB.Connection) As ADODB.Recordset
'Opens an ADO schema and retrieves the field names

On Error GoTo ErrorHandler


    Dim rstSchemaSchema As ADODB.Recordset

    Set rstSchemaSchema = ConnectionObject.OpenSchema(adSchemaColumns)


    rstSchemaSchema.MoveFirst
        
        
    Set mvarFieldSchema = rstSchemaSchema
    
    Set OpenSchema_Fields = mvarFieldSchema
    

Exit_ErrorHandler:
    Exit Function
    
    
ErrorHandler:
        
        ErrorManager.ErrorHandler Err, "cADOSchemas.OpenSchema_Fields"
                            
    Resume Exit_ErrorHandler

End Function