Membuat Fungsi Refresh Data Otomatis pada VB.Net dan Database MySQL

Saat membuat program dengan VB.Net dan database MySQL dan kita membuat 2 form berbeda untuk input data dan menampilkan data. seperti berikut:


1. Form untuk menampilkan data:

2. Form untuk input data:

Pada saat kita selesai input data pada form ke 2, di form pertama yang berisi keseluruhan data maka data yang baru saja diinputkan belum ada, dan form harus ditutup dahulu dan dibuka kembali, untuk memperbarui seluruh data, karena cara kerja aplikasi desktop memang tidak dapat me-refresh data secara otomatis. Namun kita dapat membuat sebuah fungsi untuk melakukan refresh otomatis tanpa harus menutup dan membuka form berkali-kali. Berikut codingnya:

 Private Sub refreshDatagrid()
        Try
            Call koneksiku()

            ds = New DataSet

            Tabel = "SELECT * FROM anggota"
            Grid = New Odbc.OdbcDataAdapter(Tabel, Database)
            Grid.Fill(ds, "anggota")

            Anggota.DgAnggota.Columns(0).HeaderText = "NO ANGGOTA"
            Anggota.DgAnggota.Columns(1).HeaderText = "NAMA"
            Anggota.DgAnggota.Columns(2).HeaderText = "ALAMAT"
            Anggota.DgAnggota.Columns(3).HeaderText = "NO TELEPON"
            Anggota.DgAnggota.Columns(4).HeaderText = "TANGGAL BERGABUNG"
            Anggota.DgAnggota.Columns(5).HeaderText = "SIMPANAN POKOK"
            Anggota.DgAnggota.Columns(6).HeaderText = "TANGGAL WAJIB"
            Anggota.DgAnggota.Columns(7).HeaderText = "TANGGAL SUKARELA"
            Anggota.DgAnggota.Columns(8).HeaderText = "PINJAMAN"

            Dim GridView As New DataView(ds.Tables("anggota"))
            Anggota.DgAnggota.DataSource = GridView

        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub

Taruh coding diatas pada form ke 2, dan panggil fungsi diatas setelah button simpan ditekan, sehingga saat selesai input data, secara otomatis data baru akan langsung masuk di form 1.