How to refresh data while saving in vb.net? - vb.net

Question

I want to refresh my data while clicking save button. I am using a datagridview but it won't refresh automatically. How can I code it?
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sql As String = "INSERT INTO tblproduct (product, Supplierprice, Projectprice) VALUES (#product, #Supplierprice, #Projectprice)"
cmd = New MySqlCommand(sql, con)
'parameters()
cmd.Parameters.AddWithValue("#product", txtproductname.Text)
cmd.Parameters.AddWithValue("#Supplierprice", txtsupprice.Text)
cmd.Parameters.AddWithValue("#Projectprice", txtproprice.Text)
Try
con.Open()
If MessageBox.Show("Are You Sure To Save This?", "SAVE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
If cmd.ExecuteNonQuery() > 0 Then
MsgBox("Successfully Saved")
End If
End If
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
con.Close()
End Try
Refresh()
Hide()
End Sub

Answer 1

This is the way I would do it.
First create a class.
Public Class Product
Public Sub New(productName As String, supplierPrice As String, projectPrice As String)
Me.ProductName = productName
Me.SupplierPrice = supplierPrice
Me.ProjectPrice = projectPrice
End Sub
Public Property ProductName As String
Public Property SupplierPrice As String
Public Property ProjectPrice As String
End Class
Declare a BindingList of the class and use that as the datasource. When adding an item, just add to the BindingList. The grid will automatically be refreshed.
Public Class Form1
Private Products As New BindingList(Of Product)
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
dgvProducts.DataSource = Products
End Sub
Private Sub bnAdd_Click(sender As Object, e As EventArgs) Handles bnAdd.Click
Dim item As Product = New Product(tbProductName.Text, tbSupplierPrice.Text, tbProjectPrice.Text)
If MessageBox.Show($"Are You Sure To Save the product : {item.ProductName}?", "SAVE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
SaveProduct(item)
Products.Add(item)
End If
End Sub
Private Sub SaveProduct(item As Product)
'Add database insert code
End Sub
End Class