home *** CD-ROM | disk | FTP | other *** search
/ distrib.akp.su/Programming/Vb-6+Rus/ / distrib.akp.su.tar / distrib.akp.su / Programming / Vb-6+Rus / VB98 / TEMPLATE / CLASSES / DATASRC1.CLS < prev    next >
Text File  |  1998-06-18  |  844b  |  29 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 1  'vbDataSource
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsDataSource"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15. ' TODO: Declare local ADO Recordset object. For example:
  16. 'Private WithEvents rs As ADODB.Recordset
  17.  
  18. Private Sub Class_GetDataMember(DataMember As String, Data As Object)
  19.     ' TODO:  Return the appropriate recordset based on DataMember. For example:
  20.     
  21.     'Select Case DataMember
  22.     'Case ""             ' Default
  23.     '    Set Data = Nothing
  24.     'Case Else           ' Default
  25.     '    Set Data = rs
  26.     'End Select
  27. End Sub
  28.  
  29.