在线等!

Question

我用了一个listview控件。里面已有一些值
其中listview里显示一共是3行14列。
现在想把listview里的值放到数据库里
sqlstr = "insert into [IIS](Service_Name,Port,Path,AccessRead,AccessWrite,Accessexecute,Accessscript,Dirbrowsing,Anonymous,Event_log,Max_Connections,Connectimeout,Service_State,Defaultdoc) values('" & ListView1.ListItems(0).subitem(0).Caption & "' )"
出错。
希望各位大哥大姐们解决一下。最好考虑一下通用性。比如循环呵呵。现在我只有这们点分了。下次多给点

Answer 1

ListView1.ListItems(1).Text '第一行第一列
ListView1.ListItems(1).SubItem(1) '第一行第二列
ListView1.ListItems(2).SubItem(1) '第二行第二列

Answer 2

不对头。说没有.SubItem这个属性样

Answer 3

Dim Conn As New ADODB.Connection
        Dim Rs As New ADODB.Recordset
        ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\db\iis.mdb"
        Conn.Open ConnStr        for i=0 to  ListView1.ListItems.Count
        
        sqlstr = "insert into [IIS](Service_Name,Port,Path,AccessRead,AccessWrite,Accessexecute,Accessscript,Dirbrowsing,Anonymous,Event_log,Max_Connections,Connectimeout,Service_State,Defaultdoc) values('" & ListView1.ListItems(i).Text & "','" & ListView1.ListItems(i).SubItems(1) & "','" & ListView1.ListItems(i).SubItems(2) & "','" & ListView1.ListItems(i).SubItems(3) & "','" & ListView1.ListItems(i).SubItems(4) & "','" & ListView1.ListItems(i).SubItems(5) & "','" & ListView1.ListItems(i).SubItems(6) & "','" & ListView1.ListItems(i).SubItems(7) & "','" & ListView1.ListItems(i).SubItems(8) & "','" & ListView1.ListItems(i).SubItems(9) & "','" & ListView1.ListItems(i).SubItems(10) & "','" & ListView1.ListItems(i).SubItems(11) & "','" & ListView1.ListItems(i).SubItems(12) & "','" & ListView1.ListItems(i).SubItems(13) & "')"
        
        Conn.Execute (sqlstr)
        
        next i
        Conn.Close
        MsgBox "添加成功!", 64, "提示"怎么不对头。想循环一下！指点一下