我怎样把数据库中的数据加入listiew中,下面是我的代码

[yqs7977]

Dim conn As New ADODB.Connection
Dim res1 As New ADODB.Recordset
Dim db As New DBPublic
Dim strSql As String
Dim lstItem As ListItem

DTPicker1.Value = "2004-1-1 00:00:00"
DTPicker2.Value = Now

conn.ConnectionString = db.getConnString
conn.Open

'设置产品销往地区
strSql = "select distinct(DisctrictName) from T_NUM_Disctrict"
Set res1 = conn.Execute(strSql)

res1.MoveFirst

While Not res1.EOF
Set lstItem = ListView1.ListItems.Add
lstItem.Text = res1.Fields("DisctrictName")
res1.movenext
Wend

[yqs7977]

那位帮我看一下,我是刚从pb转过来的

[daisy8675]

一样的啊。你上面是对的

[artoksxb]

没有试过。可不可这样写
dim i as integer
i=1
While Not res1.EOF
ListView1.ListItems.Add.index=i
ListView1.ListItems.Add.key="key" & i
ListView1.ListItems.Add.text=res1.Fields("DisctrictName")
res1.movenext
i=i+1
Wend

[felix]

While Not res1.EOF
lstItem.AddItem = res1.Fields("DisctrictName")
res1.movenext
Wend