Как сохранить подэлемент списка в базу данных

Question

Я хочу сохранить подэлемент списка в таблице

код

Dim sSQL As String
    Dim idx As Integer
    idx = 1
    With lstLVDetails.ListItems
        For idx = idx To .count
                sSQL = "Insert into sample values ('" & .Item(idx) & "', '" & .Item(idx).SubItems(1) & "') "
                RdoVisPay.Execute sSQL, rdExecDirect
        Next idx
       End 

Приведенный выше код не отображает никаких ошибок, но он не вставляет никаких значений.

Что не так в моем коде.

Нужна помощь с кодом ...

Answer 1

Поставить точку останова на:

RdoVisPay.Execute sSQL, rdExecDirect

Эта линия когда-нибудь попадет?В начале, idx = 1. если lstLVDetails.ListItems.Count = 1, вы никогда не нажмете код, чтобы вставить что-либо.