Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs) ' 在会话启动时激发 'Dim cn As SqlClient.SqlConnection 'Dim comd As SqlClient.SqlDataAdapter grid1set = New DataSet cn = New SqlClient.SqlConnection(Application("cnstr")) cn.Open() comd = Nothing comd = New SqlClient.SqlDataAdapter("select id 序号,dt 录入日期,vouch 产品类别,brand 品牌名称,typesize 尺寸,typename 产品名称,pnum 销售数量,price 销售价格,psum 销售金额,et 商场名称,bscid 办事处,subid 分部 from sale ", cn) comd.Fill(grid1set, "sale") comd = Nothing comd = New SqlClient.SqlDataAdapter("select * from product order by vouch,typesize", cn) comd.Fill(grid1set, "product") comd = Nothing comd = New SqlClient.SqlDataAdapter("select * from pricearea order by vouch,vtype", cn) comd.Fill(grid1set, "pricearea") 'Dim c(1) Dim tb As DataTable = grid1set.Tables("sale") Dim boj As DataColumn = tb.Columns(0) Dim uni As UniqueConstraint uni = New UniqueConstraint("nnn", boj) tb.Constraints.Add(uni) Dim c(1) As DataColumn c(0) = boj grid1set.Tables("sale").PrimaryKey = c
Session("Cn") = cn Session("Comd") = comd Session("grid1set") = grid1set 'grid1set.Tables("sale").Rows.Remove(r) End Sub
中使用前一个页面中的DataSet中的数据呢?
' 在会话启动时激发
'Dim cn As SqlClient.SqlConnection 'Dim comd As SqlClient.SqlDataAdapter grid1set = New DataSet
cn = New SqlClient.SqlConnection(Application("cnstr"))
cn.Open()
comd = Nothing
comd = New SqlClient.SqlDataAdapter("select id 序号,dt 录入日期,vouch 产品类别,brand 品牌名称,typesize 尺寸,typename 产品名称,pnum 销售数量,price 销售价格,psum 销售金额,et 商场名称,bscid 办事处,subid 分部 from sale ", cn)
comd.Fill(grid1set, "sale")
comd = Nothing
comd = New SqlClient.SqlDataAdapter("select * from product order by vouch,typesize", cn)
comd.Fill(grid1set, "product") comd = Nothing
comd = New SqlClient.SqlDataAdapter("select * from pricearea order by vouch,vtype", cn)
comd.Fill(grid1set, "pricearea")
'Dim c(1)
Dim tb As DataTable = grid1set.Tables("sale")
Dim boj As DataColumn = tb.Columns(0)
Dim uni As UniqueConstraint
uni = New UniqueConstraint("nnn", boj)
tb.Constraints.Add(uni)
Dim c(1) As DataColumn
c(0) = boj
grid1set.Tables("sale").PrimaryKey = c
Session("Cn") = cn
Session("Comd") = comd
Session("grid1set") = grid1set
'grid1set.Tables("sale").Rows.Remove(r) End Sub
程序级的用application,cache或是xml
程序级的用application,cache
不过最好还是每次都访问一下,不要保存DataSet