MultiSelect listbox

[cajsoft]

Hello again, I thought I'd strike again while the iron is hot!!

Ok, I have 2 events (addfaultcause and deletefaultcause) - on_click

I want to be able to multiselect the items in my listbox (lstfaultcause) and be able to delete the items from both the list box and my SQL table. At present I can delete only one selection at a time, but I'd like to be able to select multiple entries and delete them all at once.

Can someone help? I need to be able to keep the index (shown in code below). I'm using RDO to connect

---Code Begins---

Private sub addfaultcause_click()
Dim infault As String

infault = InputBox("Please enter the Fault Cause? ", "Enter Fault Cause", "")
If infault = "" Then Exit Sub
ans = MsgBox("Are you Sure? ", vbQuestion + vbYesNo, "Question")
If ans = 6 Then
cnCon.Connect = "uid=sa;pwd=;server=" & txtsvr & ";driver={SQL Server};database=" & txtdb & ";"
cnCon.CursorDriver = rdUseOdbc
cnCon.EstablishConnection 'rdDriverNoPrompt
cnCon.AddCause infault
cnCon.Close
lstfaultcause.AddItem (infault)
End Sub

Private Sub deletefaultcause_click()
Dim DelSet As rdoResultset
cnCon.Connect = "uid=sa;pwd=;server=" & txtsvr & ";driver={SQL Server};database=" & txtdb & ";"
cnCon.CursorDriver = rdUseOdbc
cnCon.EstablishConnection 'rdDriverNoPrompt
cnCon.DelCause lstfaultcause.ItemData(lstfaultcause.ListIndex) 'Delcause is SQL-Defined code
Set DelSet = cnCon.LastQueryResults
lstfaultcause.RemoveItem (lstfaultcause.ListIndex)
cnCon.Close
end sub


I guess that I'd have to change the deletefaultcause_click event with need code to allow Multiselect in the list box.

Thanks
Craig.

[davidrobin]

I have never used rdo and ODBC but maybe this will help. Have you tried traversing through the items in the list and if selected remove the item in the list and the subsequent record from the database.
The following code will remove the highlighted rows from the listbox, it works from the last to the first this is because I use the listCount property.

Dim intLoop As Integer
For intLoop = List1.ListCount - 1 To 0 Step -1
If List1.Selected(intLoop) Then
List1.RemoveItem (intLoop)
'place the relevant record delete code here also
End If
Next

[cajsoft]

Thanks... That did the trick! I was nearly there with the code, as I tried something similar but never used the correct syntax.

I'm a very new VB programmer as you can see...

Thanks again,

These forums are great!

Craig.