label 无法连续显示同目录下指定数据.

Question

Sub Page_Load
dim connstr as string
connstr=ConfigurationSettings.AppSettings("Connstr")
dim conn as new oledbconnection(connstr)
conn.open() dim strSelect as string
strSelect ="select * from Introduction"
'执行查询命令
dim objCommand as new oledbCommand(strSelect,conn)
'读取数据集
dim objDatareader as oledbDataReader
objDatareader=objCommand.ExecuteReader()
dim name as new label()
dim i as integer

Do While objDataReader.Read()
i=i+1
name=findcontrol("Iname" & objDatareader("Iid"))
name.text=objDatareader("Iname")
name=findcontrol("Icentent" & objDatareader("Iid"))
name.text=objDatareader("Icentent")
Loop
objDatareader.close()
conn.close
end sub<asp:label id="iname1" runat="server"/>
<asp:label id="Icentet1" runat="server"/>运行程序后,我发现数据库一直会处于被打开状态.按照常理应该是数据库中的Iname和Icentent的所有数据被指定显示第几条.可现在是怎么回事...咱们大虾,帮帮我啊......

Answer 1

Do While objDataReader.Read() 
i=i+1dim name as new label() 
name=findcontrol("Iname" & objDatareader("Iid")) 
name.text=objDatareader("Iname") 
name=findcontrol("Icentent" & objDatareader("Iid")) 
name.text=objDatareader("Icentent") 
Loop 

Answer 2

Do While objDataReader.Read()  
i=i+1 dim name as new label()  
name=findcontrol("Iname" & objDatareader("Iid"))  
name.text=objDatareader("Iname")  
name = new label()
name=findcontrol("Icentent" & objDatareader("Iid"))  
name.text=objDatareader("Icentent")  
Loop