ADO输出到LISTVIEW错误 - 编程论坛

lianyicq2015-07-20 09:44

回复楼主 xxyyx82

在listitem.add前应该ListView1.ColumnHeaders.Add, 把字段名称给ListView
For i = 2 To rs.Recordcount - 1'此处应该是每条记录的列数,而不记录数
Item.SubItems(1) = rs.fields(i)'subitem后括号内应该是个变量,不是1
Next
比如

程序代码：

Private Sub Form_Load()
  Dim con As Object
  Dim rs As Recordset
  Dim itm
  Set con = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")
  con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source='e:\test.xlsx';Extended Properties='Excel 8.0;HDR=Yes'"
  con.Open

  Sql = "select * from [sheet1$]"
  rs.Open Sql, con, 3, 3
  For i = 1 To 5
    ListView1.ColumnHeaders.Add , , i, ListView1.Width / 5, 0
  Next
  Do While Not rs.EOF
    Set Item = ListView1.ListItems.Add()
    Item.Text = rs.Fields(0)
    For i = 1 To 2
      Item.SubItems(i) = rs.Fields(i)
    Next
    rs.MoveNext
  Loop

  ListView1.View = lvwReport
  ListView1.GridLines = True
  rs.Close
  Set rs = Nothing
  con.Close
  Set con = Nothing
End Sub