Latihan Insert Delete VB.Net dengan MySQL ~ PAW | programming-animation-website

Hai sobat pawers, kemarin saya sudah mengajarkan koneksi Vb.Net menggunakan MySQL. Sekarang saya akan mengajarkan insert, delete sederhana menggunakan database MySQL.

Pertama, sobat desain dulu tampilan seperti di bawah ini:

Setelah selesai mendesain, jangan lupa sobat masukkan module koneksi yang kamren sudah kita bahas. Jadi nanti tampilan pada project explorernya akan terdiri dari 1 form dan 1 modulek koneksi. Jika sudah, kita mulai masuk ke coding.

#1 Mengimport library MySQL

 Imports MySql.Data.MySqlClient

#2 Mendeklarasikan MySQLCommand

Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
Dim tambah As New MySql.Data.MySqlClient.MySqlCommand
Dim hapusdata As New MySql.Data.MySqlClient.MySqlCommand

#3 Membuat Prosedur Tampil

Prosedur tampil ini, digunakan untuk menampilkan data yang akan muncul di dalam datagridview. Setelah menambah data baru, data yang ada di dalam datagridview otomatis terupdate, demikian pula jika menghapus data, datagridview otomatis terupdate.

 Private Sub tampil()
        konek("localhost", "root", "", "db_siswa")
        cmd.CommandText = "SELECT * FROM tsiswa"
        cmd.Connection = conn
        Dim table As New DataTable
        Dim adapter As New MySql.Data.MySqlClient.MySqlDataAdapter(cmd.CommandText, conn)
        Dim cb As New MySql.Data.MySqlClient.MySqlCommandBuilder(adapter)
        adapter.Fill(table)
        DataGridView1.DataSource = table
    End Sub

Perlu sobat perhatikan pada bagian:

konek("localhost", "root", "", "db_siswa")

Localhost merupakan MySQL server

root merupakan username MySQL

"" Merupakan password MySQL. Karena MySQL penulis tidak diberi password maka menggunakan ""

db_siswa merupakan nama database yang dibuat di MySQL.

koneksi ini harap disesuaikan dengan yang ada di komputer sobat ya ^_^

#4 Form_Load

Pada saat form_load, coding hanya memanggil prosedur tampil.

 tampil()

#5 Coding tombol tambah data

tambah.Connection = conn
tambah.CommandText = "insert into tsiswa (nama) values ('" & TxtNama.Text & "')"
Dim rsl As Integer = tambah.ExecuteNonQuery()
If rsl > 0 Then
     MsgBox("data berhasil ditambahkan")
     tampil()
End If

tsiswa pada coding diatas merupakan nama tabel yang terdapat pada database yang sudah sobat buat ^_^ dan (nama) merupakan nama field yang ada pada tabel tsiswa.

#6 Coding tombol hapus

Dim result = MessageBox.Show("Yakin akan menghapus Data " & Trim(Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value) & "?", "Konfirmasi", MessageBoxButtons.YesNo)
   If result = DialogResult.Yes Then
   hapusdata.CommandText = "delete from tsiswa where id='" & Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value & "'"
   hapusdata.Connection = conn
   Dim rsl As Integer = hapusdata.ExecuteNonQuery()
       If rsl > 0 Then
          MsgBox("data terhapus")
          tampil()
       End If
   ElseIf result = DialogResult.No Then
Exit Sub
End If

Bagi sobat yang masih bingung, bisa mendownload source codenya disini

Latihan Insert Delete VB.Net dengan MySQL

Related Post