Haloo Guys, kali ini mimin akan membagikan tutorial cara menyimpan data ke database Ms Access di VB.Net.
Dalam tutorial kali ini mimin beranggapan bahwa anda sudah memiliki database beserta table didalam databasenya. Kalau belum maka mimin sarankan agar membaca artikel ini dulu ni Cara Membuat Koneksi VB.Net ke database MS Access
Setelah membuat database beserta tablenya, selanjutnya buat form baru, caranya : Menu Project -> Add Windows Form dan simpan formnya dengan nama fSimpan_data.vb dan atur properties form seperti berikut :
Selanjutnya tambahkan Komponen Tools ke formnya sesuai kebutuhan anda, disini saya akan menambahkan beberapa Komponen TextBox berdasarkan kolom table didatabase yang telah saya buat, contoh table database saya seperti berikut :
Berdasarkan gambar diatas, saya memiliki table dengan nama data dengan kolom (id,tanggal,data_1,data_2,data_3).
Selanjutnya tambahkan komponen ToolBox ke dalam form sesuai kebutuhan anda, disini saya akan menambahkan beberapa Label,1 DateTimePicker dan 3 TextBox. Sehingga tampilannya seperti berikut :
Selanjutnya adalah bagian codingnya ni, pada form anda klik kanan dan pilih View Code, Tambahkan System Data Oledb, contohnya seperti berikut :
Imports System.Data.OleDb
Public Class fSimpan_data
End Class
Selanjutnya buat Sub proses penyimpanan data ke database, contohnya seperti berikut :
Private Sub Simpan()
'Handle jika terjadi error
On Error GoTo gagal
'gunakan fungsi if untuk memastikan bagian yang wajib di isi tidak boleh kosong
If dataTxt_1.Text = "" Or dataTxt_2.Text = "" Or dataTxt_3.Text = "" Then
MsgBox("Data Belum Lengkap", MsgBoxStyle.Information, "Info")
Else
Call ConnectDb() 'Koneksikan ke database
Dim simpan As String = "INSERT INTO data(tanggal,data_1,data_2,data_3)values('" & tanggalTxt.Text & _
"','" & dataTxt_1.Text & "','" & dataTxt_2.Text & "','" & dataTxt_3.Text & "')"
CMD = New OleDbCommand(simpan, CONN)
CMD.ExecuteNonQuery()
MsgBox("Simpan Data Berhasil", MsgBoxStyle.Information, "Sukses")
CONN.Dispose()
CONN.Close()
Me.Close()
End If
Exit Sub
gagal:
'laporan deskripsi error yang terjadi
MsgBox("Simpan Data Error : " & Err.Description, MsgBoxStyle.Information, "Error Info")
End Sub
Selanjutnya memasukkan perintah Simpan ke Tombol Simpan, Double klik pada tombol simpan dan masukkan perintah, contohnya seperti berikut :
Private Sub saveBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveBtn.Click
Call Simpan()
End Sub
Bagaimana? Cukup mudah bukan.. oh ya, jika anda membuka atau Load form dari form lain dimana form lain tersebut merukan form yang menampilkan isi table database anda yang sedang anda tambahkan data, maka anda bisa merefresh LisView anda dengan cara memanggil function di form tersebut di form Simpan ini dengan catatan function untuk menampilkan data di form tampil anda bersifat Public, ini ni contoh Function tampil data pada tutorial sebelumnya, dimana nama formnya tampil_vb.vb :
'Bersifat public agar bisa di panggil di form lain
Public Sub Tampil_Data()
On Error GoTo gagal
ListView1.Items.Clear()
Call ConnectDb()
CMD = New OleDbCommand("SELECT * FROM data order by tanggal ASC", CONN)
DA = New OleDbDataAdapter(CMD)
Dim dt As New DataTable
DA.Fill(dt)
Dim no As Integer = 1
For i As Integer = 0 To dt.Rows.Count - 1
With ListView1
.Items.Add(no)
With .Items(.Items.Count - 1).SubItems
.Add(dt.Rows(i)("id"))
.Add(IIf(IsDBNull(dt.Rows(i)("tanggal")), "", dt.Rows(i)("tanggal")))
.Add(IIf(IsDBNull(dt.Rows(i)("data_1")), "", dt.Rows(i)("data_1")))
.Add(IIf(IsDBNull(dt.Rows(i)("data_2")), "", dt.Rows(i)("data_2")))
.Add(IIf(IsDBNull(dt.Rows(i)("data_3")), "", dt.Rows(i)("data_3")))
End With
End With
no = no + 1
Next
CONN.Dispose()
CONN.Close()
Exit Sub
gagal:
MsgBox("Terjadi Kesalahan " & Err.Number & " " & Err.Description, vbInformation, "Info")
End Sub
Anda bisa memanggil sub tampil tersebut disaat selesai penyimpanan data, tinggal merubah kode simpan datanya seperti berikut :
Private Sub Simpan()
'Handle jika terjadi error
On Error GoTo gagal
'gunakan fungsi if untuk memastikan bagian yang wajib di isi tidak boleh kosong
If dataTxt_1.Text = "" Or dataTxt_2.Text = "" Or dataTxt_3.Text = "" Then
MsgBox("Data Belum Lengkap", MsgBoxStyle.Information, "Info")
Else
Call ConnectDb() 'Koneksikan ke database
Dim simpan As String = "INSERT INTO data(tanggal,data_1,data_2,data_3)values('" & tanggalTxt.Text & _
"','" & dataTxt_1.Text & "','" & dataTxt_2.Text & "','" & dataTxt_3.Text & "')"
CMD = New OleDbCommand(simpan, CONN)
CMD.ExecuteNonQuery()
MsgBox("Simpan Data Berhasil", MsgBoxStyle.Information, "Sukses")
'load tampil data dari form tampil_vb.vb disini !
Call tampil_lv.Tampil_Data()
CONN.Dispose()
CONN.Close()
Me.Close()
End If
Exit Sub
gagal:
'laporan deskripsi error yang terjadi
MsgBox("Simpan Data Error : " & Err.Description, MsgBoxStyle.Information, "Error Info")
End Sub
Sehingga hasil akhirnya seperti berikut :
Imports System.Data.OleDb
Public Class fSimpan_data
Private Sub Simpan()
'Handle jika terjadi error
On Error GoTo gagal
'gunakan fungsi if untuk memastikan bagian yang wajib di isi tidak boleh kosong
If dataTxt_1.Text = "" Or dataTxt_2.Text = "" Or dataTxt_3.Text = "" Then
MsgBox("Data Belum Lengkap", MsgBoxStyle.Information, "Info")
Else
Call ConnectDb() 'Koneksikan ke database
Dim simpan As String = "INSERT INTO data(tanggal,data_1,data_2,data_3)values('" & tanggalTxt.Text & _
"','" & dataTxt_1.Text & "','" & dataTxt_2.Text & "','" & dataTxt_3.Text & "')"
CMD = New OleDbCommand(simpan, CONN)
CMD.ExecuteNonQuery()
MsgBox("Simpan Data Berhasil", MsgBoxStyle.Information, "Sukses")
'load tampil data dari form tampil_vb.vb disini !
Call tampil_lv.Tampil_Data()
CONN.Dispose()
CONN.Close()
Me.Close()
End If
Exit Sub
gagal:
'laporan deskripsi error yang terjadi
MsgBox("Simpan Data Error : " & Err.Description, MsgBoxStyle.Information, "Error Info")
End Sub
Private Sub saveBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveBtn.Click
Call Simpan()
End Sub
End Class
Artikel Dipost Oleh Hariadi
Seorang freelancer website and software developer, gemar dengan ilmu seputar IT serta penuh semangat untuk belajar.
Copyright © 2014 - 2025. All rights reserved By Haysia Development.
Typo gan.. harusnya
di panggil dari Form tampil.vb dan function Tampil_Data()