image slideshow database

Question

1.00/5 (1 vote)

See more:

VB

SQL-Server

how to make image slideshow in vb.net but the source of image from database..
thanks before...

Posted 9-Jun-12 6:08am

kartikadh

Updated 27-Dec-20 17:25pm

Add a Solution

Comments

Sandeep Mewara 9-Jun-12 13:18pm

Did you try anything?

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Stephen Hewison · Answer 1 · 2012-06-09T06:34:00

Solution 1

Hi,

Well there are 3 steps to what you're trying to do:

Write image to the database
Get the images from the database
Display the image

The following article has a VB.Net example which covers all 3.

http://itknowledgeexchange.techtarget.com/itanswers/storing-images-in-sql-server-2005-and-retrieving-them-from-vbnet/[^]

Posted 9-Jun-12 6:34am

Stephen Hewison

Comments

kartikadh 9-Jun-12 12:40pm

i have been write image to database.. in my database i stored the path and file name of image..
i want to make slide show like javascript slide show..

Stephen Hewison 9-Jun-12 13:15pm

Then you're not storing the image source in the database as your question suggests. The following shows how to read an image file and load it into a bitmap object. http://www.vb-helper.com/howto_net_loadpicture.html

Sandeep Mewara · Answer 2 · 2012-06-09T07:27:00

Solution 2

javascript slide show
Here:
http://www.barelyfitz.com/projects/slideshow/[^]
http://www.javascriptkit.com/howto/show.shtml[^]
http://www.themeflash.com/30-powerful-jquery-slideshow-sliders-plugins-and-tutorials/[^]
http://snook.ca/archives/javascript/simplest-jquery-slideshow[^]

Posted 9-Jun-12 7:27am

Sandeep Mewara

Member 14903590 · Answer 3 · 2020-12-27T17:24:00

<div class="advert" style="width: 60%; text-align: center; cursor :pointer;">
                <asp:Image ID="Image1" runat="server" Width="100%" AlternateText="" ImageUrl="~/Images/Slide/LOGIN/2009200836335615.jpg" />
                <asp:SlideShowExtender ID="SlideShowExtender" runat="server" TargetControlID="Image1"
                    SlideShowServiceMethod="GetImages" AutoPlay="true" PlayInterval="2000" Loop="true">
                </asp:SlideShowExtender>
            </div>

<WebMethod()>
    <ScriptMethod()>
    Public Shared Function GetImages() As Slide()
        Try
            Dim slides As New List(Of Slide)()
            Dim sPath As String = HttpContext.Current.Server.MapPath("~/Images/Slide/LOGIN")
            Dim DocPath As String = ""
            If sPath.EndsWith("\") Then
                sPath = sPath.Remove(sPath.Length - 1)
            End If
            Dim info As DirectoryInfo = New DirectoryInfo(sPath)
            Dim files1 As FileInfo() = info.GetFiles().OrderByDescending(Function(DateTime) DateTime.CreationTime).ToArray()
            Dim ObjDt As DataTable

            Dim ObjUser As New User
            ObjDt = ObjUser.ListLoginSlideShowImage()
            If ObjDt.Rows.Count > 0 Then
                For i As Integer = 0 To ObjDt.Rows.Count - 1
                    DocPath = Convert.ToString(ObjDt.Rows(i)("imagepath"))
                    If DocPath.Contains("~") Then
                        DocPath = Replace(DocPath, "~", "")
                    End If
                    If DocPath <> "" Then
                        slides.Add(New Slide(DocPath, CStr(i) & "Login", Convert.ToString(ObjDt.Rows(i)("imagepath"))))
                    End If
                Next
            End If

            Return slides.ToArray()
        Catch ex As Exception
            Throw ex
        End Try
    End Function