ISDBSongData::Year

CoClass SDBSongData, Interface ISDBSongData

Property Get/Let Year As Long

Property description

Year

Scripting Object	SDBSongData
Value Name	Year
Value Type	Value
Database Table	Songs
Field Name	Year
Field Type	Integer
Tracklist Column	Date
Example Data	19740000

Example Code

Complete script

Sub

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