Menyimpan Data Dalam Listview Ke Database

Pada kesempatan kali ini saya akan memberikan sebuah tutorial cara menyimpan data dalam listview ke database, sebelumnya saya telah menulis tutorial mengenai Driver ODBC yang tidak tampil di windows 7 64bit.
Tulisan ini saya buat karena ada seseorang yang mengirim email yang menanyakan kepada saya cara menyimpan data yang berada dalam listview di simpan (dimasukan) ke dalam sebuah database.
Bagaimana Menyimpan Data Dalam Listview Ke Database ?
Silahkan simak tutorial ini. Sebagai contoh saya akan membuat sebuah form seperti gambar dibawat ini dan trik/tutorial ini dapat anda kembangkan sendiri.

Tampilkan Gambar

Jika sudah membuat form seperti di atas silahkan tambahkan References dengan cara klik menu project lalu pilih References maka akan muncul sebuah jendela baru lalu cari "Microsoft ActiveX Data Object 2.8 Library" jika tidak ada pilih versi yang lain Microsoft ActiveX Data Object 2.7 Library atau Microsoft ActiveX Data Object 2.6 Library atau yang lebih rendah jika sudah ketemu silahkan centrang (cek list) seperti gambar berikut ini

Tampilkan Gambar

Jika sudah silahkan klik kanan pada listview maka akan muncul jendela baru seperti gambar berikut ini

Tampilkan Gambar

Kemudian hilangkan tantang cek list pada gambar yang saya lingkari warna merah tujuannya untuk menampilkan header pada list view.
Jika sudah silahkan tambahkan sebuah modul dengan cara klik menu project lalu pilih add modul, yang nantinya kita gunakan untuk menuliskan kode untuk koneksi ke database dan pengaturan listview.

Jika sudah silahkan ketikan kode berikut pada modul tersebut

Option Explicit
Public Conn As New ADODB.Connection
Public RsMhs As ADODB.Recordset

'Prosedure ini Digunakan untuk Koneksi Ke Database
Public Sub KonekDB()
Set Conn = New ADODB.Connection
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_MHS.mdb"
Conn.CursorLocation = adUseClient
End Sub

'Digunakan untuk mengatur settingan listview
Public Sub AturListView(LSV As ListView, ParamArray lstview())
Dim i, lebar
LSV.View = lvwReport
LSV.GridLines = True
LSV.FullRowSelect = True

lebar = LSV.Width - 80
With LSV.ColumnHeaders
.Clear
For i = 0 To UBound(lstview) - 1 Step 2
.Add , , lstview(i), _
(lstview(i + 1) * lebar) / 100
Next i
End With
End Sub

Ketikan koding berikut ini pada bagian form yang paling atas ( General Declaration)

Option Explicit
Dim i As Integer
Dim View As Object
Dim SQL As String

Jika sudah ketikan kode ini pada Form Load

Private Sub Form_Load()
    Call KonekDB
    Call AturListView(ListView1, "NIM", 14, "NAMA", 28, "ALAMAT", 31, "JURUSAN", 26)
End Sub

Lalu ketikan koding ini pada tombol cmdMasuk

Private Sub cmdMasuk_Click()
    ' Memasukan Data Ke Listview
    Set View = ListView1.ListItems.Add
    View.Text = TxtNim.Text
    View.SubItems(1) = TxtNama
    View.SubItems(2) = TxtAlamat
    View.SubItems(3) = TxtJurusan
    
   'Membersihkan textbox
    TxtNim.Text = ""
    TxtNama.Text = ""
    TxtAlamat.Text = ""
    TxtJurusan.Text = ""
    TxtNim.SetFocus
End Sub

Jika sudah silahkan ketikan kode berikut ini pada tombol cmdSimpan

Private Sub cmdSimpan_Click()
    With ListView1
        For i = 1 To ListView1.ListItems.Count
        
            SQL = ""
            SQL = "INSERT INTO tbl_Mhs(nim,nama,alamat,jurusan)VALUES " _
                & "('" & .ListItems(i).Text & "'," _
                & "'" & .ListItems(i).ListSubItems(1) & "'," _
                & "'" & .ListItems(i).ListSubItems(2) & "'," _
                & "'" & .ListItems(i).ListSubItems(3) & "')"
            Conn.Execute SQL, , adCmdText
    
        Next i
        .ListItems.Clear
        MsgBox "Data Berhasil Disimpan Kedalam Database", vbInformation, "Informasi"
    End With
End Sub

Untuk kode tombol keluar tentunya kalian sudah pada tahu semua.
Jika berhasil maka akan nampak seperti pada gambar animasi berikut ini,

Pada tutorial ini saya belum membahas cara agar data yang masuk/disimpan ke dalam database tidak ada yang double (nim nya ganda), pada tutorial berikutnya saya akan membahas mencegah data double melanjutkan tutorial ini.

Jika anda menginginkan source codenya silahkan download di link dibawah ini, demikian tutorial dari saya semoga dapat bermanfaat.

Link Download Source Code :

• Link 1
• Link 2
• Link 3

Keywords:
Menyimpan Data Dalam Listview Ke Database, Memasukan Data Dalam Listview Ke Database, Bagaimana Menyimpan Data Dalam Listview Ke Database, Bagaimana Memasukan Data Dalam Listview Ke Database, Cara Memasukan Data Dalam Listview Ke Database, Cara Menyimpan Data Dalam Listview Ke Database