hi,
below is my code, please help me in how to upload file using fileupload control into sql database. I have class where i created insert function and getting info frm the .aspx.vb file
Class File
========
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Imports System.Configuration
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports UTechBaseDLL
Namespace VendorLib
Public Class clsFilePan
Inherits clsBase
Public strSQL As String = "SELECT Vendor_File_PanCard.VendorID, Vendor_File_PanCard.PAN_FileName, Vendor_File_PanCard.PAN_FileType, " & _
"Vendor_File_PanCard.PAN_FileData FROM Vendor_File_PanCard"
Public DataSQL As String = "SELECT TOP 1 VendorID, PAN_FileName, PAN_FileType, PAN_FileData FROM Vendor_File_PanCard WHERE VendorID="
#Region "Property"
Private _VendorID As String
Public Property VendorID() As String
Get
Return _VendorID
End Get
Set(ByVal value As String)
_VendorID = value
End Set
End Property
Private _PAN_FileName As String
Public Property PAN_FileName() As String
Get
Return _PAN_FileName
End Get
Set(ByVal value As String)
_PAN_FileName = value
End Set
End Property
Private _PAN_FileType As String
Public Property PAN_FileType() As String
Get
Return _PAN_FileType
End Get
Set(ByVal value As String)
_PAN_FileType = value
End Set
End Property
Private _PAN_FileData As Byte
Public Property PAN_FileData As Byte
Get
Return _PAN_FileData
End Get
Set(ByVal value As byte)
_PAN_FileData = value
End Set
End Property
#End Region
Public Sub New(Optional ByRef conString As String = "")
TableName = "Vendor_File_PanCard"
PkeyType = "s"
PrimaryKey = "VendorID"
SetConnString(conString)
End Sub
Public Shadows Sub FetchData(ByVal ID As Object)
DataSQL = DataSQL + ID.ToString()
MyBase.FetchData(ID, DataSQL)
End Sub
Public Overrides Function Insert() As Boolean
Dim retValue As Boolean = Nothing
Dim stQ As New StringBuilder()
Try
If Not CheckDuplicateId("SELECT VendorID FROM Vendor_File_PanCard WHERE VendorID = " & VendorID.ToString()) Then
stQ.Append("INSERT INTO Vendor_File_PanCard (VendorID, PAN_FileName, PAN_FileType, PAN_FileData) VALUES(")
stQ.Append("'" + VendorID.ToString() + "',")
stQ.Append("'" + PAN_FileName.ToString() + "',")
stQ.Append("'" + PAN_FileType.ToString() + "',")
stQ.Append("" + PAN_FileData.ToString() + "")
stQ.Append(")")
OpenVendorDb()
VendorDbAccess.BeginTrans(IsolationLevel.ReadCommitted)
VendorDbAccess.ExecNonQuery(stQ.ToString(), CommandType.Text)
VendorDbAccess.CommitTrans()
CloseVendorDb()
retValue = True
Else
DuplicateFound = True
retValue = False
End If
Catch ex As Exception
CloseVendorDb()
End Try
Return retValue
End Function
End Class
End Namespace
aspx.vb page
==========
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim xReturn6 As Boolean = False
Try
SetClassObject()
Dim filePath As String = fuCPANCopy.PostedFile.FileName
Dim filename As String = Path.GetFileName(filePath)
Dim ext As String = Path.GetExtension(filename)
Dim contenttype As String = String.Empty
'Set the contenttype based on File Extension
Select Case ext
Case ".xls"
contenttype = "application/vnd.ms-excel"
Exit Select
Case ".xlsx"
contenttype = "application/vnd.ms-excel"
Exit Select
Case ".jpg"
contenttype = "image/jpg"
Exit Select
Case ".jpeg"
contenttype = "image/jpeg"
Exit Select
Case ".png"
contenttype = "image/png"
Exit Select
End Select
If contenttype <> String.Empty Then
Dim fs As Stream = fuCPANCopy.PostedFile.InputStream
Dim br As New BinaryReader(fs)
Dim fbytes() As Byte = br.ReadBytes(fs.Length)
objPan.VendorID = lblVendorID.Text
objPan.PAN_FileName = filename
objPan.PAN_FileType = contenttype
objPan.PAN_FileData = fbytes
xReturn6 = objPan.Insert()
End If
Catch ex As Exception
Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "onClick", "<script>alert('Error: Updating Data to Database...!!');</script>")
Finally
If Not xReturn6 Then
Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "onClick", "<script>alert('Error: Updating Data to Database...!!');</script>")
Else
Session("sesSaveDone") = True
End If
End Try
End Sub
Please help me.
