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

Is vb.net a programming language?

1029


How can I extract the formated word(bold,italic,underline,font,color etc) from the msword file.?

1077


Explain redim keyword?

1077


What is the difference between system.applicationexception class and system.systemexception?

1179


What is the advantages of VB.NET?

1083


Explain the advantage of option strict on?

977


Name the tool which can convert visual basic old version to .net compatibility version?

1105


What are the differences between c# and visual basic.net?

1100


What is static member?

1047


What is the importance of a Button control?

1351


Write a VB.Net console program to check whether a number is perfect or not.

7883


Explain the difference between .dll extension and .exe extension files?

1105


What are the difference between dispose(), close(), exit(), end()? When do we use them?

1074


What is writeline in vb.net?

998


What are the parts of the visual basic control?

999