Hi, im using vb2010 with MS Access 2013. I have this form that displays ID values from database into a listbox And when an ID is clicked the details that correspond with that ID are displyed into textboxes.
The delete button does delete the data from database but im having trouble with the form as when the data is deleted the "deleted" data is still displayed on the form. How do i refresh the forms so it does not display the deleted data after deletion?
Private Sub btn_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_delete.Click Dim delete_confirmation = MsgBox("Are you sure you would like to delete the product '" & txt_pname.Text & "' with ID '" & txt_pid.Text & "'?", MsgBoxStyle.YesNo) If delete_confirmation = MsgBoxResult.Yes Then Dim deleteproduct As String = "DELETE FROM TBL_PRODUCTS_A154287 WHERE FLD_PRODUCT_ID = '" & txt_pid.Text & "'" Dim mywriter As New OleDb.OleDbCommand(deleteproduct, myconnection2) mywriter.Connection.Open() mywriter.ExecuteNonQuery() mywriter.Connection.Close() Beep() Dim msgbx As String = MsgBox("The product '" & txt_pname.Text & "' has been successfully deleted.") End If mywriter.Connection.Close() End If End Sub
Cat Button (Display Cat details)
Private Sub btn_cat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cat.Click Dim getProduct As String = "SELECT FLD_PRODUCT_ID,FLD_TYPE FROM TBL_PRODUCTS_A154287 WHERE FLD_TYPE = 'Cat'" Dim theTable As New DataTable Dim reader As New OleDb.OleDbDataAdapter(getProduct, myconnection) reader.Fill(theTable) lst_product.DataSource = theTable lst_product.DisplayMember = "FLD_PRODUCT_ID" refresh_text(lst_product.Text) btn_edit.Enabled = True btn_update.Enabled = True btn_delete.Enabled = True End Sub
Private Sub refresh_text(ByVal id As String) Dim getID As String = "SELECT * FROM TBL_PRODUCTS_A154287 WHERE FLD_PRODUCT_ID='" & id & "'" Dim theTable As New DataTable Dim reader As New OleDb.OleDbDataAdapter(getID, myconnection) reader.Fill(theTable) txt_pid.Text = theTable.Rows(0).Item("FLD_PRODUCT_ID") txt_pname.Text = theTable.Rows(0).Item("FLD_PRODUCT_NAME") txt_brand.Text = theTable.Rows(0).Item("FLD_BRAND") txt_desc.Text = theTable.Rows(0).Item("FLD_DESC") txt_price.Text = theTable.Rows(0).Item("FLD_PRICE") txt_qty.Text = theTable.Rows(0).Item("FLD_QTY") Try pic_img.BackgroundImage = Image.FromFile("pictures/" & txt_pid.Text & ".jpg") Catch ex As Exception pic_img.BackgroundImage = Image.FromFile("pictures/nophoto.jpeg") End Try End Sub