Image download upload display problems on aspx (code pasted in)

[Adam]

I am having difficulty retrieving images from a SQL database.

Here is the code I use to UPLOAD the image to the database:

<form id="Form1" method="post" enctype="multip art/form-data"
runat="server">
<INPUT id="UploadedIma geFile" runat=server type="file" size="86">
</form>
Codebehind
----------
Private Sub InsertIntoDB()

'then get the stream
Dim MyStream As System.IO.Strea m

MyStream = UploadedImageFi le.PostedFile.I nputStream
'MyStream = upImage.InputSt ream
'Dim MyData(MyStream .Length) As Byte
Dim MyData(Uploaded ImageFile.Poste dFile.InputStre am.Length) As
Byte

Dim n = MyStream.Read(M yData, 0,
UploadedImageFi le.PostedFile.I nputStream.Leng th)

Dim CultivarImagesR ow As dsCultivarVisio n.CultivarImage sRow =
ds.CultivarImag es.NewCultivarI magesRow
With CultivarImagesR ow
.CultivarId = lbCultivarName. SelectedValue
.ImageClassific ationId =
ddImageClassifi cation.Selected Value
.ImageUseId = ddImageUse.Sele ctedValue
.ImageFormatId = ddImageFormat.S electedValue
.ImageDescripti on = txtImageDescrip tion.Text
.Credit = txtImageCredit. Text
.ImageBinary = MyData
Dim conn As New
SqlConnection(A pplication("Con nectionString") )
conn.Open()

Dim connInsert As New SqlCommand _
("Insert INTO XCultivarImages (.CultivarID,
..ImageClassifi cationID, .ImageUseId, .ImageFormatID,

..ImageDescript ion, .Credit, .ImageBinary) values(@Cultiva rID,
@ImageClassific ationID, @ImageUseId,

@ImageFormatID, @ImageDescripti on, @Credit, @ImageBinary)", conn)

connInsert.Para meters.Add(New SqlParameter("@ CultivarID",
SqlDbType.Int, 4, "CultivarID "))
connInsert.Para meters.Add(New
SqlParameter("@ ImageClassifica tionID", SqlDbType.Int, 4,

"ImageClassific ationID"))
connInsert.Para meters.Add(New SqlParameter("@ ImageUseID",
SqlDbType.Int, 4, "ImageUseID "))
connInsert.Para meters.Add(New
SqlParameter("@ ImageFormatID", SqlDbType.Int, 4, "ImageFormatID" ))
connInsert.Para meters.Add(New
SqlParameter("@ ImageDescriptio n", SqlDbType.Text, 16,

"ImageDescripti on"))
connInsert.Para meters.Add(New SqlParameter("@ Credit",
SqlDbType.VarCh ar, 65, "Credit"))
connInsert.Para meters.Add(New SqlParameter("@ ImageBinary",
SqlDbType.Image , 16, "ImageBinar y"))

connInsert.Para meters("@Cultiv arId").Value = .CultivarId
connInsert.Para meters("@ImageC lassificationID ").Value =
..ImageClassifi cationId
connInsert.Para meters("@ImageU seID").Value = .ImageUseId
connInsert.Para meters("@ImageF ormatID").Value =
..ImageFormatId
connInsert.Para meters("@ImageD escription").Va lue =
..ImageDescript ion
connInsert.Para meters("@Credit ").Value = .Credit
connInsert.Para meters("@ImageB inary").Value = .ImageBinary
connInsert.Exec uteNonQuery()

conn.Close()
End With



End Sub
On my aspx that should display the image I have the following tag:
<asp:Image ID="imgCultivar "
ImageUrl="displ ayimage.aspx?cu ltivarid=16775" width=200 height=200

Runat="server"> </asp:Image>

On displayimage.as px.vb I have the following code:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim intcultivarid = Request.QuerySt ring("cultivari d")

Dim sqltext = "SELECT imagebinary from xcultivarimages where
cultivarid = " & intcultivarid
Dim conn As New SqlConnection(A pplication("Con nectionString") )
Dim command As New SqlCommand(sqlt ext, conn)

conn.Open()
Dim dr As SqlDataReader = command.Execute Reader

Do While (dr.Read())
If Not dr(0) Is System.DBNull.V alue Then

Response.Conten tType = "Image/jpeg"
Response.Binary Write(dr(0))
Response.Flush( )
End If
Loop
conn.Close()

End Sub
WHen I upload jpgs, and try and display them, I get the dreaded
graphic with the red "x" through it signifying no image available.
Please please please help me as I am at wit's end after reading other
people's posts and web pages.
Adam

[Hermit Dave]

Hi,
Couldnt think of much except you havent specified an explicit cast on
datareader dr(0)

I am doing something similar and this might help you

Code to write it to a aspx page
public class DisplayImage : System.Web.UI.P age
{
private void Page_Load(objec t sender, System.EventArg s e)
{
if(Request["ImageID"] != null)
{
int ImgID = int.Parse(Reque st["ImageID"]);
CodePlayDB myCode = new CodePlayDB();
string ContentType = "";
byte[] Image = myCode.GetImage FromDB(ImgID, ref ContentType);
Response.Conten tType = ContentType;
Response.Binary Write(Image);
}
}
}

