Cara Simpan Data Listview Ke Database MySQL Server

Baca Juga :

Pada artikel sebelumnya mengenai membaca dan menampilkan data dari file berformat excel menggunakan komponen listivew dengan judul artikel Cara Membaca dan Menampilkan dari Excel Ke Listview | VB6, untuk artikel kali ini admin masih menggunakan source code Cara Membaca dan Menampilkan dari Excel Ke Listview | VB6 kemudian data yang tampil pada listivew yang berasal dari file berformat excel kemudian disimpan secara keseluruhan ke dalam database mysql server.

Langkah Pertama

Buatlah terlebih dahulu database pada aplikasi MySQL Server dengan nama database dbbelajar

CREATE DATABASE `dbbelajar`

CHARACTER SET 'latin1'

COLLATE 'latin1_swedish_ci';

Dilanjutkan dengan pembuatan tabel dengan nama tblbarang

CREATE TABLE `tblbarang` (

`KdBarang` varchar(15) NOT NULL default '-',

`NamaBarang` varchar(25) default '-',

`Satuan` varchar(10) default '-',

PRIMARY KEY  (`KdBarang`))

ENGINE=MyISAM DEFAULT CHARSET=latin1;

Langkah Kedua

Buka file project source code Cara Membaca dan Menampilkan dari Excel Ke Listview | VB6 tambahkan sebuah module untuk deklarasi function koneksi ke database mysql server dan copy coding dibawah ini

Public CN As New ADODB.Connection

Sub Koneksi()

Dim NServer, NUser, nPass, NDatabase As String

NServer = "localhost"

NUser = "root"

nPass = ""

NDatabase = "dbbelajar"

On Error GoTo ErrKoneksi

CN.CursorLocation = adUseClient

CN.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _

        "SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _

        "UID=" & NUser & ";PWD=" & nPass & ";OPTION=3"

Form1.Show

Exit Sub

ErrKoneksi:

MsgBox " Koneksi database Error.. " & vbCr & vbCr & _

       Err.Description & Err.Number, vbCritical, "Error Koneksi Database"

End

End Sub

Sub Main()

Call Koneksi

End Sub

Kemudian tambahkan 1 (satu) buah commandbutton dan ubah property name nya menjadi cmdSimpan seperti gambar dibawah ini

Double klik pada cmdsimpan copykan coding dibawah ini

If ListView1.ListItems.Count <= 0 Then

   MsgBox "Simpan ke database gagal, tabel listview masih kosong !", vbInformation, "Informasi"

   Exit Sub

End If

   

Me.MousePointer = vbHourglass

Dim xRsSimpan As New ADODB.Recordset

Dim I As Long

On Error GoTo ProsesError

For I = 1 To ListView1.ListItems.Count

Set xRsSimpan = New ADODB.Recordset

xRsSimpan.Open "select * from tblbarang where KdBarang='" & ListView1.ListItems(I).ListSubItems(1) & "'", CN, 1, 3

If Not xRsSimpan.EOF Then

   CN.Execute "update tblbarang set NamaBarang='" & Replace(ListView1.ListItems(I).ListSubItems(2), "'", "") & "'," _

            & "Satuan='" & ListView1.ListItems(I).ListSubItems(3) & "'where KdBarang='" & ListView1.ListItems(I).ListSubItems(1) & "'"

Else

   CN.Execute "insert into tblbarang (KdBarang,NamaBarang," _

            & "SATUAN) values ('" & ListView1.ListItems(I).ListSubItems(1) & "'," _

            & "'" & Replace(ListView1.ListItems(I).ListSubItems(2), "'", "") & "'," _

            & "'" & ListView1.ListItems(I).ListSubItems(3) & "')"

End If

Next I

If xRsSimpan.State Then: xRsSimpan.Close

Set xRsSimpan = Nothing

    

Me.MousePointer = vbDefault

MsgBox "Simpan data sukses !", vbInformation, "Informasi"

Exit Sub

ProsesError:

MsgBox "Simpan data gagal ! ,silahkan cek kembali file import, apakah sudah sesuai atau belum !", vbInformation, "Informasi"

Me.MousePointer = vbDefault

Exit Sub

Sekarang coba kita run/F5 tampilkan terlebih dahulu data dari file berformat excel kemudian klik tombol Simpan seperti gambar dibawah ini

Coba sekarang kita cek tblbarang apakah sukses terisi data dari listview 

tblbarang sukses terinput data dari tabel listview. Cukup sekian uraian singkat Cara Simpan Data Listview Ke Database MySQL Server semoga bermanfaat dan terima kasih banyak atas kunjungannya.

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn

Subscribe untuk berlangganan artikel :