Menyimpan Data Ke Database

Salam semua, setelah sebelumnya kita belajar tentang koneksi database kali ini kita akan lanjut belajar bagaimana cara menyimpan data ke database di dalam VB.Net.

Langkah yang pertama kita buka kembali project yang kemaren kita buat, bagi yang belum ada silahkan buat terlebih dahulu DISINI.

Buka Project dengan Doubble Klik Project atau bisa juga Klik Kanan kemudian open, setelah terbuka Design form seperti di bawah ini.

Setelah selesai mendesign Formnya kita Doubble Klik Formnya Buat Private Sub ListGrid() yang berguna untuk menampilkan data ke dalam gridnya

Coding :

Private Sub ListGrid()

        StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Aplikasi.VBNet\Dbpenjualan.mdb;"

        ConMgr = New OleDbConnection

        ConMgr.ConnectionString = StrCon

        Try

            ConMgr = New OleDbConnection(StrCon)

            dtaTable = New DataTable

            ConMgr.Open()

            strSQL = "Select * from tbbarang"

            CommandMgr = New OleDbCommand(strSQL, ConMgr)

            dtaReader = CommandMgr.ExecuteReader(CommandBehavior.Default)

            dtaTable.Load(dtaReader)

            DataGridView1.DataSource = dtaTable

            CommandMgr.Dispose()

            dtaReader.Close()

            CommandMgr = Nothing

            dtaReader = Nothing

            ConMgr = Nothing

        Catch ex As Exception

            DataGridView1 = Nothing

        End Try

    End Sub

Selanjutnya masuk Ke Form1_Load Kemudian ganti coding yang dikurung dengan coding dibawah ini :

Call ListGrid()

Jangan lupa tambahkan private

Private CommandMgr As OleDbCommand

Private strSQL As String

Private dtaReader As OleDbDataReader

Private dtaTable As DataTable

Selanjutnya kita buat coding di tombol Simpan disini saya menggunakan Button2, Doubble Klik Button2 (Simpan)

Coding :

StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Aplikasi.VBNet\Dbpenjualan.mdb;"

        ConMgr = New OleDbConnection

        ConMgr.ConnectionString = StrCon

        Try

            ConMgr.Open()

            strSQL = "insert into tbbarang (Kdbarang,Nmbarang,Hrg_satuan)values('" & TextBox1.Text & "','" & TextBox2.Text & "'," & TextBox3.Text & ")"

            CommandMgr = New OleDbCommand(strSQL, ConMgr)

            If CommandMgr.ExecuteNonQuery() Then

                MsgBox("Data Sudah Disimpan")

            Else

                MsgBox("Data gagal Disimpan")

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        Finally

            ConMgr.Close()

            CommandMgr = Nothing

            dtaReader = Nothing

            ConMgr = Nothing

            Call ListGrid()

        End Try

Sava kemudian running...

Isi Form kemudian Klik Simpan

Selesai... Silahkan Mencoba... Salam New Gen....

Baca juga tentang >> “Running VB.Net di Windows 7 64Bit”