叶子树logo
首 页 技术教程 新闻资讯 网站展示 酷站欣赏 下载中心 站长故事 字体下载 图片素材
Web www.叶子树 www.qzetx.com.cn
 
  最新推荐→

 
  最新热门→

 
  相关文章→
 您现在的位置: 叶子树 >> 技术教程 >> 网络编程 >> 编程综合 >> 正文

如何确定有多少人登陆数据库?

作者:佚名    文章来源:不详    点击数:    更新时间:2011-3-1         

 

<% if request("infoid")<>"" then set rs=conn.execute("select * from nproduct where id="&request("infoid")) if not (rs.eof and rs.bof) then proname=rs("proname") content=rs("proinfo") end if rs.close set rs=nothing end if %>
本文来源:http://www.qzetx.com.cn/a/www.ptjp.gov.cn/

腾讯分分彩玩组六杀号www.qzetx.com.cn,味甘;性平。近日,省教育厅出台《关于落实以增加知识价值为导向分配政策促进省属高校科技成果转移转化的实施意见》,明确高校科技人员可以到企业和其他科研机构、高校、社会组织等兼职并取得合法报酬;面向企业或其他社会组织开展的技术开发、技术咨询、技术服务、技术培训等横向合作活动,是科技成果转化的重要形式。

Sub ShowUserRosterMultipleUsers()
    Dim cn As New ADODB.Connection
    Dim cn2 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long

    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=c:Northwind.mdb"

    cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source=c:Northwind.mdb"

    ' The user roster is exposed as a provider-specific schema rowset
    ' in the Jet 4 OLE DB provider.  You have to use a GUID to
    ' reference the schema, as provider-specific schemas are not
    ' listed in ADO's type library for schema rowsets

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

    'Output the list of all users in the current database.

    Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
    "", rs.Fields(2).Name, rs.Fields(3).Name

    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), _
        rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend

End Sub

叶子树:www.叶子树 www.qzetx.com.cn
  • 下一篇文章:

  • 文章录入:webshu    责任编辑:webshu 
    叶子树(叶子树)所有资料源于作者发布或网友推荐收集整理而来,仅供学习使用,版权归原作者所有,如有侵权,请您联系我们,我们将尽快更正。

      网友评论:(评论内容只代表网友观点,与本站立场无关!) 发表评论

    网站地图 | 友情链接 | 留言互动 | 版权声明
    Copyright©All return the ye ze shu and 叶子树
    本站广告服务请加QQ:904166(超越-激情)
    京ICP备08103660号 把"叶子树" 与你的好友一起分享!
    浙江舟山飞鱼开奖结果计划 香港开奖结果历史记录 新疆风采18选7开奖结果 辽宁11选5遗漏数据查询 幸运飞艇开奖结果查询
    江西快3预测推荐316计划 北京赛车冠军怎样选5码 电玩城捕鱼 吉林快三实时开奖结果计划 博彩通导航??博彩推广??博彩资讯??天朝博彩论坛??博彩咨询