list view problem

[mheiy]

in my list view i have a checkbox how can i put the one that the user check in the list view to the database

If LV1.ListItems.Count - 1 > -1 Then
                
                ItemCount = -1
                For Each ls In LV1.ListItems
                    If ls.Checked = True Then
                        ItemCount = ItemCount + 1
                    End If
                Next
                
                ReDim AccessTitle(ItemCount)
                
               i = 0
               For Each ls In LV1.ListItems
                
                    If ls.Checked = True Then
                    
                        AccessTitle(i) = ls.Text
                        i = i + 1
                    End If
                Next
    End If
    
End Sub
 
'Private Sub cmbType_Click()
'
'    If cmbType.Text = sAdministratortitle Then
'
'        For Each ls In LV1.ListItems
'            If ls.SubItems(1) = sAdministratortitle Then
'                ls.Checked = True
'            End If
'        Next
'
'
'    ElseIf cmbType.Text = sEncoderTitle Then
'
'        For Each ls In LV1.ListItems
'            If ls.SubItems(1) = sAdministratortitle Then
'                ls.Checked = False
'            End If
'        Next
'
'    End If

[Paul M]

eh what do you mean by database? txt file or something else?

[mheiy]

a text

[Paul M]

hmm do you have more than one column header?

[mheiy]

no i only have 1 column

[Paul M]

kk ill figure something out for you one moment

[Paul M]

hmm do you want it to be removed once you send it to the txt file?

[mheiy]

no i just want it to put in the database

[Paul M]

Private Sub Command2_Click()
On Error Resume Next
Open App.Path & "\lst.txt" For Output As #1
Dim it As ListItem
For Each it In ListView1.ListItems
If it.Checked = True Then
Print #1, it
End If
Next
End Sub

this worked for me it send all the checked items to the lst.txt file