چگونگی ذخیره عکس در یک فولدر و ذخیره آدرس آن در دیتابیس

[SAMARE]

سلام دوستان
من میخواستم بدونم چجوری میتونم عکس هایی که در سایتم آپلود میشه در یک فولدر و آدرس آنها رو در دیتابیس ذخیره کنم؟؟؟ (در زبان vb.net)
خیلی نیاز فوری دارم ممنون میشم زودتر کمکم کنید

[SAMARE]

چرا هیشکی جواب منو نمیده؟؟؟

[sahele_sheni]

http://barnamenevis.org/forum/showthread.php?t=172552&highlight=آپلود+عکس

search search search.................

[jeivid]

دوست من اگر چیزی متوجه نشدی تا برات آموزش آپلود فایل را بزارم البته #C

[melika#malek]

سلام :لبخند:
jeivid عزیز لطف می کنید این آموزشی که گفتید رو بگذارید؟
من به کدش در ASP.Net احتیاج دارم.
خیلی مچکرم...:لبخندساده:

[SAMARE]

سلام بچه ها
من کدش رو پیدا کردم و جواب هم داده



Private Sub StartUpLoad()

'get the file name of the posted image
Dim imgName As String = FileUpload1.FileName.ToString()
'sets the image path
Dim imgPath As String = "ImageStorage/" & imgName
'then save it to the Folder
FileUpload1.SaveAs(Server.MapPath(imgPath))
'get the size in bytes that
Dim imgSize As Integer = FileUpload1.PostedFile.ContentLength
'validates the posted file before saving
If FileUpload1.PostedFile IsNot Nothing AndAlso FileUpload1.PostedFile.FileName <> "" Then
If FileUpload1.PostedFile.ContentLength > 30000 Then
' 5120 KB means 5MB
Page.ClientScript.RegisterClientScriptBlock(GetTyp e(Page), "Alert", "alert('File is too big')", True)
Else
'save the file
'Call the method to execute Insertion of data to the Database
ExecuteInsert(imgName, imgSize, imgPath)
Response.Write("Save Successfully!")
End If
End If
End Sub
Private Sub ExecuteInsert(ByVal name As String, ByVal size As Integer, ByVal path As String)

conn.ConnectionString = "Data Source=(local);Initial Catalog=school;Integrated Security=True"
Dim sql As String = "INSERT INTO Image (ImageName, ImageSize, ImagePath) VALUES (@ImgName,@ImgSize,@ImgPath)"
Try
Dim cmd As New SqlCommand(sql, conn)
Dim param As SqlParameter() = New SqlParameter(2) {}
param(0) = New SqlParameter("@ImgName", Data.SqlDbType.NVarChar, 50)
param(1) = New SqlParameter("@ImgSize", Data.SqlDbType.NVarChar, 9999)
param(2) = New SqlParameter("@ImgPath", Data.SqlDbType.NVarChar, 50)
param(0).Value = name
param(1).Value = size
param(2).Value = path
For i As Integer = 0 To param.Length - 1
cmd.Parameters.Add(param(i))
Next
' cmd.CommandType = CommandType.Text
conn.Open()
cmd.ExecuteNonQuery()
Catch ex As System.Data.SqlClient.SqlException
Dim msg As String = "Insert Error:"
msg += ex.Message
Throw New Exception(msg)
Finally
conn.Close()
End Try
End Sub


Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
StartUpLoad()
End Sub

[SAMARE]

منتها اگه کسی کد خواندن و نمایش عکس از دیتابیس رو داره حتما اینجا بزاره
ممنون میشم