Sample Read and Write Method(s): Difference between revisions

From MediaMonkey Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 8: Line 8:
' Time, DATE :  22:31, 09 April 2008
' Time, DATE :  22:31, 09 April 2008
'
'
'Sample of Scripting Code for inclusion into MMWiki pages
'Sample of Scripting Code Read and Write Method(s)
'A working script to show database results using various selection methods
'A working script to show database results using various selection methods
'
'

Revision as of 05:42, 10 April 2008

'
' MediaMonkey Script
'
' NAME: WikiSample.vbs
'
' Template Author: MoDementia
' Time, DATE :  22:31, 09 April 2008
'
'Sample of Scripting Code Read and Write Method(s)
'A working script to show database results using various selection methods
'
'MediaMonkey\Scripts\Scripts.in entry
'
'[WikiSample]                                                             'Format of the Scripts.ini file
'Filename=WikiSample.vbs
'Procname=WikiSample
'Order=99
'DisplayName=WikiSample
'Description=Displays the raw database value of the MMWikipage item
'Language=VBScript
'ScriptType=0


Sub WikiSample

  Dim SelectMethod, SampleID, ValueTypeNewValueName
  Dim SQLString                                                            'SelectMethod 3
  Dim objSongList                                                          'SelectMethod 2

  SelectMethod = 1
  ' SelectMethod NowPlaying = 1
  ' SelectMethod UseSQLQuery = 2
  ' SelectMethod UseSQL = 3
  ' SelectMethod SelectedSongs = 4
  
  SampleID = 13123
  
  ValueTypeNewValueName = "Mamma Mia"
  
  Set objSongList = SDB.NewSongList                                        'SelectMethod 2 and 3 SDB.NewSongList
  
  Select Case SelectMethod
    Case 1
      Set objSongData = SDB.Player.CurrentSong                             'SDB.Player.CurrentSong
    Case 2
      Set objSongListiterator = SDB.Database.QuerySongs("AND DatabaseTable.ID=" & SampleID) 'SDB.Database.QuerySongs
    Case 3
      
      SQLString = "SELECT FieldName FROM DatabaseTable WHERE DatabaseTable.ID = " & SampleID
      
      Set objSongListiterator = SDB.Database.OpenSQL(SQLString)            'SDB.Database.OpenSQL
    Case 4
      Set objSongList = SDB.SelectedSongList                               'SDB.SelectedSongList
'       Set objSongList = SDB.CurrentSongList                              'SDB.CurrentSongList
'       Set objSongList = SDB.AllVisibleSongList                           'SDB.AllVisibleSongList
    Case Else
      SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK)      'SDB.MessageBox
      Exit Sub
  End Select
  
  For iCounter = 0 to objSongList.count - 1                                'SelectMethod 4 SongLists
    While Not objSongListiterator.EOF                                      'SelectMethod 2 and 3 Iterator
      Set objSongData = objSongListiterator.Item                           'SelectMethod 2
      objSongList.Add(objSongData)                                         'SelectMethod 2
      Set objSongData = objSongList.Item(iCounter)                         'SelectMethod 4
      
      ValueTypeValueName = objSongData.ValueName                           'SelectMethod 1, 2 and 4
      
      SDB.MessageBox "Value = '" & ValueTypeValueName & "'", mtError, Array(mbOK) 'SelectMethod 4 (2 and 3)
      
      ValueTypeValueName = objSongListiterator.StringByIndex(0)                   'SelectMethod 3
    
      objSongListiterator.Next                                               'SelectMethod 2 and 3
    Wend                                                                   'SelectMethod 2 and 3
  Next                                                                     'SelectMethod 4
  Set objSongListiterator=Nothing                                          'SelectMethod 2 and 3

  SDB.MessageBox "Value = '" & ValueTypeValueName & "'", mtError, Array(mbOK)

'  objSongData.Title = ValueTypeNewValueName   'Commented Out For Safety 'SelectMethod 1, 2 and 4

'  objSonglist.UpdateAll              'Commented Out For Safety            'UpdateAll
                         'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options)
End Sub
'
' MediaMonkey Script
'
' NAME: WikiSample.vbs
'
' Template Author: MoDementia
' Generated by MMWiki page ISDBSongData::Album
' Time, DATE :  22:31, 09 April 2008
'
'Sample of Scripting Code for inclusion into MMWiki pages
'A working script to show database results using various selection methods
'
'MediaMonkey\Scripts\Scripts.in entry
'
'[WikiSample]                                                             'Format of the Scripts.ini file
'Filename=WikiSample.vbs
'Procname=WikiSample
'Order=99
'DisplayName=WikiSample
'Description=Displays the raw database value of the MMWikipage item
'Language=VBScript
'ScriptType=0


Sub WikiSample

  Dim SelectMethod, SampleID, ObjectNewAlbum

  Dim objSongList                                                          'SelectMethod 2

  SelectMethod = 1
  ' SelectMethod NowPlaying = 1
  ' SelectMethod UseSQLQuery = 2

  ' SelectMethod SelectedSongs = 4
  
  SampleID = 13123
  ObjectNewAlbum = "Mamma Mia"
  Set objSongList = SDB.NewSongList                                        'SelectMethod 2 and 3 SDB.NewSongList
  
  Select Case SelectMethod
    Case 1
      Set objSongData = SDB.Player.CurrentSong                             'SDB.Player.CurrentSong
    Case 2
      Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleID) 'SDB.Database.QuerySongs



    Case 4
      Set objSongList = SDB.SelectedSongList                               'SDB.SelectedSongList
'       Set objSongList = SDB.CurrentSongList                              'SDB.CurrentSongList
'       Set objSongList = SDB.AllVisibleSongList                           'SDB.AllVisibleSongList
    Case Else
      SDB.MessageBox "Incorrect Select Method ", mtError, Array(mbOK)      'SDB.MessageBox
      Exit Sub
  End Select
  
  For iCounter = 0 to objSongList.count - 1                                'SelectMethod 4 SongLists
    While Not objSongListiterator.EOF                                      'SelectMethod 2 and 3 Iterator
      Set objSongData = objSongListiterator.Item                           'SelectMethod 2
      objSongList.Add(objSongData)                                         'SelectMethod 2
      Set objSongData = objSongList.Item(iCounter)                         'SelectMethod 4
      ObjectAlbum = objSongData.Album.Member                                      'SelectMethod 1, 2 and 4
      SDB.MessageBox "Value = '" & ObjectAlbum & "'", mtError, Array(mbOK) 'SelectMethod 4 (2 and 3)

    objSongListiterator.Next                                               'SelectMethod 2 and 3
    Wend                                                                   'SelectMethod 2 and 3
  Next                                                                     'SelectMethod 4
  Set objSongListiterator=Nothing                                          'SelectMethod 2 and 3

  SDB.MessageBox "Value = '" & ObjectAlbum & "'", mtError, Array(mbOK)

'  objSongData.Album.Member = ObjectNewAlbum 'Commented Out For Safety 'SelectMethod 1, 2 and 4
'  objSonglist.UpdateAll              'Commented Out For Safety            'UpdateAll
                         'SelectMethod 1, 2 and 4 Updates db and writes tags (if checked in options)
End Sub
Value Type
Value Name
Value Type
Value Name
Field Name
Database Table
Database Table
Value Type
Value Name
Value Name
Value Type
Value Name
Value Type
Value Name
Value Type
Value Name
Value Type
Value Name
Database Table
Retrieved from "https://www.mediamonkey.com/wiki/index.php?title=Sample_Read_and_Write_Method(s)&oldid=3874"