Hi all,
I have used this code to upload file, but I cannot get the result in Database.
Protected Sub btnsave_Click(B yVal sender As Object, ByVal e As EventArgs) Handles btnsave.Click
If FileUpload1.Pos tedFile IsNot Nothing Then
Dim FileName As String = Path.GetFileNam e(FileUpload1.P ostedFile.FileN ame)
'Save files to disk
FileUpload1.Sav eAs(Server.MapP ath("~/images/" & FileName))
Dim CN As New SqlConnection(" Server=pc5268;u id=sa;pwd=klo;d atabase=MSK2DB" )
Dim qry As String = "insert into tblFiles (QID, Question, QDetail, QFilePath, QFileName) values(@QID, @Question, @QDetail, @QFilePath, @QFileName)"
Dim SqlCom As New SqlCommand(qry, CN)
SqlCom.Paramete rs.Add(New SqlParameter("@ QID", DirectCast(Text Box1.Text, Object)))
SqlCom.Paramete rs.Add(New SqlParameter("@ Question", DirectCast(Text Box2.Text, Object)))
SqlCom.Paramete rs.Add(New SqlParameter("@ QDetail", DirectCast(Text Box3.Text, Object)))
SqlCom.Paramete rs.AddWithValue ("@QFilePath ", "~/images/" & FileName)
SqlCom.Paramete rs.AddWithValue ("@QFileName ", FileName)
SqlCom.CommandT ype = CommandType.Tex t
SqlCom.Connecti on = CN
Try
CN.Open()
SqlCom.ExecuteN onQuery()
Catch ex As Exception
Response.Write( ex.Message)
Finally
CN.Close()
CN.Dispose()
End Try
End If
End Sub
Source code:
<asp:UpdatePane l>
<ContentTemplat e>
<asp:TextBox ID="TextBox1" runat="server">
<asp:TextBox ID="TextBox2" runat="server">
<asp:TextBox ID="TextBox3" runat="server">
<asp:FileUplo ad ID="FileUpload1 " runat="server" />
<asp:Button ID="btnsave" runat="server" Text="Save All" Width="95px" />
</ContentTemplate >
</asp:UpdatePanel >
Can any one help me? .
I have used this code to upload file, but I cannot get the result in Database.
Protected Sub btnsave_Click(B yVal sender As Object, ByVal e As EventArgs) Handles btnsave.Click
If FileUpload1.Pos tedFile IsNot Nothing Then
Dim FileName As String = Path.GetFileNam e(FileUpload1.P ostedFile.FileN ame)
'Save files to disk
FileUpload1.Sav eAs(Server.MapP ath("~/images/" & FileName))
Dim CN As New SqlConnection(" Server=pc5268;u id=sa;pwd=klo;d atabase=MSK2DB" )
Dim qry As String = "insert into tblFiles (QID, Question, QDetail, QFilePath, QFileName) values(@QID, @Question, @QDetail, @QFilePath, @QFileName)"
Dim SqlCom As New SqlCommand(qry, CN)
SqlCom.Paramete rs.Add(New SqlParameter("@ QID", DirectCast(Text Box1.Text, Object)))
SqlCom.Paramete rs.Add(New SqlParameter("@ Question", DirectCast(Text Box2.Text, Object)))
SqlCom.Paramete rs.Add(New SqlParameter("@ QDetail", DirectCast(Text Box3.Text, Object)))
SqlCom.Paramete rs.AddWithValue ("@QFilePath ", "~/images/" & FileName)
SqlCom.Paramete rs.AddWithValue ("@QFileName ", FileName)
SqlCom.CommandT ype = CommandType.Tex t
SqlCom.Connecti on = CN
Try
CN.Open()
SqlCom.ExecuteN onQuery()
Catch ex As Exception
Response.Write( ex.Message)
Finally
CN.Close()
CN.Dispose()
End Try
End If
End Sub
Source code:
<asp:UpdatePane l>
<ContentTemplat e>
<asp:TextBox ID="TextBox1" runat="server">
<asp:TextBox ID="TextBox2" runat="server">
<asp:TextBox ID="TextBox3" runat="server">
<asp:FileUplo ad ID="FileUpload1 " runat="server" />
<asp:Button ID="btnsave" runat="server" Text="Save All" Width="95px" />
</ContentTemplate >
</asp:UpdatePanel >
Can any one help me? .