データベース

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 

上記のコードは、エラーが表示されない中でのListViewのサブ項目を保存したいが、それは任意の値を挿入されていません。

私のコードで何が間違っていますか。

Answer 1

がにブレークポイントを入れて...コードの助けが必要：

RdoVisPay.Execute sSQL, rdExecDirect 

は、このラインが今まで打たですか？最初はidx = 1. lstLVDetails.ListItems.Count = 1の場合は、コードを挿入して何も挿入しません。