Question

vb中如何让数据库字段一一对应 listview控件列中去

代码怎么写

Answer 1

'请自行创建数据库连接gcnn

Dim sql As String
Dim rsTmp As New ADODB.Recordset
Dim LvItem As ListItem

‘listview名为lvArch
LvArch.ColumnHeaders.Clear
LvArch.ListItems.Clear
LvArch.View = lvwReport
LvArch.ColumnHeaders.Add , , "年份", TextWidth(Space(10))
LvArch.ColumnHeaders.Add , , "月份", TextWidth(Space(10)), lvwColumnCenter
LvArch.ColumnHeaders.Add , , "名称", TextWidth(Space(25)), lvwColumnCenter

sql = "select * from T_info"
rsTmp.Open sql, gcnn, adOpenForwardOnly, adLockOptimistic

LvArch.ListItems.Clear
While Not rsTmp.EOF
Set LvItem = LvArch.ListItems.Add(, , rsTmp!FYEAR)
With LvItem
.SubItems(1) = IIf(rsTmp!FMONTH = 0, "", rsTmp!FMONTH)
.SubItems(2) = rsTmp!ftablename
End With
rsTmp.MoveNext
Wend
rsTmp.Close