SDB.Database.OpenSQL("SELECT AlbumArtist FROM Songs WHERE Songs.ID = " & SampleID)

SDB.Database.OpenSQL("SELECT Artists.Artist FROM Songs, ArtistAlbums, Artists WHERE Songs.IDAlbum=ArtistAlbums.IDAlbum AND ArtistAlbums.IDArtist=Artists.Artist AND Songs.ID = " & SampleID)

Yes, if you only want the AlbumArtist as text from a then this would do it:

[code]SDB.Database.OpenSQL("SELECT AlbumArtist FROM Songs WHERE Songs.ID = " & SampleID)[/code]

But if you have multiple assignments of Album Artists and you want them separate, then you need to do something like this:
[code]SDB.Database.OpenSQL("SELECT Artists.Artist FROM Songs, ArtistAlbums, Artists WHERE Songs.IDAlbum=ArtistAlbums.IDAlbum AND ArtistAlbums.IDArtist=Artists.Artist AND Songs.ID = " & SampleID)[/code]

The first query returns only one row while the second returns so many rows as it exist different Album Artists.

Thanks Bex,
I knew it would be an easy one for you :)

I have never understood things like album and artist in the SongData
The documentation doesn't say where it comes from :(
If you look at the DB directly only the Album Title is there :(

I presume MM itself runs an SQL statement(s) to create the extra SongData elements

So using SDB.Database.OpenSQL you would have to get the IDAlbum first then SDB.Database.OpenSQL the albums table to get the album artist yes?

Or can you do it in 1 line?

SDB.Database.QuerySongs returns SDBSongIterator Object from which you easy can get [b]SongData Objects[/b].

SDB.Database.OpenSQL returns SDBDBIterator Object from which you get [b]text or number values[/b].



objSongListiterator.StringByIndex(1)
Returns error because you only have one field in your Select (Album)

objSongListiterator.StringByIndex(0).Artist.Name
Returns error because .Artist.Name needs a songdata object to work. objSongListiterator.StringByIndex(0) is just text.

Sub Sample

  Dim SampleID, ObjectNewAlbum
  Dim objSongList

  SampleID = 13123
  ObjectNewAlbum = "Rolling Stones"
  Set objSongList = SDB.NewSongList
  
  Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleID)
  
    While Not objSongListiterator.EOF
      Set objSongData = objSongListiterator.Item
      objSongList.Add(objSongData)
      ObjectAlbum = objSongData.Album.Artist.Name
    objSongListiterator.Next
    Wend
  Set objSongListiterator=Nothing

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

'  objSongData.Album.Artist = ObjectNewAlbum 'Commented Out For Safety
'  objSonglist.UpdateAll              'Commented Out For Safety 
End Sub

Sub Sample

  Dim SampleID, ObjectNewAlbum
  Dim objSongList

  SampleID = 13123
  ObjectNewAlbum = "Rolling Stones"
  Set objSongList = SDB.NewSongList
  
      SQLString = "SELECT Album FROM Songs WHERE Songs.ID = " & SampleID
      Set objSongListiterator = SDB.Database.OpenSQL(SQLString)
        
    While Not objSongListiterator.EOF
    ObjectAlbum = objSongListiterator.StringByIndex(0)
    objSongListiterator.Next
    Wend
  Set objSongListiterator=Nothing

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

'  objSongData.Album.Artist = ObjectNewAlbum 'Commented Out For Safety
'  objSonglist.UpdateAll              'Commented Out For Safety 
End Sub

My SQL knowledge is almost non existant so I need a little help
I know how to get this to work using SDB.Database.QuerySongs
[code]
Sub Sample

Dim SampleID, ObjectNewAlbum
Dim objSongList

SampleID = 13123
ObjectNewAlbum = "Rolling Stones"
Set objSongList = SDB.NewSongList

Set objSongListiterator = SDB.Database.QuerySongs("AND Songs.ID=" & SampleID)

While Not objSongListiterator.EOF
Set objSongData = objSongListiterator.Item
objSongList.Add(objSongData)
ObjectAlbum = objSongData.Album.Artist.Name
objSongListiterator.Next
Wend
Set objSongListiterator=Nothing

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

' objSongData.Album.Artist = ObjectNewAlbum 'Commented Out For Safety
' objSonglist.UpdateAll 'Commented Out For Safety
End Sub
[/code]

But I wonder if the same result is possible with SDB.Database.OpenSQL?
objSongListiterator.StringByIndex(0) Returns the Album Name but objSongListiterator.StringByIndex(1) or objSongListiterator.StringByIndex(0).Artist.Name creates an error
And then the update code needs to be???
[code]
Sub Sample

Dim SampleID, ObjectNewAlbum
Dim objSongList

SampleID = 13123
ObjectNewAlbum = "Rolling Stones"
Set objSongList = SDB.NewSongList

SQLString = "SELECT Album FROM Songs WHERE Songs.ID = " & SampleID
Set objSongListiterator = SDB.Database.OpenSQL(SQLString)

While Not objSongListiterator.EOF
ObjectAlbum = objSongListiterator.StringByIndex(0)
objSongListiterator.Next
Wend
Set objSongListiterator=Nothing

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

' objSongData.Album.Artist = ObjectNewAlbum 'Commented Out For Safety
' objSonglist.UpdateAll 'Commented Out For Safety
End Sub
[/code]