Cara Insert & Update Data Dengan 1 Tombol VB.Net Ke MySQL

Yang namanya anak teknik informatika, ujung-ujung nya pasti bikin software untuk tugas akhir. sebagian dari mereka ada juga yang mendalami networrking. Nah, ini pengalaman saya dalam membimbing mahaiswa menyelesaikan skripsi dan tugas akhir untuk anak D3. Kebanyakan dari mereka memisahkan antara tombol simpan & tombol update. 

Jadi terdapat 2 tombol. 1 tombol simpan, dan 1 tombol update. say apikir ini sangan tidak efektif. Kenapa ? karena memungkinkan terjadinya banyak kesalahan, salah satunya adalah kemungkinan keliru mengklik tombol. 1 lagi terjadinya pemborosan penggunaan object.

Hanya untuk menyimpan atau meng-update, kita bisa menggunakan hanya dengan 1 tombol, dengan cara mendeteksi data di tabel sesuai kiteria tertentu.

Contoh : Terdapat data siswa dengan NIM 12345. Maka hanya dengan 1 tombol simpan, aplikasi dapat menentukan sendiri apakah data tersebut akan di-Insert, atau di-Update dengan logika sebagai berikut :

Pada Saat tombol Simpan di Klik :

Cek tabel DataSiswa dimana NIM = 12345

Jika data siswa dengan NIM 12345 ditemukan, maka

    Cukup update data siswa dengan NIM 12345 tsb.

Jika data siswa dengan NIM 12345 tidak ditemukan, maka

    Simpan data baru dengan NIM 12345

Selesai.

Simple kan ?

Yuk kita masuk ke code.

Call konek()
strSQL = "SELECT * FROM tbBarang WHERE ID = '" & IDTerpilih & "'"
com = New MySql.Data.MySqlClient.MySqlCommand(strSQL, conn)
rd = com.ExecuteReader()
rd.Read()
If rd.HasRows Then
    Call konek()
    strSQL = "UPDATE tbBarang SET KBR = '" & txtKBR.Text & _
        "', KodeHAI = '" & txtKodeHAI.Text & _
        "', JenisBarang = '" & txtJenisBarang.Text & _
        "', NamaBarang = '" & txtNamaBarang.Text & _
        "', IsiDus = '" & txtIsiDus.Text & _
        "', Keterangan = '" & txtketerangan.Text & _
        "' WHERE ID ='" & IDTerpilih & "'"
    com = New MySql.Data.MySqlClient.MySqlCommand(strSQL, conn)
    com.ExecuteNonQuery()
    Call frmBarang.TampilkanTabel()
Else
    Call konek()
    strSQL = "INSERT INTO tbBarang VALUES ('" & _
    IDTerpilih & "','" & _
    txtKBR.Text & "','" & _
    txtKodeHAI.Text & "','" & _
    txtJenisBarang.Text & "','" & _
    txtNamaBarang.Text & "','" & _
    txtIsiDus.Text & "','" & _
    txtketerangan.Text & "')"
    com = New MySql.Data.MySqlClient.MySqlCommand(strSQL, conn)
    com.ExecuteNonQuery()
    Call frmBarang.TampilkanTabel()
End If
Me.Close()

Penjelasan :

Call konek()
strSQL = "SELECT * FROM tbBarang WHERE ID = '" & IDTerpilih & "'"
com = New MySql.Data.MySqlClient.MySqlCommand(strSQL, conn)
rd = com.ExecuteReader()
rd.Read()

Code ini berfungsi untuk mengecek keberadaan data terseleksi di VB.Net apakah sudah ada di dalam tabel MySQL atau belum sesuai syntax SQL yang dituliskan.

If rd.HasRows Then

Jika data ditemukan, maka :

Call konek()
strSQL = "UPDATE tbBarang SET KBR = '" & txtKBR.Text & _
    "', KodeHAI = '" & txtKodeHAI.Text & _
    "', JenisBarang = '" & txtJenisBarang.Text & _
    "', NamaBarang = '" & txtNamaBarang.Text & _
    "', IsiDus = '" & txtIsiDus.Text & _
    "', Keterangan = '" & txtketerangan.Text & _
    "' WHERE ID ='" & IDTerpilih & "'"
com = New MySql.Data.MySqlClient.MySqlCommand(strSQL, conn)
com.ExecuteNonQuery()

Jalankan code update. Karena kalau data dengan PrimaryKey yang sama sudah ada, sudah pasti data tersebut hanya bisa diupdate. Tidak mungkin ada 2 data dengan PrimaryKey yang sama.

Call frmBarang.TampilkanTabel()

Setelah semua data berhasil tersimpan/terupdate, maka panggil Sub TampilkanTabel untuk menanpilkan data yang barusan diupdate/disimpan tersebut ke dalam DataGridView.

Else

Bagian dari code IF diatas yang menyatakan "jika data tidak ditemukan".

Call konek()
strSQL = "INSERT INTO tbBarang VALUES ('" & _
IDTerpilih & "','" & _
txtKBR.Text & "','" & _
txtKodeHAI.Text & "','" & _
txtJenisBarang.Text & "','" & _
txtNamaBarang.Text & "','" & _
txtIsiDus.Text & "','" & _
txtketerangan.Text & "')"
com = New MySql.Data.MySqlClient.MySqlCommand(strSQL, conn)
com.ExecuteNonQuery()

Jalankan code simpan. Karena jika data tidak ditemukan, maka sudah pasti kita harus menyimpan data baru.

End If

Kasus IF selesai.

Me.Close()

Titip form peyimpanan. Kalau tidak mau otomatis tertutup, maka code ini tidak perlu dituliskan.

Gimana ? mudah kan ?.. hehehe Belajar pemrograman tidak sesulit yang kalian bayangkan. Dengan hanya menggunakan 1 tombol untuk SImpan & Update seperti ini tentunya lebih simple.

Selamat mencoba.. Jika ada yang kurang jelas, silahkan tanyakan di komentar. :)