Dim selstr1 As String = "select * from content where subject like '22%'"
Dim selstr2 As String = "select count(body),count(subject) from content where subject like '22%'"
conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=" & Server.MapPath("discuss.mdb")) Try
comm1 = New OleDbCommand(selstr1, conn)
comm2 = New OleDbCommand(selstr2, conn)
conn.Open()
dr1 = comm1.ExecuteReader()
dr2 = comm2.ExecuteReader
dg1.DataSource = dr1
dg1.DataBind()
dg2.DataSource = dr2
dg2.DataBind()
'rpt1.DataSource = dr
'rpt1.DataBind()
conn.Close()
这时候他会报错:已有datareader打开~~请问有什么方法可以解决这一冲突么~~?多谢~
Dim selstr2 As String = "select count(body),count(subject) from content where subject like '22%'"
conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=" & Server.MapPath("discuss.mdb")) Try
comm1 = New OleDbCommand(selstr1, conn)
comm2 = New OleDbCommand(selstr2, conn)
conn.Open()
dr1 = comm1.ExecuteReader()
dr2 = comm2.ExecuteReader
dg1.DataSource = dr1
dg1.DataBind()
dg2.DataSource = dr2
dg2.DataBind()
'rpt1.DataSource = dr
'rpt1.DataBind()
conn.Close()
这时候他会报错:已有datareader打开~~请问有什么方法可以解决这一冲突么~~?多谢~
dg1.DataSource = dr1
dg1.DataBind()dr1.close()dr2 = comm2.ExecuteReader
dg2.DataSource = dr2
dg2.DataBind()
'rpt1.DataSource = dr
'rpt1.DataBind()
在 dr2 = comm2.ExecuteReader() 之前,先关闭 conn.
dr1 = comm1.ExecuteReader()
dg1.DataSource = dr1
dg1.DataBind()dr1.close()dr2 = comm2.ExecuteReader
dg2.DataSource = dr2
dg2.DataBind()
'rpt1.DataSource = dr
'rpt1.DataBind()