نمونه سورس کد ذخیره عکس در بانک و فراخوانی آن

[ebrahimhoze]

یه سورس کد یا کد میخوام که طریقه ذخیره کردن و لود دادن عکس توی بانک رو یاد بده

[khz-web1]

اگه میشه یاد بدید من هم مشکل دارم

[shahab_ksh]

http://www.codeproject.com/aspnet/PicManager.asp

[ebrahimhoze]

ممنون از لطف آقا شهاب
ولی من با vb برنامه نویسی میکنم
اگه لطف کنید برام با کد vb بزارید

[shahab_ksh]

Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Data
Imports System.IO
Imports System.Drawing.Imaging






' Source Code for Save the image file into the database
Public Sub OnUpload(ByVal sender As Object, ByVal e As EventArgs)
' Create a byte[] from the input file
Dim len As Integer = Upload.PostedFile.ContentLength
Dim pic As Byte() = New Byte(len - 1) {}
Upload.PostedFile.InputStream.Read(pic, 0, len)
' Insert the image and comment into the database
Dim connection As New SqlConnection("server=INDIA\INDIA;database=iSense;uid=sa;pwd=indi a")
Try
connection.Open()
Dim cmd As New SqlCommand("insert into Image " + "(Picture, Comment) values (@pic, @text)", connection)
cmd.Parameters.Add("@pic", pic)
cmd.Parameters.Add("@text", Comment.Text)
cmd.ExecuteNonQuery()
Finally
connection.Close()
End Try
End Sub





Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
' Put user code to initialize the page here
Dim stream As New MemoryStream()
Dim connection As New SqlConnection("server=INDIA\INDIA;database=iSense;uid=sa;pwd=indi a")
Try
connection.Open()
Dim command As New SqlCommand("select Picture from Image", connection)
Dim image As Byte() = CByte(command.ExecuteScalar())
stream.Write(image, 0, image.Length)
Dim bitmap As New Bitmap(stream)
Response.ContentType = "image/gif"
bitmap.Save(Response.OutputStream, ImageFormat.Gif)
Finally
connection.Close()
stream.Close()
End Try
End Sub





Dim connection As New SqlConnection("server=localhost;database=mypictures;uid=sa;pwd=")