CRUD Sederhana | Aplikasi database memerlukan pemahaman yang cukup karena banyak konsep yang harus dipahami sebelumnya, belum lagi komponen dan driver yang harus di-install sebelumnya. Namun .NET framework memudahkan kita untuk membuat coding database atau dikenal sebagai CRUD (Create Read Update Delete). Artikel ini akan membahas proses INSERT data ke database MySql menggunakan MySqlCommand. Pertama-tama kita siapkan table yang akan digunakan untuk menyimpan data. Silakan buka phpMyAdmin dan jalankan script SQL berikut ini untuk membuat table-nya
CREATE TABLE `pegawai` (
`id` int(11) NOT NULL AUTO_INCREMENT,
`nip` varchar(50) CHARACTER SET utf8 DEFAULT NULL,
`nama` varchar(50) CHARACTER SET utf8 DEFAULT NULL,
`alamat` varchar(50) CHARACTER SET utf8 DEFAULT NULL,
`tempat_lahir` varchar(50) CHARACTER SET utf8 DEFAULT NULL,
`tanggal_lahir` date DEFAULT NULL,
PRIMARY KEY (`id`)
);
Berikutnya kita buatkan Form sederhana yang berisikan TextBox untuk input data dan DataGridView untuk menampilkan data yang sudah tersimpan di database. Mungkin kira-kira tampilannya seperti ini, namun silakan jika teman-teman punya selera desain yang lain.
Pada awalprogram kita lakukan inisialisasi data dengan cara melakukan refresh terhadap isi grid, dengan menggunakan code seperti ini
Public Sub New()
' required by designer code
InitializeComponent()
' required by this tutorial
RefreshDataGrid()
End Sub
Private Sub RefreshDataGrid()
' siapkan koneksi database
Dim cn As New MySqlConnection(cnString)
Dim da As New MySqlDataAdapter("SELECT * FROM pegawai", cn)
Dim dt As New DataTable
' coba ambil data
Try
' masukkan data ke datatable
da.Fill(dt)
' binding datatable ke grid
DataGridView1.DataSource = dt
Catch ex As Exception
' tampilkan error jika ada
MessageBox.Show(ex.Message)
End Try
End Sub
Sedangkan ini adalah code yang digunkan untuk meng-handle event click dari button Simpan.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' siapkan koneksi database
Dim cn As New MySqlConnection(cnString)
Dim cm As MySqlCommand
Try
' siapkan perintah sql
cm = cn.CreateCommand
cm.CommandType = CommandType.Text
cm.CommandText = "INSERT " & _
"INTO pegawai(nip, nama, tempat_lahir, tanggal_lahir, alamat) " & _
"VALUES (@nip, @nama, @tempat, @tanggal, @alamat)"
' gunakan parameter
cm.Parameters.AddWithValue("@nip", TextBox1.Text)
cm.Parameters.AddWithValue("@nama", TextBox2.Text)
cm.Parameters.AddWithValue("@tempat", TextBox3.Text)
cm.Parameters.AddWithValue("@alamat", TextBox4.Text)
cm.Parameters.AddWithValue("@tanggal", DateTimePicker1.Value.ToString("yyyy-MM-dd"))
' buka koneksi database (wajib)
cn.Open()
' jalankan perintah insert
cm.ExecuteScalar()
' tutup koneksi (kalau tidak, dosa!)
cn.Close()
' refresh data grid kembali
RefreshDataGrid()
Catch ex As Exception
' tampilkan error jika ada
MessageBox.Show(ex.Message)
End Try
End Sub
Dan Hasil akhirnya setelah dijalankan menjadi seperti ini
Silakan unduh source code di sini. Selamat Belajar
.