Pengaturan

Gambar

Lainnya

Tentang KASKUS

Pusat Bantuan

Hubungi Kami

KASKUS Plus

© 2024 KASKUS, PT Darta Media Indonesia. All rights reserved

adzin9810Avatar border
TS
adzin9810
update datatabase dari listview
permisi mastah, ini cara update data dari listview ini gimana ya? saya cari2 di google enggak ketemu2
ini rencananya ketika di klik batal maka stok sebelum itu akan mengupdate data obat di database
ini kode yang saya gunakan tapi masih muncul 

InvalidArgument=Value of '2' is not valid for 'index'.
Parameter name: index

Code:
Dim i As Integer
        i = 1
        Do While (i < 3)
            If i = 1 Then
                With ListView1
                    cmd = New MySqlCommand("update dataobat set KodeObat = '" & .Items(1).SubItems(5).Text & "',NamaObat='" & .Items(1).SubItems(6).Text & "',JumlahObat='" & .Items(1).SubItems(9).Text & "' where KodeObat = '" & .Items(1).SubItems(5).Text & "'", dbconn)
                    Try
                        cmd.ExecuteNonQuery()
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                End With
            ElseIf i = 2 Then
                With ListView1
                    input = New MySqlCommand("update dataobat set KodeObat = '" & .Items(2).SubItems(5).Text & "',NamaObat='" & .Items(2).SubItems(6).Text & "',JumlahObat='" & .Items(2).SubItems(9).Text & "' where KodeObat = '" & .Items(2).SubItems(5).Text & "'", dbconn)
                    Try
                        input.ExecuteNonQuery()
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                End With
            End If
            i += 1
        Loop

nona212Avatar border
nona212 memberi reputasi
1
577
5
GuestAvatar border
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Urutan
Terbaru
Terlama
GuestAvatar border
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Komunitas Pilihan