blogging mood is on fire..... Kali ini Rani coba mengembangkan ihwal bagaimana menciptakan CRUD dengan VB.NET dan Ms. Access step by step. Tabel yang mau digunakan bernama klasifikasi dengan bentuk selaku 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 bab atas form untuk memuat label dan textbox input dengan property Dock = Top. Sebuah datagridview juga ditambahkan di bab bawah dan property Dock = Fill. Penulisan instruksi kita mulai dengan memperlihatkan data di grid. Seperti umumbekerja database access kita memakai koneksi OLDB maka pertama kita perlu mengimpor: Imports System.Data.OleDb Mendeklarasikan dan menciptakan 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 saat 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 dahulu udah mampu di run koq, hasil nya seperti ini: Selanjutnya kita akan menciptakan 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 klasifikasi (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