Visual Basic

Private Function GetDBConnection()
       ' Compose the database file name.
       ' Modify this if the database is somewhere else.
       Dim DBname As String = Application.StartupPath()
       DBname = DBname.Substring(0, DBname.LastIndexOf("\bin"))
       DBname = DBname & "\Images.mdf"
       ' Compose the connect string.
       Dim connect_string As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & _
       DBname & ";Integrated Security=True;User Instance=True"
       ' Open a database connection.
       Dim SqlConn As New Data.SqlClient.SqlConnection(connect_string)
       SqlConn.Open()
       ' Return the connection.
       Return SqlConn
   End Function

   Private Sub LoadImages()
       dsImage.Clear()
       Try
           conImage = GetDBConnection()
           daImage.Fill(dsImage, "Images")
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       conImage.Close()
       conImage.Dispose()
       Call PoChng()
   End Sub

   Private Sub PoChng()
       If Me.ImagesBindingSource.Count = 0 Then
           Label1.Text = "Empty Database"
       Else
           Label1.Text = (Me.ImagesBindingSource.Position + 1).ToString & "  Of  " & _
           (Me.ImagesBindingSource.Count).ToString
       End If
   End Sub

 Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
       picImage.Image = Nothing
       txtImageFile.Text = ""
       txtTitle.Text = ""
       OpenFileDialog1.ShowDialog()
       Dim sFilePath As String
       sFilePath = OpenFileDialog1.FileName
       If sFilePath = "" Then Exit Sub

       If System.IO.File.Exists(sFilePath) = False Then
           Exit Sub
       Else
           txtImageFile.Text = sFilePath
           mImageFilePath = sFilePath
       End If
   End Sub
   Private Sub GetImage()
       Dim fs As FileStream = New FileStream(mImageFilePath.ToString(), FileMode.Open)
       Dim img As Byte() = New Byte(fs.Length) {}
       fs.Read(img, 0, fs.Length)
       fs.Close()
       mImageFile = Image.FromFile(mImageFilePath.ToString())
       Dim imgHeight As Integer = mImageFile.Height
       Dim imgWidth As Integer = mImageFile.Width
       Dim imgLength As Integer = mImageFile.PropertyItems.Length
       Dim imgType As String = Path.GetExtension(mImageFilePath)
       mImageFile = Nothing
       ' image content
       Dim pic As SqlParameter = New SqlParameter("@pic", SqlDbType.Image)
       pic.Value = img
       commImage.Parameters.Add(pic)

       ' title
       Dim title As SqlParameter = New SqlParameter("@title", System.Data.SqlDbType.VarChar, 50)
       title.Value = txtTitle.Text.ToString()
       commImage.Parameters.Add(title)

       ' type
       Dim itype As SqlParameter = New SqlParameter("@itype", System.Data.SqlDbType.Char, 4)
       itype.Value = imgType.ToString()
       commImage.Parameters.Add(itype)

       ' height
       Dim iheight As SqlParameter = New SqlParameter("@iheight", System.Data.SqlDbType.Int)
       iheight.Value = imgHeight
       commImage.Parameters.Add(iheight)

       ' width
       Dim iwidth As SqlParameter = New SqlParameter("@iwidth", System.Data.SqlDbType.Int)
       iwidth.Value = imgWidth
       commImage.Parameters.Add(iwidth)
   End Sub
   Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

       'get sql connection
       Try
           conImage = GetDBConnection()
           Dim sSQL As String = "INSERT INTO Images (Pic,Title, IType, Height, Width) VALUES(" & _
                          "@pic, @title, @itype, @iheight, @iwidth)"
           commImage = New Data.SqlClient.SqlCommand(sSQL, conImage)
           Call GetImage()
           commImage.ExecuteNonQuery()
           MessageBox.Show("Image successfuly saved in database", "Image Load")
       Catch ex As Exception
           MsgBox(ex.Message)

       End Try
       commImage.Dispose()
       commImage = Nothing
       conImage.Close()
       conImage.Dispose()
       Call LoadImages()
   End Sub

Unable to generate a temporary class (result=1).
error CS2001: Source file 'C:\WINDOWS\TEMP\0mjvfr_h.0.cs' could not be found
error CS2008: No inputs specified

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. 

Exception Details: System.InvalidOperationException: Unable to generate a temporary class (result=1).
error CS2001: Source file 'C:\WINDOWS\TEMP\0mjvfr_h.0.cs' could not be found
error CS2008: No inputs specified