Quote:Imports System.Data.OleDb.OleDbCommand Imports System.Data.OleDb.OleDbConnection Imports System.Data.OleDb.OleDbDataReader Imports System.Data.OleDb Imports System Partial Class Admin Inherits System.Web.UI.Page Dim cn As OleDbConnection Dim cmd As OleDbCommand Dim datastring As String Dim cmd1 As OleDbCommand Dim cmdstr As String Dim FileNameStr As String Dim FileStore As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim strdate As String If IsPostBack = False Then If (Session("UserName")) = "" Then Response.Redirect("index.aspx") Else Response.ClearHeaders() Response.AddHeader("Cache-Control", "No-cache,no-store,max-age=0, must-revalidate") Response.AddHeader("Pragma", "no-cache") End If End If If FileUpload1.HasFile = True Then strdate = (Date.Now).ToString("mmddyy") Session.Item("strfile") = strdate FileNameStr = TxtPdate.Text Dim Ext As String = System.IO.Path.GetExtension(FileUpload1.FileName) FileUpload1.SaveAs(Request.PhysicalApplicationPath & "Uploaded Files\" & strdate & Ext) Lbl1.Text = "File Successfully Uploaded" Else 'Lbl2.Text = "No Uploaded File" End If End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click cn = New OleDbConnection("Provider= Microsoft.Jet.Oledb.4.0;Data source =" & Server.MapPath("DEO.mdb")) cn.Open() cmd = New OleDbCommand("select select format(ParipatraDate,'dd/MM/yy')As GRDate,Subject,FileName from Paripatra", cn) Dim Ext As String = System.IO.Path.GetExtension(FileUpload1.FileName) cmdstr = "Insert into Paripatra (ParipatraDate,Subject,FileName)values(#" & TxtPdate.Text & "#,'" & TxtParipatra.Text & "','" & Session.Item("strfile") & Ext & "')" cmd.CommandText = cmdstr cmd.ExecuteNonQuery() End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Session.Clear() Response.Redirect("index.aspx") End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)