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
.