[ASK VB6]UPDATE MULTIPLE ROW DI LISTVIEW VB6

Beranda

...

Programmer Forum
[ASK VB6]UPDATE MULTIPLE ROW DI LISTVIEW VB6

RayZaa

30-06-2013 03:55

[ASK VB6]UPDATE MULTIPLE ROW DI LISTVIEW VB6

Permisi..saya ingin bertanya tentang update beberapa row di listview yang datanya di ambil dari beberapa record dari database..

Jadi ceritanya begini..ane sedang buat program penjualan di sebuah warung bakso..nah di warung bakso itu punya menu yang memiliki beberapa item di masing2 menu..akhirnya ane buat beberapa tabel untuk mengatasi itu..ane punya tabel Menu yang memuat nama menu dan harga menu...masing2 menu mempunyai beberapa item yang ane simpan di tabel MenuDetail..masing2 item di menu detail memuat kode menu (dari tabel Menu), kode barang dan harga barang yang di ambil dari tabel Barang

Sistemnya, setelah admin memilih menu dan memasukkan jumlah pembelian menu tersebut lalu menekan tombol enter, item2 di masing2 menu akan muncul di listview..

Spoiler for Seperti gini:

Klo huruf depan dari kode = "M" itu artinya yang dipilih adalah Menu

nah sekarang permasalahannya adalah bagaimana update data di listviewnya..karena sistemnya jika kode barang sama (yang huruf depannya "B") maka qty dan jumlah nya akan di tambahkan..ane udah coba2 metode looping, tp yang terupdate cuma kode barang yang paling awal yang ada di listview sedangkan kode barang sisanya tidak terupdate alias looping nya selesai...

Spoiler for Ini coding looping nya:

If Left$(Text(3), 1) = "M" Then
SQLString = "SELECT kditemmenu,b.namabarang,b.hargajual,qty FROM menudetail AS m " & _
"JOIN barang AS b ON b.kodebarang = m.kditemmenu " & _
"WHERE m.kodemenu = '" & Text(3) & "' ORDER BY m.kditemmenu ASC"
rs.Open SQLString, cn

A = 0
'Do
For I% = 1 To .ListItems.Count
'Do While Not rs.EOF
If rs(0) = .ListItems.Item(I%).Text Then
For A = 1 To .ListItems.Count
' Do While Not rs.EOF
.ListItems.Item(A).SubItems(3) = .ListItems.Item(A).SubItems(3) + rs(3)
.ListItems.Item(A).SubItems(4) = Format(.ListItems.Item(A).SubItems(4) + Jumlah, "#,##0")
GoTo Lanjut
'Exit For
rs.MoveNext
Next A
' Loop
End If

'Loop
Next I%
'Loop While Not rs.EOF

'Memasukkan data ke listview
Do While Not rs.EOF
Set lst = .ListItems.Add(, , IIf(IsNull(rs(0)), "", rs(0))) 'Kode Barang
lst.SubItems(1) = IIf(IsNull(rs(1)), "", rs(1)) 'Nama Barang
lst.SubItems(2) = rs(2) 'Harga
lst.SubItems(3) = IIf(Val(rs(3)) <= 0, 1, rs(3) * Text(7)) 'Qty
lst.SubItems(4) = IIf(Val(Text(8)) <= 0, Format(HBaru, "#,##0"), Text(8))
rs.MoveNext
Loop
End If

Maaf agak berantakan codingnya, soalnya masi trial n error pke looping emoticon-Malu (S)