Cara Memindahkan Data dari Datagrid1 ke Datagrid2 Visual Basic .Net Mysql

Bingung Mau ngasih judul apa, liat saja gambarnya mungkin teman-teman pahamlah yang saya maksud. Saya membuat artikel ini karena ada permintaan dari teman group untuk membahas ini.

1. Design Form seperti gambar dibawah ini.
    2 Buah Datagrid
    2 Buath Button

2. Buat Database

Untuk masalah koneksi antara Vb Net dengan MySql sudah dibahas pada postingan sebelumnya. Silahkan baca : Koneksi Vb .Net dengan Database Mysql Menggunakan ODBC

Lanjut :
3. Buat Deklarasi Variabel Dulu :

    Dim DA As OdbcDataAdapter
    Dim DS As DataSet
    Dim SQL,NIP,Nama As String
    Dim CMD As OdbcCommand
    Dim RS As OdbcDataReader

4. Buat Private Sub baru

     Private Sub Tabel()
        DA = New Odbc.OdbcDataAdapter("select * from t_siswa", CON)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "t_siswa")
        DataGridView1.DataSource = (DS.Tables("t_siswa"))

        DataGridView1.Columns(0).HeaderText = "NIP"
        DataGridView1.Columns(1).HeaderText = "Nama"
        DataGridView1.Columns(0).Width = 100
        DataGridView1.Columns(1).Width = 300
        DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Violet
    End Sub

    Private Sub Tabel2()
        DA = New Odbc.OdbcDataAdapter("select t_partisipasi.id_partisipasi,t_partisipasi.nip,t_siswa.nama from t_partisipasi,t_siswa where t_partisipasi.nip=t_siswa.nip", CON)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "t_siswa")
        DataGridView2.DataSource = (DS.Tables("t_siswa"))

        DataGridView2.Columns(0).HeaderText = "ID"
        DataGridView2.Columns(1).HeaderText = "NIP"
        DataGridView2.Columns(2).HeaderText = "NAMA"
        DataGridView2.Columns(0).Width = 50
        DataGridView2.Columns(1).Width = 100
        DataGridView2.Columns(2).Width = 300
        DataGridView2.AlternatingRowsDefaultCellStyle.BackColor = Color.Violet
    End Sub

5. Coding Pada Form_Load

      Try
            CON = New Odbc.OdbcConnection
            CON.ConnectionString = "DSN=datagrid"
            CON.Open()
        Catch ex As Exception
            MsgBox("Database tidak bisa terhubung, Silahkan cek koneksi", MsgBoxStyle.Information, "Pemberitahuan")
        End Try
        Tabel()
        Tabel2()

 6. Untuk mencoba berhasil atau tidak nya coding yang kita buat tadi, sebaiknya kita mencoba run aplikasi untuk melihat apakah data berhasil ditampilkan di dalam datagrid. Namun sebelum itu, isi dulu tabel pada database, secara manual saja. Yang diisi cukup tabel siswa.

Kemudian kita RUN

7. Coding Pada Tombol Panah Ke Kanan ( >> )

       Dim baris As Integer        baris = DataGridView1.CurrentRow.Index        NIP = DataGridView1.Item(0, baris).Value        Nama = DataGridView1.Item(1, baris).Value
        SQL = "insert into t_partisipasi values ('" & NIP & "','" & Nama & "')"            CMD = New Odbc.OdbcCommand(SQL, CON)            CMD.ExecuteNonQuery()
        SQL = "delete from t_siswa where nip='" & NIP & "'"            CMD = New Odbc.OdbcCommand(SQL, CON)            CMD.ExecuteNonQuery()
            Tabel()            Tabel2()

8. Coding Pada Tombol Panah Ke Kiri (<< )

        Dim baris As Integer
        baris = DataGridView2.CurrentRow.Index
        NIP = DataGridView2.Item(0, baris).Value
        Nama = DataGridView2.Item(1, baris).Value
        SQL = "insert into t_siswa  values ('" & NIP & "','" & Nama & "')"
            CMD = New Odbc.OdbcCommand(SQL, CON)
            CMD.ExecuteNonQuery()
        SQL = "delete from t_partisipasi where nip='" & NIP & "'"
            CMD = New Odbc.OdbcCommand(SQL, CON)
            CMD.ExecuteNonQuery()
            Tabel()
            Tabel2() 

Hasil AKhir