Cara Simpan Baris Atau Row Listview Ke Database | Visual Basic 6.0

14 views
Pada tutorial kali ini admin akan share source code perihal simpan baris atau row listiview ke database. Untuk database yang admin gunakan Microsoft Access 2000 dan beberapa komponen pendukung seperti 
1. Listview
2. Label
3. TextBox
4. CommandButton

Langsung saja masuk ke pokok pembahasan. Untuk beberapa data yang diinputkan dengan mengkilik tombol Add to Cart data tersebut tersimpan pada baris atau row listiview bersifat array dan belum masuk ke database, dikala penginputan data dirasa telah final klik tombol Save to Database gres seluruh data-data yang terdapat pada baris atau row listview tersimpan semuanya ke dalam database dengan metode coding looping ditandai dengan pesan data tersimpan sukses.
Buka Microsoft Visual Basic 6.0 – standartEXE – form, lalu desainlah form dan komponen-komponen pendukungnya kurang lebih menyerupai tampilan gambar diatas. Double klik pada form lalu deklarasikan beberapa variabel dibawah ini pada posisi mekanisme (GENERAL)
Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim lst As MSComctlLib.ListItem
Pada mekanisme Form_Load copikan coding Koneksi ke database dan pembuatan ColumnHeader pada listiview dibawah ini
Private Sub Form_Load()
With lvProduct
    .ListItems.Clear
    .ColumnHeaders.Clear
    .ColumnHeaders.Add , , “PCode”, 1500
    .ColumnHeaders.Add , , “Description”, 3500
    .ColumnHeaders.Add , , “Price”, 1500, 1
    .ColumnHeaders.Add , , “Qty”, 1500, 2
    .ColumnHeaders.Add , , “Sub Total”, 1500, 1
End With

Set CN = New ADODB.Connection
With CN
.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\ESS.mdb;Persist Security Info=False”
.Open
End With
End Sub

Dilanjutkan double klik pada tombol Add to Cart dan copykan coding dibawah ini yang berfungsi untuk simpan data ke baris atau row listview

Private Sub cmdAdd_Click()
If Trim(txtPcode.Text) = “” Then
    MsgBox “Tidak boleh kosong”, vbCritical
    Exit Sub
End If
If Trim(txtDesc.Text) = “” Then
    MsgBox “Tidak boleh kosong”, vbCritical
    Exit Sub
End If
If Trim(txtPrice.Text) = “” Then
    MsgBox “Tidak boleh kosong”, vbCritical
    Exit Sub
End If
If Trim(txtQty.Text) = “” Then
    MsgBox “Tidak boleh kosong”, vbCritical
    Exit Sub
End If
If Trim(txtTotal.Text) = “” Then
    MsgBox “Tidak boleh kosong”, vbCritical
    Exit Sub
End If
Set lst = lvProduct.ListItems.Add(, , txtPcode.Text)
    lst.ListSubItems.Add , , txtDesc.Text
    lst.ListSubItems.Add , , txtPrice.Text
    lst.ListSubItems.Add , , txtQty.Text
    lst.ListSubItems.Add , , txtTotal.Text

    Dim I As Integer
    Dim Total1, Total2 As Long
    For I = 1 To lvProduct.ListItems.Count
    Total1 = Val(lvProduct.ListItems(I).ListSubItems(4).Text)
    Total2 = Val(Total2) + Val(Total1)
    Next I
    Label8.Caption = “Jumlah Total : ” & Total2
End Sub

Dan yang berikutnya pada Tombol Save to Database copikan codibng dibawah ini yang berfungsi simpan baris atau row pada listview ke database

Private Sub cmdSave_Click()
On Error GoTo err
Dim ExcelObj As Object
Dim ExcelBook As Object
Dim ExcelSheet As Object
Dim x As Integer

For x = 1 To Me.lvProduct.ListItems.Count
Set Rs = New ADODB.Recordset
With Rs
.Open “Select * from tblSales”, CN, 1, 2
.AddNew
!pcode = lvProduct.ListItems(x).Text
!pdesc = lvProduct.ListItems(x).ListSubItems(1).Text
!price = lvProduct.ListItems(x).ListSubItems(2).Text
!qty = lvProduct.ListItems(x).ListSubItems(3).Text
!total = lvProduct.ListItems(x).ListSubItems(4).Text
.Update
End With
Next
 MsgBox “Data Sukses Tersimpan”, vbInformation, “informasi”
Exit Sub
err:
    MsgBox err.Description, vbCritical
End Sub

Setelah dirasa cukup dan final simpan project diatas lalu RUN/F5 inputkan satu persatu data dengan mengklik tombol Add to Cart hingga beberapa baris atau row lalu klik tombol Save to Database. Maka data pada baris atau row listview akan tersimpan seluruhnya ke dalam database. Untuk lebih detailnya source code ini sanggup didownload di LINK INI dan biar bermanfaat
Author: 
    author
    No related post!