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:
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