Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > เกี่ยวกับ upload รูปค้า vb.net คือว่า ขอโค้ด ที่ เมือทำการ browse ภาพเเล้ว ต้องการทำให้ มันแสดงภาพนั้น เป็น gallery แบบ เหมือนเป็น web upload application

เกี่ยวกับ upload รูปค้า vb.net คือว่า ขอโค้ด ที่ เมือทำการ browse ภาพเเล้ว ต้องการทำให้ มันแสดงภาพนั้น เป็น gallery แบบ เหมือนเป็น web upload application

เริ่มหัวข้อใหม่

jantima30

โพสกระทู้ ( 0 )
บทความ ( 0 )

คือว่า ขอโค้ด ที่ เมือทำการ browse ภาพเเล้ว

ต้องการทำให้ มันแสดงภาพนั้น เป็น gallery แบบ เหมือนเป็น web upload application อะค้า

เหมือนๆพวกไฮไฟอะรายปะมานี้อะค้า

ทำเป็นgallery เเล้ว ก็สามารถ เเก้ไข ภาพนั้นได้ ลบภาพ หรือเเก้ชื่อภาพ ประมานนี้คะ

แล้วก็อยากจะทราบว่า เราจำเป็นต้อง สร้างดาต้าเบส ตารางเก็บภาพไหมค้า

รบกวนหน่อยน้าค้า

ขอบคุนค้า

Tag : - - - -

Date : 2009-04-30 16:10:12

By : jantima30

View : 4179

Reply : 2

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

AspNetFileUploadToDatabase1.aspx

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<script runat="server">
Sub btnUpload_OnClick(sender As Object, e As EventArgs)

Me.pnlUpload.Visible = False
Me.pnlSave.Visible = True

If Me.fiUpload.HasFile = False Then
Me.lblText.Text = "Please select upload file!"
ELse
Me.fiUpload.SaveAs(Server.MapPath("Myfiles/"&fiUpload.FileName))
Me.lblText.Text = "<b>" &fiUpload.FileName & "</b> Uploaded.<br>"

'*** Save to Database ***'
Dim objConn As OleDbConnection
Dim objCmd As OleDbCommand
Dim strConnString,strSQL As String

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()

strSQL = "INSERT INTO picture (PictureName) " & _
"VALUES ('" & fiUpload.FileName & "')"

objCmd = New OleDbCommand()
With objCmd
.Connection = objConn
.CommandType = CommandType.Text
.CommandText = strSQL
End With
objCmd.ExecuteNonQuery()

objCmd = Nothing
objConn.Close()
objConn = Nothing

Me.hplLink1.NavigateUrl = "AspNetFileUploadToDatabase1.aspx"
Me.hplLink2.NavigateUrl = "AspNetFileUploadToDatabase2.aspx"
End IF
End Sub
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Upload files</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Panel id="pnlUpload" runat="server">
<asp:FileUpload id="fiUpload" runat="server"></asp:FileUpload>
<input id="btnUpload" type="button" OnServerClick="btnUpload_OnClick" value="Upload" runat="server" />
</asp:Panel>
<asp:Panel id="pnlSave" Visible="false" runat="server">
<asp:Label id="lblText" runat="server"></asp:Label><br />
<asp:HyperLink id="hplLink1" runat="server">Upload again</asp:HyperLink>
,
<asp:HyperLink id="hplLink2" runat="server">View files</asp:HyperLink>
</asp:Panel>
</form>
</body>
</html>

AspNetFileUploadToDatabase2.aspx

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<script runat="server">
Dim objConn As OleDbConnection
Dim objCmd As OleDbCommand

Sub Page_Load(sender As Object, e As EventArgs)
Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()

BindData()
End Sub

Sub BindData()
Dim strSQL As String
strSQL = "SELECT * FROM picture"

Dim dtReader As OleDbDataReader
objCmd = New OleDbCommand(strSQL, objConn)
dtReader = objCmd.ExecuteReader()

'*** BindData to Repeater ***'
myRepeater.DataSource = dtReader
myRepeater.DataBind()

dtReader.Close()
dtReader = Nothing

End Sub

Sub Page_UnLoad()
objConn.Close()
objConn = Nothing
End Sub
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Upload files</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Repeater id="myRepeater" runat="server">
<HeaderTemplate>
<table border="1">
<tr>
<th>PictureID</th>
<th>PictureName</th>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td align="center"><%#Container.DataItem("PictureID") %></td>
<td><a href="Myfiles/<%#Container.DataItem("PictureName") %>" target="blank">
<%#Container.DataItem("PictureName") %></a>
</td>
</tr>
</ItemTemplate>
</asp:Repeater>
</form>
</body>
</html>

Date : 2009-04-30 17:05:43

By : webmaster

No. 2

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

https://www.thaicreate.com/asp.net/asp.net-upload-files-to-database.html

Date : 2009-04-30 17:06:03

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : เกี่ยวกับ upload รูปค้า vb.net คือว่า ขอโค้ด ที่ เมือทำการ browse ภาพเเล้ว ต้องการทำให้ มันแสดงภาพนั้น เป็น gallery แบบ เหมือนเป็น web upload application

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05

Registered : 109,037

No. 1

No. 2

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice