|
SlideShow
Home :: Silverlight :: Silverlight SlideShow
Need to display your images in a slide show? I've used a neat (open source) Silverlight control from http://www.codeplex.com. I've hooked it up to my database by generating the data.xml file 'on the fly'
 Slide Show example
get silverlight source code for the slide show here
Sub AddAlbums()
Dim ThisYear As Integer
If Month(DateTime.Now) = 1 Then
ThisYear = Year(DateTime.Now) - 2
Else
ThisYear = Year(DateTime.Now) - 1
End If
'first, fill a DataSet with the records we want to show...
'these will be your slides
Dim newSQL As String = "SELECT ContestWinners.* FROM ContestWinners "
newSQL &= "WHERE (CompanyID = 1) "
newSQL &= " AND Votes1 <= 4"
newSQL &= " AND (YEAR(DateCreated) <= " & ThisYear & ") "
newSQL &= " ORDER BY Votes1 ASC "
Dim dsContestWinners As New DataSet
'put your ConnectionString here...
Dim mySqlConnection As New Data.SqlClient.SqlConnection(myConnectionString)
Dim cmd As New SqlCommand(newSQL, mySqlConnection) 'init SqlCommand
Dim adapter As New SqlDataAdapter(cmd) 'init SqlDataAdapter
mySqlConnection.Open()
adapter.Fill(dsContestWinners, "ContestWinners")
Dim dv As New DataView 'We want to filter this later, so create a DataView
dv.Table = dsContestWinners.Tables(0)
'This is my categories table (CompCat) - this will be our albums
newSQL = "SELECT CompCat.* FROM CompCat "
newSQL &= " WHERE (CompanyID = " & Company.ID & ") "
newSQL &= " And Flag=0 "
Dim myReader As Data.SqlClient.SqlDataReader
cmd.CommandText = newSQL
myReader = cmd.ExecuteReader() The rest of this page is hidden, you must be a member to view itTo become a member and get immediate access to the course please join here Free!
Next >> Classic ASP
|