
<p><a href="http://pojokprogrammer.net/tags/crud"><strong>CRUD Sederhana</strong></a> | 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 <em><strong>CRUD</strong></em> (<em>Create Read Update Delete</em>). Artikel ini akan membahas proses <em><strong>INSERT </strong></em>data ke database MySql menggunakan <strong>MySqlCommand</strong>. Pertama-tama kita siapkan table yang akan digunakan untuk menyimpan data. Silakan buka <strong>phpMyAdmin </strong>dan jalankan <em>script </em>SQL berikut ini untuk membuat table-nya</p>
<pre class="brush:sql">
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`)
);</pre>
<p>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.</p>
<p><img alt="Pojok Programmer - CRUD Sederhana - Insert Menggunakan MySqlCommand" src="/sites/default/files/tutorial/vbnet/crud01.png" style="width: 721px; height: 545px;" /></p>
<p>Pada awalprogram kita lakukan inisialisasi data dengan cara melakukan refresh terhadap isi grid, dengan menggunakan code seperti ini</p>
<pre class="brush:vbnet">
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
</pre>
<p>Sedangkan ini adalah <em>code </em>yang digunkan untuk meng-<em>handle event click </em>dari button Simpan.</p>
<pre class="brush:vbnet">
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
</pre>
<p>Dan Hasil akhirnya setelah dijalankan menjadi seperti ini</p>
<p><img alt="Pojok Programmer - CRUD Sederhana - Insert Menggunakan MySqlCommand" src="/sites/default/files/tutorial/vbnet/crud02.png" style="width: 720px; height: 370px;" /></p>
<p>Silakan <strong><a href="/sites/default/files/tutorial/vbnet/SampleCRUD1.rar">unduh source code di sini</a></strong>. Selamat Belajar</p>
<p>.</p>
- Log in to post comments
- 3517 kali dilihat