A Wrapper Class for DML Statements Using Visual Basic.NET - Adding code to add binary data for INSERT command
(Page 4 of 7 )
The following is the code necessary for adding a column (of type binary) to the INSERT command.
PublicSub addFileColumn(ByVal ColName As String, ByRef UpFile As System.Web.HttpPostedFile)
'make sure to include this attribute in your form tag b4 using this method ...enctype="multipart/form-data"
'change the value according to datatype
Dim FileStream As System.IO.Stream
Select Case m_CommandType
Case CommandType.Insert 'INSERT command
Select Case m_dbObject.ConnectionType
Case DBConnType.MSSQL 'copy the same below in UPDATE case also
Dim fileLength As Integer = UpFile.ContentLength
If (fileLength = 0) Then
Throw New Exception("No information is available in selected File..try giving another existing filename")
End If
Dim FileByteArray(fileLength) As Byte
FileStream = UpFile.InputStream
FileStream.Read(FileByteArray, 0, fileLength)
'append this information to already existing arrays
If m_FileColNames Is Nothing Then
ReDim m_FileColNames(0)
ReDim m_FileByteArrays(0)
Else
ReDim Preserve m_FileColNames(UBound(m_FileColNames) + 1)
ReDim Preserve m_FileByteArrays(UBound(m_FileByteArrays) + 1)
End If
m_FileColNames(m_FileColNames.Length - 1) = ColName
m_FileByteArrays(m_FileByteArrays.Length - 1) = FileByteArray
Case Else
Throw New Exception("currently this library supports only SQL.NET Provider to upload files")
End Select
m_ColNameList = IIf(m_ColNameList = "", ColName, m_ColNameList & "," & ColName)
m_ColValList = IIf(m_ColValList = "", "@" & Trim(ColName), m_ColValList & ",@" & Trim(ColName))
'this is for oledb type
'm_ColValList = IIf(m_ColValList = "", "?", m_ColValList & ",?")
Next: Adding code to add binary data for UPDATE command >>
More Visual Basic.NET Articles
More By Jagadish Chaterjee
