home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Basic / GridOne / setup.EXE / BOUND.CLS < prev    next >
Encoding:
Visual Basic class definition  |  2001-09-09  |  1.1 KB  |  37 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 = "CBound"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. '-----------------------------------------------------------------------------
  15. ' This is a part of the BeeGrid ActiveX control.
  16. ' Copyright ⌐ 2000 Stinga
  17. ' All rights reserved.
  18. '
  19. ' You have a right to use and distribute the BeeGrid sample files in original
  20. ' form or modified, provided that you agree that Stinga has no warranty,
  21. ' obligations, or liability for any sample application files.
  22. '-----------------------------------------------------------------------------
  23. Option Explicit
  24.  
  25. Private Sub Class_GetDataMember(DataMember As String, Data As Object)
  26.     Dim tl As New CSimpleOLEDB
  27.     
  28.     'set the Filename property
  29.     tl.Filename = DataMember
  30.     
  31.     'call the LoadData method to populate the class
  32.     tl.LoadData
  33.     
  34.     Set Data = tl
  35. End Sub
  36.  
  37.