Simpan dan Ubah Data Menggunakan Class Database pada VB.NET

Selamat malam pemcaba,

Setelah kemarin kita bahas dalam pembuatan fungsi-fungsi query yang ada dalam class database, kali ini akan kita bahas bagaimana penggunaan atau penerapan dalam sebuah form database. sebelum kita mulai dalam pengkodean pastikan anda sudah mengatur dan menginstal koneksi ODBC pada komputer anda. disini saya menggunakan koneksi ODBC dengan sytem DSN yang saya berinama "Latihan". Anda bisa lihat hasil setting koneksi ODBC saya seperti gambar dibawah ini

1. Buatlah database dengan struktur tabel data dibawah ini :

2. Silahkan import Refernsi dengan cara pilih menu Project -> Add Reference -> .NET

cari MySQL.Data kemudian pilih OK.

3. Modifikasi file app.config pada jendela explorer seperti dibawah ini :
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <configSections>
  </configSections>
  <connectionStrings>
    <add name="strconn" connectionString="DSN=Latihan;" />
  </connectionStrings>
</configuration>

4. silahkan buat desain form yang terdiri dari textbox dan button. Untuk lebih jelasnya ada bisa lihat seperti gambar dibawah ini :

5. Sekarang kita masuk ke pengkodean pada kalangan paling atas import komponennya
Imports MySql.Data.MySqlClient

6. silahkan buat fungsi-fungsi pada form seperti dibawah ini, sebelum membuat fungsi deklarasikan dulu koneksi dan class databasenya

    Dim conn As MySqlConnection
    Dim myDB As New clsDB

 Sub ResetData()
        Me.txtKodeBarang.Text = ""
        Me.txtNamaBarang.Text = ""
        Me.txtWarna.Text = ""
        Me.txtBanyak.Text = ""
    End Sub

 Sub SimpanData()
        Dim strTable As String
        Dim dtFields(3) As String
        Dim dtValues(3) As String
        Dim strWhere As String

        Dim strKodeBarang As String = Me.txtKodeBarang.Text
        Dim strNamaBarang As String = Me.txtNamaBarang.Text
        Dim strWarna As String = Me.txtWarna.Text
        Dim strBanyak As String = Me.txtBanyak.Text

        strTable = "tbldata"

        dtFields(0) = "kodebarang"
        dtFields(1) = "nama"
        dtFields(2) = "warna"
        dtFields(3) = "banyak"

        dtValues(0) = strKodeBarang
        dtValues(1) = strNamaBarang
        dtValues(2) = strWarna
        dtValues(3) = strBanyak

        strWhere = dtFields(0) & "='" & dtValues(0) & "'"

        With (myDB)
            .rs = .QuerySelect(dtFields, strTable, strWhere).CreateDataReader
            If .rs.HasRows Then
                Dim strPesan = MsgBox("Data sudah ada, ingin mengubah ?", vbQuestion + vbYesNo + vbDefaultButton2, "Ubah Data")
                If strPesan = vbYes Then
                    .IsRun = .QueryUpdate(strTable, dtFields, dtValues, strWhere)
                    MsgBox("Data " + .IsRun + " diubah", vbInformation, "Informasi")
                End If
            Else
                .IsRun = .QueryInsert(strTable, dtValues)
                MsgBox("Data " + .IsRun + " disimpan", vbInformation, "Informasi")
            End If
        End With
    End Sub

7. Pada Event Button cmdSimpan_Click tambahkan kode berikut :
 Private Sub cmdSimpan_Click(sender As Object, e As System.EventArgs) Handles cmdSimpan.Click
        SimpanData()
    End Sub

Selesai, sekarang anda jalankan project anda, jika berhasil maka akan ada informasi simpan data berhasil. Selanjutnya saya akan membahas bagaimana menampilkan data menggunakan class database. Anda tidak perlu khawatir, karena pasa sesi akhir nanti akan saya ikut sertakan source codenya untuk dapat dipelajari.

Semoga bermanfaat, terimakasih

Share this post