Database

Private Sub TestMethod()
   Dim imageCount As Integer = dsImage.Images.Rows.Count

   MsgBox("Original image count in dataset: " & CStr(imageCount))
   conImage = GetDBConnection()        
   commImage = New Data.SqlClient.SqlCommand("DELETE FROM Images WHERE ImageID = " & txtImageFile.Text, conImage)            
   If commImage.ExecuteNonQuery() <> 1 Then
      MsgBox("Delete failed", MsgBoxStyle.Information)
   End If
   dsImage.Images.Clear()            
   dsImage.Images.AcceptChanges()
   If dsImage.Images.Rows.Count <> 0 Then
      MsgBox("Datatable not empty", MsgBoxStyle.Information)
   End If
   Me.ImagesTableAdapter.ClearBeforeFill = True            
   Me.ImagesTableAdapter.Fill(Me.dsImage.Images)            
   If (imagecount - 1 <> dsImage.Images.Rows.Count) Then
      MsgBox("Delete not done, rows in datatable: " & CStr(dsImage.Images.Rows.Count), MsgBoxStyle.Information)
   End If
End Sub

If commImage.ExecuteNonQuery() <> 1 Then
            MsgBox("Delete failed", MsgBoxStyle.Information)
        End If

commImage = New Data.SqlClient.SqlCommand("DELETE FROM Images WHERE ImageID = (SELECT MAX(ImageID) FROM Images)", conImage)

commImage = New Data.SqlClient.SqlCommand("DELETE FROM Images)", conImage)
...
If (dsImage.Images.Rows.Count > 0) Then
      MsgBox("Delete not done, rows in datatable: " & CStr(dsImage.Images.Rows.Count), MsgBoxStyle.Information)
End If

MsgBox("Original image count in dataset: " & CStr(imageCount))
...
If (dsImage.Images.Rows.Count > 0) Then   
   MsgBox("Delete not done, rows in datatable: " & CStr(dsImage.Images.Rows.Count), MsgBoxStyle.Information)
End If

Dim imageCount As Integer = dsImage.Images.Rows.Count
        MsgBox("Original image count in dataset: " & CStr(imageCount))
        conImage = GetDBConnection()
        commImage = New Data.SqlClient.SqlCommand("DELETE * FROM Images)", conImage)
        If (dsImage.Images.Rows.Count > 0) Then
            MsgBox("Delete not done, rows in datatable: " & CStr(dsImage.Images.Rows.Count), _
             MsgBoxStyle.Information)

        End If

If commImage.ExecuteNonQuery() <> 1 Then   (this is the line)
            MsgBox("Delete failed", MsgBoxStyle.Information)
        End If

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 = picImage.Height 'mImageFile.Height
        Dim imgWidth As Integer = picImage.Width '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
     btnSave.Enabled = False
     'get sql connection
     Dim ImageAdd As Integer
      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()
         ImageAdd = commImage.ExecuteNonQuery()
         'Me.daImage.Update(Me.dsImage, "Images")

         dsImage.AcceptChanges()
         Me.ImagesTableAdapter.ClearBeforeFill = True
         Me.ImagesTableAdapter.Fill(Me.dsImage.Images)
         MessageBox.Show(ImageAdd.ToString & "  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