Pertemuan 13 Merubah Data

Pertama Tambah kan button

Kedua ganti text button menjadi ubah

Doble Klik pada button ubah

Masukkan pada button ubah code seperti berikut

Private Sub btnUbahbuku_Click(sender As Object, e As EventArgs) Handles btnUbahbuku.Click

        Dim judul As String = txtJudulDet.Text

        Dim idkat As Integer = cbKatDet.SelectedValue

        Dim isbn As String = txtisbnDet.Text

        Dim penerbit As String = txtPenerbitDet.Text

        Dim penulis As String = txtPenulisDet.Text

        UbahBuku(id_buku, idkat, judul, isbn, penerbit, penulis)

        FormBuku.Show()

    End Sub

 

Jika sudah selanjutnya running aplikasi coba button ubah yang sudah di sudah dibuat tadi