Code to retrieve it from db
public byte[] GetImageFromDB( int myImageID, ref string myContentType)
{
SqlConnection myCon = new
SqlConnection(C onfigurationSet tings.AppSettin gs["ConnectionStri ng"]);
try
{
SqlCommand myCommand = new SqlCommand("sp_ Images_Select", myCon);
myCommand.Comma ndType = CommandType.Sto redProcedure;

SqlParameter parameterImageI D = new SqlParameter("@ ImageID",
SqlDbType.Int, 4);
parameterImageI D.Value = myImageID;
myCommand.Param eters.Add(param eterImageID);

myCon.Open();
SqlDataReader myReader =
myCommand.Execu teReader(Comman dBehavior.Close Connection);
byte[] Img = null;
if(myReader.Rea d())
{
myContentType = myReader["ImageContentTy pe"].ToString();
Img = (byte[]) myReader["ImageData"];
}
else
myContentType = "";

myReader.Close( );
myCommand.Dispo se();
return Img;
}
finally
{
myCon.Close();
}
}

"Adam" <ak************ **@yahoo.com> wrote in message
news:23******** *************** ***@posting.goo gle.com...

I am having difficulty retrieving images from a SQL database.

Here is the code I use to UPLOAD the image to the database:

<form id="Form1" method="post" enctype="multip art/form-data"
runat="server">
<INPUT id="UploadedIma geFile" runat=server type="file" size="86">
</form>
Codebehind
----------
Private Sub InsertIntoDB()

'then get the stream
Dim MyStream As System.IO.Strea m

MyStream = UploadedImageFi le.PostedFile.I nputStream
'MyStream = upImage.InputSt ream
'Dim MyData(MyStream .Length) As Byte
Dim MyData(Uploaded ImageFile.Poste dFile.InputStre am.Length) As
Byte

Dim n = MyStream.Read(M yData, 0,
UploadedImageFi le.PostedFile.I nputStream.Leng th)

Dim CultivarImagesR ow As dsCultivarVisio n.CultivarImage sRow =
ds.CultivarImag es.NewCultivarI magesRow
With CultivarImagesR ow
.CultivarId = lbCultivarName. SelectedValue
.ImageClassific ationId =
ddImageClassifi cation.Selected Value
.ImageUseId = ddImageUse.Sele ctedValue
.ImageFormatId = ddImageFormat.S electedValue
.ImageDescripti on = txtImageDescrip tion.Text
.Credit = txtImageCredit. Text
.ImageBinary = MyData
Dim conn As New
SqlConnection(A pplication("Con nectionString") )
conn.Open()

Dim connInsert As New SqlCommand _
("Insert INTO XCultivarImages (.CultivarID,
.ImageClassific ationID, .ImageUseId, .ImageFormatID,

.ImageDescripti on, .Credit, .ImageBinary) values(@Cultiva rID,
@ImageClassific ationID, @ImageUseId,

@ImageFormatID, @ImageDescripti on, @Credit, @ImageBinary)", conn)

connInsert.Para meters.Add(New SqlParameter("@ CultivarID",
SqlDbType.Int, 4, "CultivarID "))
connInsert.Para meters.Add(New
SqlParameter("@ ImageClassifica tionID", SqlDbType.Int, 4,

"ImageClassific ationID"))
connInsert.Para meters.Add(New SqlParameter("@ ImageUseID",
SqlDbType.Int, 4, "ImageUseID "))
connInsert.Para meters.Add(New
SqlParameter("@ ImageFormatID", SqlDbType.Int, 4, "ImageFormatID" ))
connInsert.Para meters.Add(New
SqlParameter("@ ImageDescriptio n", SqlDbType.Text, 16,

"ImageDescripti on"))
connInsert.Para meters.Add(New SqlParameter("@ Credit",
SqlDbType.VarCh ar, 65, "Credit"))
connInsert.Para meters.Add(New SqlParameter("@ ImageBinary",
SqlDbType.Image , 16, "ImageBinar y"))

connInsert.Para meters("@Cultiv arId").Value = .CultivarId
connInsert.Para meters("@ImageC lassificationID ").Value =
.ImageClassific ationId
connInsert.Para meters("@ImageU seID").Value = .ImageUseId
connInsert.Para meters("@ImageF ormatID").Value =
.ImageFormatId
connInsert.Para meters("@ImageD escription").Va lue =
.ImageDescripti on
connInsert.Para meters("@Credit ").Value = .Credit
connInsert.Para meters("@ImageB inary").Value = .ImageBinary
connInsert.Exec uteNonQuery()

conn.Close()
End With



End Sub
On my aspx that should display the image I have the following tag:
<asp:Image ID="imgCultivar "
ImageUrl="displ ayimage.aspx?cu ltivarid=16775" width=200 height=200

Runat="server"> </asp:Image>

On displayimage.as px.vb I have the following code:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim intcultivarid = Request.QuerySt ring("cultivari d")

Dim sqltext = "SELECT imagebinary from xcultivarimages where
cultivarid = " & intcultivarid
Dim conn As New SqlConnection(A pplication("Con nectionString") )
Dim command As New SqlCommand(sqlt ext, conn)

conn.Open()
Dim dr As SqlDataReader = command.Execute Reader

Do While (dr.Read())
If Not dr(0) Is System.DBNull.V alue Then

Response.Conten tType = "Image/jpeg"
Response.Binary Write(dr(0))
Response.Flush( )
End If
Loop
conn.Close()

End Sub
WHen I upload jpgs, and try and display them, I get the dreaded
graphic with the red "x" through it signifying no image available.
Please please please help me as I am at wit's end after reading other
people's posts and web pages.
Adam