Simpan Data Visual Basic

Cara menyimpan data ke dalam database menggunakan visualbasic vb.net

Cara menyimpan data ke dalam database menggunakan Visualbasic .Net kali ini membahas bagaimana cara membuat script atau coding untuk menyimpan data yang ada di program kita kedalam database yang telah kita buat.Dalam tutorial kali ini tidak akan dijelaskan cara membuat databasenya, Saya harap Anda sudah membaca artikel Cara membuat database dengan microsoft access. Agar pada tutorial kali ini Anda lebih memahami script atau coding yang Saya buat.

Artikel Lain: Membuat Backsound Visual Basic

Untuk menyimpan data kita membutuhkan beberapa komponen yang harus disiapkan yaitu module sebagai file koneksi kita kedalam database, lalu deklarasi koneksi di form yang akan kita gunakan sebagai variabel inputan data, agar lebih jelas Saya sarankan lihat juga Video tutorialnya dibawah.

Cara menyimpan data ke dalam database menggunakan Visualbasic .Net:

1. Dalam kasus ini kita punya database dengan nama [mudamers.mdb], database tersebut berformat .mdb atau Format access 2003 jika menggunakan access 2007 bisa Anda Save As dan Pilih formatnya ke yang 2003, lalu database tersebut berisi tabel bernama tbmudamers.

2. Dalam tabel tbmudamers kita punya dua Field yang bertype Text semua, yaitu nomudamers dan mudamu.

3. Strukturnya seperti ini Database=[mudamers.mdb], Tabel=[tbmudamers], Field=[nomudamers],[mudamu].

4. Paste database yang sudah Anda buat ke direktori bindebug Project Anda, sekarang buka project Visualbasic .Net Anda, Tambahkan satu Button, satu buah ListView, dua buah Textbox.

5. Klik kanan pada ListView >> Edit Columns.

6. Karena tabel database yang kita buat kita hanya memiliki dua buah Field jadi tambahkan kolom sebanyak dua buah saja.

7. Setelah Edit Columns tadi, klik Add sebanyak dua kali, untuk menambahkan dua kolom.

8. Edit Text ColumnHeader Propertiesnya beri nama ColumnHeader1=nomudamers, Columnheader2=mudamu.

9. Klik Ok jika sudah selesai.

10. Masih pada ListView, di Window Properties sebelah kanan ubah GridLines dari False set menjadi True.

11. Ubah juga pada Properties View set dari LargeIcon menjadi Details.

12. Beralih ke Solution Explorer yang berada di window pojok kanan Project Anda.

13. Klik kanan pada project Anda Pilih Add >> New Folder, rename folder tersebut dengan nama accessdata, didalam folder inilah kita akan membuat module koneksi.

14. Klik Kanan pada Folder tersebut pilih Add >> Module, beri nama koneksidata lalu klik Add.

15. Setelah module dibuat, hapus semua kode di module dan pastekan kode atau scriptnya seperti ini:

Imports System.Data.OleDb
Namespace accessdata
    Public Class koneksidata
        Dim conect As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mudamers.mdb;”)
        Public Function open() As OleDbConnection
            conect.Open()
            Return conect
        End Function
        Public Function close() As OleDbConnection
            conect.Close()
            Return conect
        End Function
    End Class
End Namespace
Module koneksidata
End Module

16. Beralih ke Form Project Anda, Klik dua kali pada Project Anda.

17. Taruh kode dibawah ini diatas sendiri (Ingat paling atas, bukan di event load form).

Imports System.Data.OleDb

18. Pastekan juga kode dibawah ini dibawah kode “Public Class Form1” yang berada di bawah kode yang Anda taruh tadi.

#Region “soni_connection”
    Dim sonikoneksi As New accessdata.koneksidata
    Dim sonitipekoneksi As New OleDbConnection
    Dim perintahsoni As New OleDbCommand
    Dim sonikoneksiadapter As OleDbDataAdapter
    Dim sonikoneksireader As OleDbDataReader
    Dim sonikoneksiset As New DataSet
    Dim koneksitablesoni As New DataTable
#End Region
#Region “mudamu_baca”
    Sub bacamudamers()
        Dim isi As ListViewItem
        ListView1.Items.Clear()
        perintahsoni = sonikoneksi.open.CreateCommand
        perintahsoni.CommandText = “select * from tbmudamers”
        sonikoneksireader = perintahsoni.ExecuteReader
        While sonikoneksireader.Read
            isi = ListView1.Items.Add(sonikoneksireader.Item(“nomudamers”).ToString)
            isi.SubItems.Add(sonikoneksireader.Item(“mudamu”).ToString)
        End While
        sonikoneksi.close()
    End Sub
#End Region

19. Setelah itu kembali ke Form Project Anda, Klik dua kali pada buttonnya, setelah itu tambahkan script di event clicknya button seperti ini:

perintahsoni.CommandText = “insert into tbmudamers values(‘” & Me.TextBox1.Text & “‘,'” & Me.TextBox2.Text & “‘)”
        perintahsoni.Connection = sonikoneksi.open
        perintahsoni.ExecuteNonQuery()
        sonikoneksi.close()
        bacamudamers()

20. Selesai seperti itulah kira-kira menyimpan data menggunakan Visualbasic .Net.

Penjelasan :

Code 1:Kode tersebut untuk menghubungkan program Kita dengan database mudamers.mdb (Bisa Anda sebut File Koneksi).

Code 2: Kode tersebut adalah kode pemanggilan untuk database kita yang bertype OleDB (Karena terbuat dari Access).

Code 3: #Region “soni_connection” deklarasi untuk koneksi yang akan kita pakai, #Region “mudamu_baca” untuk menampilkan data dari database kita kedalam ListView.

Code 4: Adalah perintah untuk menyimpan teks dari Textbox1 ke field nomudamers, Textbox2 ke field mudamu.

Sekali lagi lihatlah Video yang sudah Saya praktekkan dibawah agar Anda mudah dalam memahami dan lebih mengerti tentang strukturnya. Semoga bermanfaat.

Download Video
Download Code

 

Tags:

  • cara membuat program absensi rumit di vb net
Tags:

5 Comments

  1. Pingback: Option File Player 2015 untuk PES 2006

Leave a Reply

Your email address will not be published. Required fields are marked *