ListView连接数据库问题，假设有三个字段，怎么连接到数据库啊

Question

给你看一段code:
'初始化列表
Private Sub InitLtv()
    ltvView.ColumnHeaders.Add , "Count", "序号", 600
    ltvView.ColumnHeaders.Add , "Date", "日期", 850
    ltvView.ColumnHeaders.Add , "Number", "票号", 650
    ltvView.ColumnHeaders.Add , "Person", "往来方", 800
    ltvView.ColumnHeaders.Add , "Note", "摘要", 1500
    ltvView.ColumnHeaders.Add , "Income", "收入", 700
    ltvView.ColumnHeaders.Add , "Outlay", "支出", 750
    ltvView.ColumnHeaders.Add , "Sum", "结余", 750
End Sub

Answer 1

'装载数据
Private Sub LoadData()
    Dim rstView As ADOCE.Recordset
    Set rstView = g_rstMain.Clone
    
    If rstView.RecordCount > 0 Then
        rstView.MoveFirst
        Dim itemAdd As ListItem
        While Not rstView.EOF
            '序号
            Set itemAdd = ltvView.ListItems.Add(, , CStr(rstView.Fields(0)), 1)
            '日期
            If Not IsNull(rstView.Fields("date")) Then
                itemAdd.SubItems(1) = CStr(rstView.Fields("date"))
            Else
                itemAdd.SubItems(1) = ""
            End If
            '票号
            If Not IsNull(rstView.Fields("number")) Then
                itemAdd.SubItems(2) = CStr(rstView.Fields("number"))
            Else
                itemAdd.SubItems(2) = ""
            End If
            '往来方
            If Not IsNull(rstView.Fields("person")) Then
                itemAdd.SubItems(3) = CStr(rstView.Fields("person"))
            Else
                itemAdd.SubItems(3) = ""
            End If
            '摘要
            If Not IsNull(rstView.Fields("note")) Then
                itemAdd.SubItems(4) = CStr(rstView.Fields("note"))
            Else
                itemAdd.SubItems(4) = ""
            End If
            '收入
            If Not IsNull(rstView.Fields("income")) Then
                itemAdd.SubItems(5) = CCur(rstView.Fields("income"))
            Else
                itemAdd.SubItems(5) = CCur("0.0")
            End If
            '支出
            If Not IsNull(rstView.Fields("outlay")) Then
                itemAdd.SubItems(6) = CCur(rstView.Fields("outlay"))
            Else
                itemAdd.SubItems(6) = CCur("0.0")
            End If
            rstView.MoveNext
        Wend
    End If
    rstView.Close
    Set rstView = Nothing
    
    Call calcSum
End Sub

Answer 2

Public Sub calcSum()
    '计算结余值
    Dim intCount As Integer
    intCount = frmView.ltvView.ListItems.Count
    Dim intTemp As Integer
    intTemp = 1
    Dim dblLastSum As Double
    dblLastSum = 0
    On Error Resume Next
    While Not intTemp = intCount + 1
        ltvView.ListItems.Item(intTemp).SubItems(7) = _
            CCur(ltvView.ListItems.Item(intTemp).SubItems(5)) - _
            CCur(ltvView.ListItems.Item(intTemp).SubItems(6)) + dblLastSum
        dblLastSum = ltvView.ListItems.Item(intTemp).SubItems(7)
        intTemp = intTemp + 1
    Wend
    If Err.Number <> 0 Then
        Call CatchErr("mdlView", "calcSum", Err.Number, Err.Description)
    End If
End Sub