Cara Menyimpan Data Ke Database MS Access di Vb.Net

Cara Menyimpan Data Ke Database MS Access di Vb.Net

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 :

 

  1. Text = Simpan data 'Atau sesuaikan dengan kebutuhan anda
  2. StartPosition = CenterScreen
  3. MaximizeBox = False 'Atau sesuaikan dengan kebutuhan anda
  4. MinimizeBox = False 'Atau sesuaikan dengan kebutuhan anda

 

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

 

Share


Article Posted By Hariadi

Seorang freelancer website and software developer, gemar dengan ilmu seputar IT serta penuh semangat untuk belajar.


0 Comment

No Comment


Leave a Comment ...