Script Delete Record pada List

Berikut ini adalah contoh penggunaan fungsi delete record dengan menggunakan bahasa pemrograman visual basic, fungsi ini digunakan untuk melakukan eksekusi terhadap data yang tampil di ListView, silahkan anda perhatikan gambar berikut ini.

pada gambar diatas, pada list dan delete record yang telah saya lingkari dengan warna merah adalah fungsi atau dua komponen utama yang akan saya bahas pada kesempatan kali ini.

pada komponen List terdapat sebuah data yang mana data tersebut apabila diklik maka fungsi tombol delete akan bisa digunakan, akan tetapi manakala data pada list tidak diklik maka fungsi tombol delete record yang bisa digunakan, akan tetapi saya tidak akan menjelaskan panjang lebar kepada anda, saya hanya akan memberikan script atau code yang bisa digunakan untuk membuat delete record pada data listview, silahkan gunakan script berikut ini.

Private Sub cmddeleterecord_Click()
Warning = MsgBox("Apakah Anda Yakin Akan Menghapus?", vbQuestion + vbYesNo, "Student Information System")
If Warning = vbYes Then
Connection
sql = "SELECT * FROM tblStudentInfo WHERE clng(Student_Code)='" & CLng(txtstudentcode.Text) & "'"
Set rs = New ADODB.Recordset
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
    With rs
        .Delete
    End With
        MsgBox "Data Berhasil Dihapus..", vbInformation, "Success"
End If
End If

    Call GetStudentName

    txtfirstname.Text = ""
    txtmi.Text = ""
    txtlastname.Text = ""
    cbogender.Text = ""
    txtcontactnumber.Text = ""
    txtaddress.Text = ""
    txtfirstname.Enabled = False
    txtmi.Enabled = False
    txtlastname.Enabled = False
    cbogender.Enabled = False
    dtBirthdate.Enabled = False
    txtcontactnumber.Enabled = False
    txtaddress.Enabled = False
    cmdnew.Enabled = True
    cmdupdaterecord.Enabled = False
    cmddeleterecord.Enabled = False
    cmdclose.Caption = "&Close"

Set rs = New ADODB.Recordset
sql = "SELECT Student_Code FROM tblStudentInfo"
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
    With rs
        .MoveLast
            txtstudentcode.Text = !Student_Code + Val(1)
        .Close
    End With
End If
End Sub

Demikian ini adalah Script Delete Record pada List, semoga bisa bermanfaat untuk anda, untuk lebih jelasnya silahkan anda download sourccode aplikasinya dibawah ini.

Script Delete Record pada List