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

Question

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

Код

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, вы никогда не столкнетесь с кодом, чтобы вставить что-либо.