Selasa, 08 September 2020

Vb.Net Ms Access: Create, Read, Update, Delete (Crud) Part 1


blogging mood is on fire.....

Kali ini Rani coba membuatkan tentang bagaimana membuat CRUD dengan VB.NET dan Ms. Access step by step.
Tabel yang hendak dipakai berjulukan kategori dengan bentuk sebagai berikut:

Pada UI kita perlu menambahkan tombol-tombol untuk proses Save, Edit, Delete, Cancel, dan Exit.
dan kita akan membuat nya dengan memakai ToolStrip Control.

Cara menjadikannya? lihat disini yah...
Dan UI lengkap nya selaku berikut:
Panel ditambahkan pada bagian atas form untuk memuat label dan textbox input dengan property Dock = Top. Sebuah datagridview juga ditambahkan di bagian bawah dan property Dock = Fill.

Penulisan arahan kita mulai dengan menampilkan data di grid. Seperti biasa melakukan pekerjaan database access kita menggunakan koneksi OLDB maka pertama kita perlu mengimpor:
Imports System.Data.OleDb

Mendeklarasikan dan membuat sub procedure untuk menciptakan/membuka koneksi:
Dim con As New OleDbConnection

Sub Open_Koneksi()
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0" & _
                           ";Data Source=latihan.accdb;" & _
                           "Persist Security Info=False;"
    con.Open()
End Sub


Sub procedure untuk menampilkan data di grid:
Sub Data_Load()
    Dim cmd As New OleDbCommand
    Dim adapt As New OleDbDataAdapter
    Dim dt As New DataTable

    Try
        If Not con.State = ConnectionState.Open Then Open_Koneksi()

        cmd.Connection = con
        cmd.CommandText = "SELECT kodekategori, namakategori FROM kategori"
        adapt.SelectCommand = cmd
        adapt.Fill(dt)

        With grdData
            .AllowUserToAddRows = False
            .ReadOnly = True
            .DataSource = dt
        End With

    Catch ex As OleDbException
        MessageBox.Show("Error: " & ex.Message)
    Finally
        con.Close()
    End Try
End Sub

Dan memanggilkan dikala Event Form Load
Private Sub frmCategory_Load(sender As Object, _
        e As EventArgs) Handles Me.Load
    Data_Load()
End Sub

Sampai sini klo pengen nyoba dulu udah bisa di run koq, hasil nya mirip ini:
Selanjutnya kita akan membuat code untuk menginput data baru (insert) yang disimpan dalam event tbrSave Click.
Private Sub tbrSave_Click(sender As Object, _
        e As EventArgs) Handles tbrSave.Click

    Dim myCommand As New OleDbCommand
    Dim SQL As String
    Try
        If Not
con.State = ConnectionState.Open Then Open_Koneksi()
        SQL = "INSERT INTO kategori (kodekategori, namakategori) VALUES " & _
              "('" & txtCode.Text & "', '" & txtName.Text & "')"

        myCommand.Connection = con
        myCommand.CommandText = Sql
        myCommand.ExecuteNonQuery()

        MsgBox("Data gres tersimpan")

        txtCode.Text = String.Empty
        txtName.Text = String.Empty
        Data_Load()

        con.Close()
    Catch myerror As OleDbException
        MessageBox.Show("Error: " & myerror.Message)
    Finally
        con.Dispose()
    End Try
End Sub


Run untuk mencoba proses insert.



Lanjut ke proses edit di Part 2 okay!!!

Click here if you like this article.



Sumber http://rani-irsan.blogspot.com


EmoticonEmoticon

:)
:(
hihi
:-)
:D
=D
:-d
;(
;-(
@-)
:o
:>)
(o)
:p
:-?
(p)
:-s
8-)
:-t
:-b
b-(
(y)
x-)
(h)