Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

How to store jpeg / gif / bmp image in database and how to
retrieve them? The most stressful condition is database is
distributed and stored images can be retrive from any
computer in network and any one can store images from other
computer!! plss help its urgent.......RAHUL RATHOD

Answer Posted / debolina

For Save Images:

Private Sub Save()
Dim strConn, strQuery As String
Dim cmd As SqlCommand
Dim img As Image
Dim imagedata As Byte()
Dim imgFormat As Imaging.ImageFormat
Dim myParameter As SqlParameter
Try
img = Image.FromFile(Me.txtImage.Text)
imgFormat = img.RawFormat

imagedata = ConvertImageToByteArray(img, imgFormat)

strQuery = "Insert into TBL_STUDENT
(STUD_NAME,SUBJECT,NUMBER,IMAGES) values ('" & txtName.Text
& "','" & txtSubject.Text & "'," & txtNumber.Text & ",@Image)"
strConn = //Your Connection String
conn = New SqlConnection(strConn)
cmd = New SqlCommand(strQuery, conn)

myParameter = New SqlParameter("@Image",
SqlDbType.Image, imagedata.Length)
myParameter.Value = imagedata
cmd.Parameters.Add(myParameter)


conn.Open()
cmd.ExecuteNonQuery()

MsgBox("Saved Successfully", MsgBoxStyle.OkOnly)
Catch ex As Exception

End Try
End Sub

Private Shared Function ConvertImageToByteArray(ByVal
imageToConvert As System.Drawing.Image, ByVal formatOfImage
As Imaging.ImageFormat) As Byte()
Dim Ret As Byte()

Try
Using ms As New MemoryStream()
imageToConvert.Save(ms, formatOfImage)
Ret = ms.ToArray()
End Using
Catch generatedExceptionName As Exception
Throw
End Try

Return Ret
End Function

For Retrieve:

Private Sub RetrieveImages()
Dim strConn As String
Dim cmd As SqlCommand
Dim da As SqlDataAdapter

Try
strConn = //Connection string
conn = New SqlConnection(strConn)
cmd = New SqlCommand("Select * from
TBL_STUDENT", conn)
da = New SqlDataAdapter(cmd)
ds = New DataSet
da.Fill(ds)
Catch ex As Exception

End Try
End Sub

Is This Answer Correct ?    4 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What is portable executable?

1163


Explain about the feature anonymous type?

970


Describe about visual basic.net?

978


Explain about visual basic?

958


Explain about jagged arrarys ?

873


Define clr?

1028


Explain cts?

935


What is trace in vb.net?

1004


What is normal jit?

1034


Explain the use of option explicit?

989


What do you mean by serialization and deserialization and it's use.

1035


What is internal keyword in .net framework?

1023


How can we remove handlers at run time?

1043


What is the use of internal keyword?

966


Write a program that would find the nth term of a geometric progression, given the value of first term and common ratio. Any inbuilt function that the language provides for calculating exponent should not be used.

3522