Database

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim RecordAffected As Integer

        SelectedImage = ("DELETE FROM Images WHERE ImageID = " & txtImageFile.Text)
        conImage = GetDBConnection()
        Try
            commImage = New Data.SqlClient.SqlCommand(SelectedImage, conImage)
            RecordAffected = commImage.ExecuteNonQuery()
            MsgBox(CStr(RecordAffected) & "  Image successfuly deleted from database", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        commImage.Dispose()
        commImage = Nothing
        conImage.Close()
        conImage.Dispose()
        Call LoadImages()
    End Sub

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

RecordAffected = commImage.ExecuteNonQuery()
         MsgBox(CStr(RecordAffected) & "Image successfuly deleted from database", MsgBoxStyle.Information)

Private Function GetDBConnection()        
   Static SqlConn = Nothing

   If SqlConn Is Nothing Then
      ' 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.        
      SqlConn = New Data.SqlClient.SqlConnection(connect_string)        
      SqlConn.Open()        
   End If
   ' Return the connection.        
   Return SqlConn    
End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Enabled = False
        Button3.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
        Button1.Enabled = True
        TextBox1.Enabled = True : TextBox2.Enabled = True
        TextBox1.BackColor = Color.Aquamarine : TextBox2.BackColor = Color.Aquamarine
        Try
            Me.StudentBindingSource.EndEdit()
            Me.StudentBindingSource.AddNew()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End 

Me.StudentBindingSource.EndEdit()
      Me.StudentBindingSource.AddNew()

btnSave.Enabled = False
     'get sql connection
     Dim ImageAdd As Integer

     Try
         conImage = GetDBConnection()
         dsImage.BeginInit()

         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()
         MessageBox.Show(ImageAdd.ToString & "  Image successfuly saved in database", "Image Load")
         dsImage.EndInit()

     Catch ex As Exception
         MsgBox(ex.Message)

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

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