home *** CD-ROM | disk | FTP | other *** search
/ Microsoft DirectX SDK 7.0 / Dx7.bin / DXF / samples / multimedia / vbsamples / dsound / src / memo / database.bas next >
Encoding:
BASIC Source File  |  1999-06-11  |  3.0 KB  |  134 lines
  1. Attribute VB_Name = "db"
  2. Public db As Database
  3. Public rs As Recordset
  4.  
  5. '''''''''''''''''''''''''
  6. 'Initalize the database
  7. '''''''''''''''''''''''''
  8.  
  9. Public Sub INITDB()
  10.     
  11.     Dim sSQL As String
  12.     
  13.     Set db = OpenDatabase(App.Path + "\memo.mdb")
  14.     sSQL = "SELECT * FROM tblMain"
  15.     
  16.     Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
  17.     
  18. End Sub
  19.  
  20.  
  21. '''''''''''''''''''''''''
  22. 'Does this date have a
  23. 'memo?
  24. '''''''''''''''''''''''''
  25.  
  26. Public Function HAS_MEMO(mo As String, dy As Integer, yr As Integer) As Boolean
  27.     If rs Is Nothing Then INITDB
  28.     
  29.     If rs.RecordCount > 0 Then rs.MoveFirst
  30.     Do While Not rs.EOF
  31.         If rs!Month = mo Then
  32.             If rs!Day = dy Then
  33.                 If rs!Year = yr Then
  34.                     HAS_MEMO = True
  35.                     Exit Do
  36.                 End If
  37.             End If
  38.         End If
  39.         rs.MoveNext
  40.     Loop
  41.  
  42. End Function
  43.  
  44. '''''''''''''''''''''''''''
  45. 'Delete a memo
  46. '''''''''''''''''''''''''''
  47.  
  48. Public Sub DEL_REC(nm As String)
  49.         rs.MoveFirst
  50.         Do While Not rs.EOF
  51.             If rs!Month = M Then
  52.                 If rs!Day = D Then
  53.                     If rs!Year = Y Then
  54.                         If rs!Name = nm Then
  55.                             rs.Delete
  56.                         End If
  57.                     End If
  58.                 End If
  59.             End If
  60.             rs.MoveNext
  61.         Loop
  62. End Sub
  63.  
  64. '''''''''''''''''''''''''''''''
  65. 'Save Memo to Database
  66. '''''''''''''''''''''''''''''''
  67. Public Sub SaveToDB()
  68.  
  69.     Dim WAVE_DATA() As Byte
  70.     Dim CNT As Long
  71.     Dim TITLE As String
  72.     Dim z As Single
  73.     Dim CP As DSCBCAPS
  74.     Dim STATUS As Long
  75.     
  76.     Randomize Timer
  77.     
  78.     'rs.MoveFirst?
  79.     
  80.     If Not MEMO_RECORD Then Exit Sub
  81.     ''''''''''''''' stop if we are capturing
  82.     STATUS = dscb.GetStatus
  83.     If (STATUS And DSCBSTATUS_CAPTURING) Then
  84.         dscb.Stop
  85.     End If
  86.     
  87.     dscb.GetCaps CP
  88.     
  89.     ReDim WAVE_DATA(CP.lBufferBytes)
  90.     
  91.     dscb.ReadBuffer 0, 0, WAVE_DATA(0), DSCBLOCK_ENTIREBUFFER
  92.     
  93.     TITLE = InputBox("Please enter title of your memo.", "MEMO TITLE")
  94.         
  95.     If TITLE = "" Then
  96.         TITLE = "MEMO: " & Rnd * 65535 & "DATE: " & M & D & Y
  97.     End If
  98.     
  99.         
  100.     With rs
  101.         .AddNew
  102.         !wav = WAVE_DATA()
  103.         !Name = TITLE
  104.         !Month = M
  105.         !Day = D
  106.         !Year = Y
  107.         !wl = CP.lBufferBytes
  108.         '!tm = Time()
  109.         .Update
  110.     End With
  111.     
  112.     
  113. End Sub
  114.  
  115. '''''''''''''''''''''''''''''
  116. 'Get the dates with memos
  117. '''''''''''''''''''''''''''''
  118.  
  119. Public Sub BoldDays(cl As MonthView)
  120.     Dim tmpDate As Date
  121.     
  122.         On Local Error Resume Next
  123.         If rs Is Nothing Then Call INITDB
  124.         rs.MoveFirst
  125.         
  126.         Do While Not rs.EOF
  127.             DoEvents
  128.             tmpDate = rs!Month & "/" & rs!Day & "/" & rs!Year
  129.             tmpDate = CDate(tmpDate)
  130.             cl.DayBold(tmpDate) = True
  131.             rs.MoveNext
  132.         Loop
  133. End Sub
  134.