Masih berdasarkan tutorial sebelumnya. Buat sebuah Subroutine berinama subroutine tersebut dengan UpdateSiswa, dimana kita akan membuat coding update siswa berdasar Nis dari siswa yang ingin diubah datanya. Berikut codingnya seperti ini :
Sub UpdateSiswa()
Try
Call koneksi()
Dim str As String
str = "Update tblSiswa set Nama = '" & txtNama.Text & "', Kelas = '" & txtKelas.Text & "', Alamat = '" & rtbAlamat.Text & "' where Nis = '" & txtNis.Text & "'"
cmd = New OleDbCommand(str, conn)
cmd.ExecuteNonQuery()
MessageBox.Show("Update Data Siswa Berhasil Dilakukan")
Catch ex As Exception
MessageBox.Show("Update Data Siswa Gagal Dilakukan")
End Try
End Sub
Sekarang kembali ke menu design lalu klik 2 kali tombol btnUpdate lalu panggil subroutine Update Siswa dengan perintah Call UpdateSiswa. Berikut codingnya :
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
Call UpdateSiswa()
End Sub
Oke sekarang coba jalankan programnya lalu ubah nama menjadi Muhammad Amar, kelas Menjadi 1KA02 dan alamat dari siswa yang memiliki Nis 10108822, tapi ingat, NIS nya jangan diganti, karena NIS merupakan primary key. Lebih jelasnya lihat gambar berikut ini :
Selanjutnya tekan tombol Update untuk menyimpan perubahan:
Selanjutnya kita lihat lagi di MS. Access apakah data di tblSiswa dengan Nis 10108822 sudah berubah atau belum.
Nah siswa dengan Nis 10108822 sudah berhasil dirubah data dirinya. Pada pertemuan selanjutnya kita akan mempelajari tentang bagaimana cara untuk menghapus data didalam database.
Post a Comment