ISDBSongData::PlayCounter

CoClass SDBSongData, Interface ISDBSongData

Property Get/Let PlayCounter As Long

Property description

There is also a Played Table with a history of Played Dates

PlayCounter

Scripting Object	SDBSongData
Value Name	PlayCounter
Value Type	Value
Database Table	Songs
Field Name	PlayCounter
Field Type	Integer
Tracklist Column	Played #
Example Data	3

Example Code

Complete script

Sub

  For iCounter = 0 to objSongList.count - 1                                    'SongLists
      Set objSongData = objSongList.Item(iCounter)
      ValuePlayCounter = objSongData.PlayCounter
      SDB.MessageBox "Value = '" &  ValuePlayCounter & "'", mtError, Array(mbOK)    'SDB.MessageBox
  Next
' objSongData.PlayCounter = ValueNewPlayCounter 'Commented Out For Safety
' objSonglist.UpdateAll              'Commented Out For Safety                 'UpdateAll
                         Updates db and writes tags (if checked in options)
End Sub