ASP.NET(vb.net) & Upload file into Database

Author: admin | Posted: 14-06-2010 | Category: ASP.NET(vb.net) & Upload File

ASP.NET(vb.net) & Upload file into Database - The in this tutorial, you’ll learn and example scripts how to Upload file and insert rows into database using by ASP.NET scripts.

ShotDev Focus:
- ASP.NET(vb.net) & Upload file into Database

Example

AspNetFileUploadToDatabase1.aspx

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="VB" %>
<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>ShotDev.Com Tutorial</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


<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="VB" %>
<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>ShotDev.Com Tutorial</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>

Screenshot