home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP08 / 309X0802.TXT < prev    next >
Encoding:
Text File  |  1998-06-17  |  883 b   |  32 lines
  1.  
  2. ' Enumeration values for the BOFAction property.
  3. Public Enum sdcBOFActionConstants
  4.     sdcMoveFirst = 0
  5.     sdcStayAtBOF
  6. End Enum
  7.  
  8. ' Enumeration values for the EOFAction property.
  9. Public Enum sdcEOFActionConstants
  10.     sdcMoveLast = 0
  11.     sdcStayAtEOF
  12.     sdcAddNewRecord
  13. End Enum
  14.  
  15. ' Declare ADO variables (recordset and connection
  16. ' objects).
  17. Private cnMain As ADODB.Connection
  18. Private WithEvents rsMain As ADODB.RecordSet
  19.  
  20. ' Property defaults.
  21. Const DefaultBOFAction = sdcBOFActionConstants.sdcMoveFirst
  22. Const DefaultEOFAction = sdcEOFActionConstants.sdcMoveLast
  23. Const DefaultConnectionString = ""
  24. Const DefaultLargeChange = 10
  25. Const DefaultRecordSource = ""
  26.  
  27. ' Property variables.
  28. Private msdcBOFAction As sdcBOFActionConstants
  29. Private msdcEOFAction As sdcEOFActionConstants
  30. Private mstrConnectionString As String
  31. Private mstrRecordSource As String
  32.