Dim CN As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim temp As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from table1", CN, adOpenDynamic, adLockBatchOptimistic Rs.MoveFirst Do While Not Rs.EOF Set Item = ListView1.ListItems.Add(, , Trim(Rs.Fields("lno")))
关键是你要先把数据库中的字段和listview 中的columns绑定起来。
Dim Item As ListItem
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "代码", ListView1.Width / 2
ListView1.ColumnHeaders.Add , , "真实值", ListView1.Width / 2
Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim temp As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from table1", CN, adOpenDynamic, adLockBatchOptimistic
Rs.MoveFirst
Do While Not Rs.EOF
Set Item = ListView1.ListItems.Add(, , Trim(Rs.Fields("lno")))
Item.ListSubItems.Add , , Trim(Rs.Fields("lname"))
Rs.MoveNext
Loop
Rs.Close
CN.Close