我想用listview 控件来显示数据库的内容,数据库的连接我已经测试过
没有问题.就是在下面执行到DO while循环时出错了,下面具体哪里出错
我已经标出来了.
请大家帮忙看看哪里出了问题.


Sub listview
Dim Row,oItem,listview1
Dim strcn,cn,RS
Dim is_SQL
Set cn=CreateObject("ADODB.Connection")
Set RS=CreateObject("ADODB.Recordset")
strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=database_test;Data Source=LUO\wincc"
cn.ConnectionString=strcn
cn.Open
RS.Open "select * from database_test1",cn,3,2
Set listview1=ScreenItems("Control1") 'control1是画面上的一个listview控件
With listview1
.ListItems.clear
.ColumnHeaders.Add , , "No.", 30
.ColumnHeaders.Add , , CStr(RS.Fields(0).Name), 70
.ColumnHeaders.Add , , CStr(RS.Fields(1).Name), 150
.ColumnHeaders.Add , , CStr(RS.Fields(2).Name), 150
.ColumnHeaders.Add , , CStr(RS.Fields(3).Name), 150
.ColumnHeaders.Add , , CStr(RS.Fields(4).Name), 150
End With
Row=0
Do While Not RS.EOF
Row=Row+1
Set oItem=listview1.ListItems.Add()
oItem.Text=Left(CStr(Row),5)
oItem.SubItems(1)=CStr(RS.FieldS(0).Value)
oItem.SubItems(2)=CStr(RS.FieldS(1).Value)
oItem.SubItems(3)=CStr(RS.FieldS(2).Value)
oItem.SubItems(4)=CStr(RS.FieldS(3).Value) 执行到这里时提示出错了
oItem.SubItems(5)=CStr(RS.FieldS(4).Value)
RS.MoveNext
Loop
RS.close
cn.close
End Sub