strSQL = "select distinct 记录时间 from 表A order by 记录时间 asc"
objOracleDataCommand.CommandText = strSQL
objOracleDataCommand.Connection = objOracleConnection
DtaResult = objOracleDataCommand.ExecuteReader(CommandBehavior.Default)
Do While DtaResult.Read() = True
If (DtaResult.IsDBNull(0) <> True) Then
strTime = DtaResult(0)
end if
response.write (strTime+"<br>")
strsql=""
strsql="select distinct 分类一 from 表A where 记录时间='" + strTime + "' order by 分类一"
objOracleDataCommand.CommandText = strSQL
objOracleDataCommand.Connection = objOracleConnection
DtaResult1=objOracleDataCommand.ExecuteReader(CommandBehavior.Default)
Do While DtaResult1.Read() = True
If (DtaResult1.IsDBNull(0) <> True) Then
strClassification1 = DtaResult1(0)
end if
response.write (" "+strClassification1+"<br>")
strsql=""
strsql="select distinct 分类二 from 表A where 分类一='" + strClassification1 + "' order by 分类二"
objOracleDataCommand.CommandText = strSQL
objOracleDataCommand.Connection = objOracleConnection
DtaResult2=objOracleDataCommand.ExecuteReader(CommandBehavior.Default)
Do While DtaResult2.Read() = True
If (DtaResult2.IsDBNull(0) <> True) Then
strClassification2 = DtaResult2(0)
end if
response.write (" "+strClassification2+"<br>")
strsql=""
strsql="select 内容 from 表A where 分类二='" + strClassification2 + "'"
objOracleDataCommand.CommandText = strSQL
objOracleDataCommand.Connection = objOracleConnection
DtaResult3=objOracleDataCommand.ExecuteReader(CommandBehavior.Default)
i=0
Do While DtaResult3.Read() = True
If (DtaResult3.IsDBNull(0) <> True) Then
strContent = DtaResult3(0)
end if
i=i+1
response.write (cstr(i)+" "+strContent+"<br>")
Loop
Loop
Loop
Loop
objOracleDataCommand.CommandText = strSQL
objOracleDataCommand.Connection = objOracleConnection
DtaResult = objOracleDataCommand.ExecuteReader(CommandBehavior.Default)
Do While DtaResult.Read() = True
If (DtaResult.IsDBNull(0) <> True) Then
strTime = DtaResult(0)
end if
response.write (strTime+"<br>")
strsql=""
strsql="select distinct 分类一 from 表A where 记录时间='" + strTime + "' order by 分类一"
objOracleDataCommand.CommandText = strSQL
objOracleDataCommand.Connection = objOracleConnection
DtaResult1=objOracleDataCommand.ExecuteReader(CommandBehavior.Default)
Do While DtaResult1.Read() = True
If (DtaResult1.IsDBNull(0) <> True) Then
strClassification1 = DtaResult1(0)
end if
response.write (" "+strClassification1+"<br>")
strsql=""
strsql="select distinct 分类二 from 表A where 分类一='" + strClassification1 + "' order by 分类二"
objOracleDataCommand.CommandText = strSQL
objOracleDataCommand.Connection = objOracleConnection
DtaResult2=objOracleDataCommand.ExecuteReader(CommandBehavior.Default)
Do While DtaResult2.Read() = True
If (DtaResult2.IsDBNull(0) <> True) Then
strClassification2 = DtaResult2(0)
end if
response.write (" "+strClassification2+"<br>")
strsql=""
strsql="select 内容 from 表A where 分类二='" + strClassification2 + "'"
objOracleDataCommand.CommandText = strSQL
objOracleDataCommand.Connection = objOracleConnection
DtaResult3=objOracleDataCommand.ExecuteReader(CommandBehavior.Default)
i=0
Do While DtaResult3.Read() = True
If (DtaResult3.IsDBNull(0) <> True) Then
strContent = DtaResult3(0)
end if
i=i+1
response.write (cstr(i)+" "+strContent+"<br>")
Loop
Loop
Loop
Loop
解决方案 »
- System.Threading.ThreadAbortException: 正在中止线程
- 关于asp.net“<”变成“<”的问题
- ASP.net网站上传出错,各位来看下。
- 弱弱的 问下 企业通是怎么实现的 可以在线视频和语音的
- 修改Exce模板l或程序修改Excel数据问题
- 请教 我想做个电子地图 各位大侠能否提供个解决方案和工具啊?
- 网站建设框架设计
- 在2005的dataview中象2003中datagrid的e.Item.Cells[4].Text该如何写呢
- asp.net搜索小偷C# 乱码问题
- AspNetPager 问题
- 如何用TREEVIEW控件在网页上生成一个目录的目录树?100分
- asp.net访问本地目录生成目录树(急)
如果 sqlconnection.open()后,在第二个循环处又提示需要将sqlconnection.close()
是不是一个sqlconnection只能支持一个sqldatareader.
There is already an open DataReader associated with this Connection which must be closed first.
AspNetPager 免费分页控件3.0版发布,欢迎下载使用:http://www.webdiyer.com