请问VB6中ListView控件如何和数据库绑定，比如说ADODC控件

Question

请问VB6中ListView控件如何和数据库绑定，比如说ADODC控件

Answer 1

有一个datafieldh 属性进行字段绑定
 datasource属性进行数据库的绑定

Answer 2

Private Sub CmdSearch_Click()
    ListView1.ListItems.Clear
    If rshkblsk.State = adStateOpen Then rshkblsk.Close
    rshkblsk.Open "select dwbh ,dwmc,sum(sjysl) as ysl from hkblsk where nd=" & dcnd.Text & " and yf=" & dcyf.Text & " group by dwbh,dwmc order by dwbh", conn, adOpenForwardOnly, adLockReadOnly, adCmdText
    If rshkblsk.RecordCount > 0 Then rshkblsk.MoveFirst
    Do While Not rshkblsk.EOF
     Dim item1 As ListItem
     Set item1 = ListView1.ListItems.Add(, , rshkblsk.Fields(0))
      For i = 1 To rshkblsk.Fields.Count - 1
         item1.SubItems(i) = rshkblsk.Fields(i)
       Next
      rshkblsk.MoveNext
      Loop
End Sub

Answer 3

你可以像这样来给listview赋值。（通过clsP记录集）Do While Not clsP.rsPlant.EOF
       
            Dim vListItem As ListItem
            i = i + 1
            a = clsP.srhSD(clsP.rsPlant("bz"), mPlantM.vFltSDate, mPlantM.vFltEDate)
            a = clsP.srhCD(clsP.rsPlant("pbz"), mPlantM.vFltSDate, mPlantM.vFltEDate)
            Set vListItem = ListView1.ListItems.add(i, clsP.rsPlant("pbz"), DateValue(clsP.rsPlant("riqi")))
            ListView1.ListItems(i).ListSubItems.add 1, , clsP.rsPlant("buyer")
            ListView1.ListItems(i).ListSubItems.add 2, clsP.rsPlant("bz"), clsP.rsPlant("sn")
            ListView1.ListItems(i).ListSubItems.add 3, , clsP.rsPlant("kind")
            ListView1.ListItems(i).ListSubItems.add 4, , clsP.rsPlant("inch")
            ListView1.ListItems(i).ListSubItems.add 5, , clsP.rsPlant("guage")
            ListView1.ListItems(i).ListSubItems.add 6, , clsP.rsPlant("gsort")
            ListView1.ListItems(i).ListSubItems.add 7, , clsP.rsPlant("fu")
            ListView1.ListItems(i).ListSubItems.add 8, , clsP.rsPlant("gm")
            ListView1.ListItems(i).ListSubItems.add 9, , clsP.rsPlant("gmm")
            ListView1.ListItems(i).ListSubItems.add 10, , clsP.rsPlant("sexiang")
            ListView1.ListItems(i).ListSubItems.add 11, , clsP.rsPlant("sefan")
            ListView1.ListItems(i).ListSubItems.add 12, , clsP.rsPlant("rcount")
            ListView1.ListItems(i).ListSubItems.add 13, , clsP.rsPlant("price")
            clsP.rsPlant.MoveNext
           
   Loop