ISDBSongData::Media

CoClass SDBSongData, Interface ISDBSongData

Property Get Media As ISDBMedia

Property description

Media

Scripting Object	SDBSongData
Value Name	Media
Value Type	Value
Database Table	Songs
Field Name	IDMedia
Field Type	Integer
Example Data	45
Members	SDBMedia

Example Code

Complete script

Sub

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