menu

Visual Basic - Membuat sistem (CRUD) Create dan Read


Pada tutorial sebelumnya kita sudah membuat sebuat koneksi database pada project visual studio kita, tutorial kali ini akan mempraktekkan cara membuat operation database untuk "create new data",

Oke langsung saja kita mulai,

Pertama, buka kembali file project kita sebelumnya, dengan tampilan seperti ini,


Klik dua kali button New dan ketikan code berikut,
DataUserBindingSource.AddNew()
Perhatikan pada code diatas code DataUserBindingSource merupakan nama database yang dibuat sehingga sesuaikan dengan nama database yang anda buat, kita bisa melihat nama bindingnya pada tanda kuning gambar diatas,,

Kemudian klik dua kali button Save dan ketikkan code berikut,
On Error GoTo SaveErr
        DataUserBindingSource.EndEdit()
        DataUserTableAdapter.Update(Project_CRUDDataSet.DataUser)
        MessageBox.Show("Data was saved")
SaveErr:
        Exit Sub
Sesuaikan Dataset, Binding, dan TableAdapter sesuai dengan yang anda miliki dapat dilihat pada tanda kuning pada gambar diatas,,

Sehingga tampilan keseluruhan code akan tampak seperti ini,
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Project_CRUDDataSet.DataUser' table. You can move, or remove it, as needed.
        Me.DataUserTableAdapter.Fill(Me.Project_CRUDDataSet.DataUser)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        DataUserBindingSource.AddNew()
    End Sub

    Private Sub save_Click(sender As Object, e As EventArgs) Handles save.Click
        On Error GoTo SaveErr
        DataUserBindingSource.EndEdit()
        DataUserTableAdapter.Update(Project_CRUDDataSet.DataUser)
        MessageBox.Show("Data was saved")
SaveErr:
        Exit Sub
    End Sub
End Class

Dan tampilanya akan tampak seperti ini jika di "run"


===DONE!===