Simpan dan Ubah Data Menggunakan Class Database pada VB.NET
Monday, August 15, 2016
Add Comment
Selamat malam pemcaba,
1. Buatlah database dengan struktur tabel data dibawah ini :
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>
Imports MySql.Data.MySqlClient
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
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 komponennyaImports 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 MySqlConnectionDim 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
0 Response to "Simpan dan Ubah Data Menggunakan Class Database pada VB.NET"
Post a Comment