home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / NexIRC_v2_2222363312012.psc / clsDatabase.cls < prev    next >
Text File  |  2006-12-03  |  1KB  |  42 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsDatabase"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17. Private lDatabaseFileName As String
  18.  
  19. Public Property Let FileName(ByVal FileName As String)
  20. Attribute FileName.VB_Description = "Specify a FileName to be used when reading/writing"
  21. If lSettings.sHandleErrors = True Then On Local Error Resume Next
  22. lDatabaseFileName = FileName
  23. End Property
  24.  
  25. Public Property Get FileName() As String
  26. If lSettings.sHandleErrors = True Then On Local Error Resume Next
  27. FileName = lDatabaseFileName
  28. End Property
  29.  
  30. Public Sub WriteINIEntry(lSection As String, lKey As String, lItems As String)
  31. If lSettings.sHandleErrors = True Then On Local Error Resume Next
  32. WriteINI lSection, lKey, lItems, lDatabaseFileName
  33. End Sub
  34.  
  35. Public Function ReadEntry(lSection As String, lKey As String, lDefault As String) As String
  36. If lSettings.sHandleErrors = True Then On Local Error Resume Next
  37. Dim msg As String
  38. msg = Space$(255)
  39. msg = ReadINI(lDatabaseFileName, lSection, lKey, lDefault)
  40. ReadEntry = StripTerminator(msg)
  41. End Function
  42.