[سعود]

لحذف المحدد
لنفرض اننا نستخدم اداة القائمة Listbox
نقوم بتعيين خاصية Selectionmode لاداة القائمة الى multisimple
ثم نستخدم الكود التالي:

كود :

Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            For Each s In ListBox1.SelectedItems

                Dim cm As New OleDb.OleDbCommand("delete from tb where tname='" & s & "'", con)
                cm.ExecuteNonQuery()

            Next
            Call Form1_Load(Nothing, Nothing)

        Catch ex As Exception
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")

        End Try