hello i need some help trouble shooting an image upload problem. it is from a tutorial from here:
http://www.beansoftware.com/ASP.NET-Tutorials/Images-Database.aspx
i altered slightly: to this--
default.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
<style type="text/css">
.style1
{
width: 260px;
}
.style2
{
width: 260px;
height: 29px;
}
.style3
{
height: 29px;
}
.style4
{
width: 260px;
height: 21px;
}
.style5
{
height: 21px;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div>
<table style="width:100%;">
<tr>
<td class="style2">
<asp:Label ID="Label4" runat="server" Text="images"></asp:Label>
</td>
<td class="style3">
<asp:FileUpload ID="fileUpload" runat="server" />
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server"
ErrorMessage="No Image Selected" ControlToValidate="fileUpload"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label3" runat="server" Text="title"></asp:Label>
</td>
<td>
<asp:TextBox ID="txtTitle" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server"
ErrorMessage="Title Is Required" ControlToValidate="txtTitle"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style4">
</td>
<td class="style5">
<asp:Label ID="lblStatus" runat="server" Text="lblStatus"></asp:Label>
</td>
</tr>
<tr>
<td class="style1">
</td>
<td>
<asp:Button ID="btnUpload" runat="server" Text="Upload" />
</td>
</tr>
<tr>
<td class="style1">
</td>
<td>
<asp:HyperLink ID="lnkView" runat="server">ViewImages</asp:HyperLink>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
default.sapx.vb
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnUpload_Click() Handles btnUpload.Click
Dim intLength As Integer
Dim arrContent As Byte()
If fileUpload.PostedFile Is Nothing Then
lblStatus.Text = "No file specified."
Exit Sub
Else
Dim fileName As String = fileUpload.PostedFile.FileName
Dim ext As String = fileName.Substring(fileName.LastIndexOf("."))
ext = ext.ToLower
Dim imgType = fileUpload.PostedFile.ContentType
If ext = ".jpg" Then
ElseIf ext = ".bmp" Then
ElseIf ext = ".gif" Then
ElseIf ext = "jpg" Then
ElseIf ext = "bmp" Then
ElseIf ext = "gif" Then
Else
lblStatus.Text = "Only gif, bmp, or jpg format files supported."
Exit Sub
End If
intLength = Convert.ToInt32(fileUpload.PostedFile.InputStream.Length)
ReDim arrContent(intLength)
fileUpload.PostedFile.InputStream.Read(arrContent, 0, intLength)
If Doc2SQLServer(txtTitle.Text.Trim, arrContent, intLength, imgType) = True Then
lblStatus.Text = "Image uploaded successfully."
Else
lblStatus.Text = "An error occured while uploading Image... Please try again."
End If
End If
End Sub
Protected Function Doc2SQLServer(ByVal title As String, ByVal Content As Byte(), ByVal Length As Integer, ByVal strType As String) As Boolean
Try
Dim cnn As Data.SqlClient.SqlConnection
Dim cmd As Data.SqlClient.SqlCommand
Dim param As Data.SqlClient.SqlParameter
Dim strSQL As String
strSQL = "Insert Into tblImage(imgData,imgTitle,imgType,imgLength) Values(@content,@title,@type,@length)"
Dim connString As String = "Data Source=ZONE777\SQLS;Initial Catalog=imgDB;Integrated Security=True"
cnn = New Data.SqlClient.SqlConnection(connString)
cmd = New Data.SqlClient.SqlCommand(strSQL, cnn)
param = New Data.SqlClient.SqlParameter("@content", Data.SqlDbType.Image)
param.Value = Content
cmd.Parameters.Add(param)
param = New Data.SqlClient.SqlParameter("@title", Data.SqlDbType.VarChar)
param.Value = title
cmd.Parameters.Add(param)
param = New Data.SqlClient.SqlParameter("@type", Data.SqlDbType.VarChar)
param.Value = strType
cmd.Parameters.Add(param)
param = New Data.SqlClient.SqlParameter("@length", Data.SqlDbType.BigInt)
param.Value = Length
cmd.Parameters.Add(param)
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class
lastly web.config
<connectionStrings>
<add name="connString" connectionString="Data Source=ZONE777\SQLS;Initial Catalog=imgDB;Integrated Security=True;"/>
</connectionStrings>
the page is displaying but i am getting-----An error occured while uploading Image... Please try again.
thanks craig
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
0
65 pts. | Aug 5 2009 10:35AM GMT
