[VB.NET]请问一个页面后台中 进行2次数据库读取 上下之间的值怎
发布时间：2020-12-16 23:45:43 所属栏目：大数据 来源：网络整理
导读：请问一个页面后台中 进行2次数据库读取 上下之间的值怎么传 在线等!!!!! 就像着样 Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load idd = CInt(Request( "companyid ")) If Not IsPostBack Then gst
|
请问一个页面后台中 进行2次数据库读取 上下之间的值怎么传 在线等!!!!! 就像着样 Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load idd = CInt(Request( "companyid ")) If Not IsPostBack Then gstp() End If mycmd = New SqlCommand( "Select * from CompanyContent where companyid= " & idd,myconn) myconn.Open() dtr = mycmd.ExecuteReader() While dtr.Read() user_id = dtr( "user_id ").ToString companyname = dtr( "companyname ").ToString companyaddress = dtr( "companyaddress ").ToString companyLxr = dtr( "companyLxr ").ToString companytel = dtr( "companytel ").ToString MlbigClassName = dtr( "MlbigClassName ").ToString Companyms = dtr( "Companyms ").ToString Companyfw = dtr( "Companyfw ").ToString Companygm = dtr( "Companygm ").ToString Companykz = dtr( "Companykz ").ToString Companyyye = dtr( "Companyyye ").ToString Companydjg = dtr( "Companydjg ").ToString Companyyx = dtr( "Companyyx ").ToString Companymj = dtr( "Companymj ").ToString Companycz = dtr( "Companycz ").ToString Companydd = dtr( "Companydd ").ToString Companyyb = dtr( "Companyyb ").ToString zichan = dtr( "zichan ").ToString fuzai = dtr( "fuzai ").ToString Companysj = dtr( "Companysj ").ToString Companyyy = dtr( "Companyyy ").ToString Companyfr = dtr( "Companyfr ").ToString Companylx = dtr( "Companylx ").ToString companyweb = dtr( "companyweb ").ToString Companysw = dtr( "Companysw ").ToString Companykhyh = dtr( "Companykhyh ").ToString Companyyhzh = dtr( "Companyyhzh ").ToString Companyzy = dtr( "Companyzy ").ToString Companyzc = dtr( "Companyzc ").ToString cln = dtr( "cln ").ToString cly = dtr( "cly ").ToString clr = dtr( "clr ").ToString Companyrs = dtr( "Companyrs ").ToString Companygsjj = dtr( "Companygsjj ").ToString Companyjy = dtr( "Companyjy ").ToString End While dtr.Close() myconn.Close() End Sub Sub gstp() ids = (Convert.ToString(Request.QueryString( "user_id "))) Dim dtr As SqlDataReader Dim mycmd As SqlCommand Dim myconn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings( "connectionString ")) mycmd = New SqlCommand( "Select * from gstp where user_id= '' " & ids & " '' ",myconn) myconn.Open() dtr = mycmd.ExecuteReader() While dtr.Read() pic = dtr( "pic ").ToString End While dtr.Close() myconn.Close() End Sub End Class 下面的gstp里怎么读取上面的user_id的值 谢谢. __________________________________________________________________________ 把他保存到比如Session中,在第一次就Session[ "user_id "]＝１２３ 下面就可读取了． __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |