[VB.NET] Insert Data kedalam Database

Memasukkan data (insert data) ke dalam database relatif mudah dilakukan dengan menggunakan VB.NET. Dalam contoh sederhana dibawah ini dengan menggunakan database Access 2000 (*.mdb) sebagai media penyimpanan dan namespace Data.OleDb dari .NET sebagai penghubung query (connector).

  1. Buatlah sebuah form baru, import-lah class System.Data.Oledb dengan cara dobel-klik pada form
    2. Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
  2. Lalu masukkan beberapa komponen TextBox, Button, dan Label dan desain sesuai gambar berikut
    3. Insert Data kedalam Database
  3. Buatlah sebuah database access dengan format Access 2000 (*.mdb) dengan nama "db.mdb", lalu buatlah table dengan nama "identitas" dan beberapa field (ID, NIP, Nama, Alamat, Jurusan)
    4. Contoh Database
  4. Setelah selesai, dobel-klik form, lalu definisikan beberapa variabel OledDbCommand dan OledbConnection didalam Class. Hasilnya jadi seperti dibawah ini (lihat baris yang ditandai)
    5. Imports System.Data.OleDb
Public Class Form1
    Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\db.mdb")
    Dim cmd As OleDbCommand
	
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
  5. Dobel-klik button Simpan, lalu masukkan perintah dibawah ini
    6. 'jika koneksi tertutup, koneksi akan dibuka
If cnn.State = ConnectionState.Closed Then cnn.Open()
'membuat variable cmd untuk menampung perintah insert
cmd = New OleDbCommand("INSERT INTO identitas(NIP,Nama,Alamat,Jurusan) VALUES('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')", cnn)
'jika insert berhasil, tampilkan peringatan berhasil
If cmd.ExecuteNonQuery Then MsgBox("Data berhasil disimpan")
    NB: Database bernama "db.mdb" terletak dalam satu folder aplikasi, tepatnya pada folder debug. Untuk lebih lengkapnya silahkan donwload full sourcecode-nya dibawah
  6. Jalankan test/debug program yang anda buat dengan menekan F5 pada keyboard
Tutorial diatas menggunakan versi Visual Basic .NET 2008. Untuk versi VB diatasnya atau dibawahnya mungkin ada sedikit perbedaan.

Download source code VB.NET : Cara Memasukkan/Insert Data kedalam Database [Size:110 KB]

Baca Juga :

Older Post
Newer Post