With property problems or something. (1 Viewer)

[Kondwani]

Help with WMP10

Private Sub WindowsMediaPlayer6_ScriptCommand(ByVal scType As String, ByVal Param As String)
Dim Player As WMPLib.WindowsMediaPlayer
Dim AtName As Object
Dim AtValue As Variant
Dim i As Integer
Dim Dbs As Database
Dim Rst As Recordset
i = 0
AtName = Player.currentMedia.getAttributeName(i)
AtValue = Player.currentMedia.getItemInfo(AtName)
Do Until i = Player.currentMedia.attributeCount
Dbs.Execute ("ALTER TABLE Log ADD COLUMN ""&AtName&")
AtValue = Player.currentMedia.getItemInfo(AtName)
i = i + 1
Debug.Print AtName
Debug.Print AtValue

Loop

End Sub

 

[pbaldy]

Please don't post the same question more than once:

http://www.access-programmers.co.uk/forums/showthread.php?t=177934