Note that there are some explanatory texts on larger screens.

plurals
  1. POhow to use fileupload insert to database sql server this
    primarykey
    data
    text
    <pre><code>Protected Sub btnUpload_Click(ByVal sender As Object, e As EventArgs) Handles btnUpload.Click Dim filePath As String = FileUpload.PostedFile.FileName Dim filePath2 As String = FileUploadImage.PostedFile.FileName Dim fileName As String = Path.GetFileName(filePath) Dim ext As String = Path.GetExtension(fileName) Dim contenttyppe As String = String.Empty Select Case ext Case ".pdf" ContentType = "application/pdf" Exit Select Case ".jpg" ContentType = "image/jpg" Exit Select Case ".pfx" ContentType = "image/pfx" Exit Select Case ".png" ContentType = "image/png" Exit Select Case ".gif" ContentType = "image/gif" Exit Select Case ".doc" ContentType = "application/vnd.ms-word" Exit Select Case ".docx" ContentType = "application/vnd.ms-word" Exit Select Case ".xls" ContentType = "application/vnd.ms-excel" Exit Select Case ".xlsx" ContentType = "application/vnd.ms-excel" Exit Select Case ".pfx" ContentType = "image/pfx" Exit Select End Select If contenttyppe &lt;&gt; String.Empty Then Dim fs As Stream = FileUpload.PostedFile.InputStream Dim fi As Stream = FileUploadImage.PostedFile.InputStream Dim br As New BinaryReader(fs) Dim br2 As New BinaryReader(fi) Dim bytes As Byte() = br.ReadBytes(fs.Length) Dim bytes2 As Byte() = br2.ReadBytes(fi.Length) Dim strQuery As String = "insert into APPUSERDTL (UID,APPCODE,APPEXPIRED,SIGNIMAGE, PFKFILE,HEADUID,PRINCIPALFROM,PRINCIPALTO,EXCEPTIONUSER,LastUpdate)" _ &amp; "VALUES('',' ','',' @FileUpload ',' @FileUploadImage','','','','','')" Dim cmd As New SqlCommand(strQuery) cmd.Parameters.Add("@UID", Data.SqlDbType.Int).Value = bytes cmd.Parameters.Add("@APPCODE", Data.SqlDbType.VarChar, 50).Value = bytes cmd.Parameters.Add("@APPEXPIRED", Data.SqlDbType.DateTime).Value = bytes cmd.Parameters.Add("@FileUpload", Data.SqlDbType.Image).Value = FileUpload cmd.Parameters.Add("@FileUploadImage", Data.SqlDbType.VarBinary).Value = FileUploadImage cmd.Parameters.Add("@HEADUID", Data.SqlDbType.Int).Value = bytes cmd.Parameters.Add("@PRINCIPALFROM", Data.SqlDbType.Money).Value = bytes cmd.Parameters.Add("@PRINCIPALTO", Data.SqlDbType.Money).Value = bytes cmd.Parameters.Add("@EXCEPTIONUSER", Data.SqlDbType.Bit).Value = bytes cmd.Parameters.Add("@LastUpdate", Data.SqlDbType.DateTime).Value = bytes InsertUpdateData(cmd) lblMsgUpload.ForeColor = System.Drawing.Color.Green lblMesgImage.ForeColor = System.Drawing.Color.Green lblMsgUpload.Text = "File Upload Successfully" lblMesgImage.Text = "File Upload Successfuly" Else lblMesgImage.ForeColor = System.Drawing.Color.Red lblMesgImage.Text = "File format not recognised." _ &amp; " Upload Image/Word/PDF/Excel formats" End If ' delete file upload Dim fullPath = MapPath("~/upload/") + fileName If System.IO.File.Exists(fullPath) Then System.IO.File.Delete(fullPath) End If End Sub </code></pre> <p>==================================================</p> <pre><code>Public Function InsertUpdateData(ByVal cmd As SqlCommand) As Boolean ' Dim strConnString As New DBX Dim strConnString As String = System.Configuration.ConfigurationManager.ConnectionStrings("connection").ConnectionString Dim conn As New SqlConnection(strConnString) cmd.CommandType = CommandType.Text cmd.Connection = conn Try conn.Open() cmd.ExecuteNonQuery() Return True Catch ex As Exception Response.Write(ex.Message) Return False Finally conn.Close() conn.Dispose() End Try End Function End Class </code></pre>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload