如何提高速度?
踏平扶桑 2004-09-24 08:15:30 在SQL中有个数据库,7个字段,每个字段大概有3000多条记录。我用Listview控件来显示,但
是读取数据得时候很慢(不是SQL得问题,我首先取得全部数据,然后for把它们添加到listvi
ew中)
请问有什么好得方法来提高速度没有?下面是代码
rs.Open "select * from TChatUser", rn, adOpenStatic, adLockPessimistic
For intlienum = 0 To rs.Fields.Count - 1'获取字段名
List1.ColumnHeaders.add , , rs(intlienum).Name'添加字段名
For intrecnum = 0 To rs.RecordCount - 1'取得记录
If intlienum = 0 Then'特别处理
List1.ListItems.add , , rs(intlienum)
Else
List1.ListItems(intrecnum + 1).ListSubItems.add , , rs(intlienum)'添加记
录
End If
rs.MoveNext
Next
On Error Resume Next
rs.MoveFirst
Next
谢谢!