code นี้รันบน
- 3.5 Framework
- visual studio 2008
- sql server management studio express
โดยใช้ fileupload control ถ้าผิดพลาดหรือมีอะไรที่ควรแก้ไขช่วยแนะนำด้วยค่ะ
เพราะดูมาจากหลายที่ บางโค๊ดก็ไม่สามารถใช้ได้เหมือนตัวอย่าง ก็มิกซ์แอนแมทซ์ได้อย่างที่เห็น
เป็นระบบการเพิ่มข่าวสารสาระความรู้
ส่วนของ code (ไม่ได้ก็อปมาทั้งหน้า เอาเฉพาะที่ำสำคัญ) :
'ที่ต้อง import เข้ามา
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Imports System.IO
Imports System.Web.UI.Page
Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("intranetConnectionString").ConnectionString)
'ฟังก์ชั่น replace ตัวอักษรที่ไม่ต้องการ
Function replacetext(ByVal str As String) As String
str = Trim(str).Replace("'", " ")
Return str
End Function
'เหตุการณ์เมื่อกดปุ่ม upload
Protected Sub btnaddnews_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnaddnews.Click
Dim stradd As String
Dim maxid As Integer
'ไฟล์อัพโหลด
If Not FileUpload1.PostedFile Is Nothing And FileUpload1.PostedFile.ContentLength > 0 Then
Dim fn As String = System.IO.Path.GetFileName(FileUpload1.PostedFile.FileName)
Dim fs As String = System.IO.Path.GetFileName(FileUpload1.PostedFile.ContentLength)
Dim ft As String = System.IO.Path.GetFileName(FileUpload1.PostedFile.ContentType)
Dim ft4add As String
Select Case Trim(ft)
Case "gif"
ft4add = "image/gif"
Case "pjpeg", "jpeg", "jpe", "jpg"
ft4add = "image/jpeg"
Case "png"
ft4add = "image/png"
Case Else
lblneedfile.Text = "ชนิดของรูปภาพไม่ถูกต้อง"
Exit Sub
End Select
Dim da As New SqlDataAdapter("select max(id_know) as maxx from tblKnowledge", conn)
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count <> 0 Then
maxid = CInt(dt.Rows(0).Item("maxx")) + 1
Else
maxid = 0
End If
stradd = "INSERT INTO tblKnowledge(id_know,FileName,FileSize,FileData,ContentType,topic,detail1,detail2,detail3,detail4,detail5,dateadd,addby,foot)"
stradd += " VALUES('" & maxid & "','" & fn & "','" & fs & "', @filedata ,'" & ft4add & "','" & replacetext(txttopic.Text) & "','" & replacetext(txtdetail1.Text) & "','" & replacetext(txtdetail2.Text) & "','" & replacetext(txtdetail3.Text) & "','" & replacetext(txtdetail4.Text) & "','" & replacetext(txtdetail5.Text) & "','" & Date.Now & "','" & CStr(Session("adminUser")) & "','" & replacetext(txtfrom.Text) & "')"
Dim myCommand As New SqlCommand(stradd, conn)
Dim imageBytes(System.IO.Path.GetFileName(FileUpload1.PostedFile.InputStream.Length)) As Byte
System.IO.Path.GetFileName(FileUpload1.PostedFile.InputStream.Read(imageBytes, 0, imageBytes.Length))
myCommand.Parameters.AddWithValue("@filedata", imageBytes)
conn.Open()
myCommand.ExecuteNonQuery()
conn.Close()
Response.Redirect("index.aspx")
End If
End Sub
thank a lot :
ลองดูตัวอย่างจากเว็บนี้ก็ได้ค่ะ
http://www.beansoftware.com/ASP.NET-Tutorials/Binary-Files-To-Database.aspx
ส่วนการแสดงรูปจะใช้วิธีสร้างไฟล์ ขึ้นมา 1 ไฟล์ .aspx นี่แหละ
แล้วใช้ image control ส่งค่าไปตาม ImageUrl
โค๊ดแสดงรูปแบบ image
'ไฟล์แสดงรูป สมมุติว่าชื่อ formShowPic.aspx
If Not Page.IsPostBack Then
Dim cashowpic As New SqlDataAdapter("select FileData,ContentType from tblKnowledge where id_know='" & Trim(Request.QueryString("idpic")) & "'", conn)
Dim dtshowpic As New DataTable
cashowpic.Fill(dtshowpic)
If dtshowpic.Rows.Count <> 0 Then
If Not IsDBNull(dtshowpic.Rows(0).Item("FileData")) Then
Dim dataFromDtb As Byte() = DirectCast(dtshowpic.Rows(0).Item("FileData"), Byte())
Response.Clear()
Response.ContentType = Trim(dtshowpic.Rows(0).Item("ContentType").ToString)
Response.BinaryWrite(dataFromDtb)
Response.End()
End If
End If
End If
'เมื่อเวลาเราจะแสดงรูปไว้ตรงจุดใหนก็อ้าง image สมมุติว่า ใช่้ image ชื่อว่า im1 ใน code behine ก็เรียกดังนี้
im1.ImageUrl = "formShowPic.aspx?idpic=" & Trim(dtedit.Rows(0).Item("id_know").ToString)
