Archief - SQL: Stored Procedure -- Image saven

CREATE PROCEDURE [insert_News_image] ( 
@NieuwsID [int], 
@img_name [varchar](50),
@img_data [image], 
@img_contenttype [varchar](50),
@img_name2 [varchar](50), 
@img_data2 [image], 
@img_contenttype2 [varchar](50) )
AS 
begin transaction 
  delete from News_images where NieuwsID = @NieuwsID 
  INSERT INTO [News_images] ( 
  [NieuwsID], 
  [Large_imgname],
  [Large_imgdata], 
  [Large_imgcontenttype],
  [Small_imgname], 
  [Small_imgdata], 
  [Small_imgcontenttype] )
VALUES ( 
  @NieuwsID, 
  @img_name, 
  @img_data, 
  @img_contenttype,
  @img_name2, 
  @img_data2, 
  @img_contenttype2)
commit transaction
GO

Private Sub DisplayImages(ByVal NieuwsID As String)
        Dim SqlConnection1 As New System.Data.SqlClient.SqlConnection
        Dim strSQL As String
        Dim bmpFile As Bitmap
        Dim stmFile As New MemoryStream
        Dim objWriter As New BinaryWriter(stmFile)
        Dim myReader As SqlClient.SqlDataReader
        Dim sqlCount As String
        Dim Teller As Int32

        SqlConnection1.ConnectionString = ConnectionString

        strSQL = "Select Small_imgdata,Small_imgcontenttype from News_Images where NieuwsID=" & NieuwsID
        sqlCount = "SELECT Count(Small_imgcontenttype) From News_Images WHERE NieuwsID=" & NieuwsID
        Dim myCommand As New SqlClient.SqlCommand(strSQL, SqlConnection1)
        SqlConnection1.Open()
        myReader = myCommand.ExecuteReader()
        While myReader.Read
            objWriter.Write( _
            myReader("Small_imgdata"))
            bmpFile = New Bitmap(stmFile)
            Response.ContentType = myReader("Small_imgcontenttype")
            Dim thisformat = bmpFile.RawFormat
            bmpFile.Save(Response.OutputStream, thisformat)
        End While
        'Next
        myReader.Close()
        SqlConnection1.Close()
    End Sub