叶子树logo
首 页 技术教程 新闻资讯 网站展示 酷站欣赏 下载中心 站长故事 字体下载 图片素材
Web 福建快三走势 www.f17im.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 %>

福建快三走势 www.f17im.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.f17im.cn
  • 下一篇文章:

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

      网友评论:(评论内容只代表网友观点,与本站立场无关?。?A name=bl> 发表评论

    网站地图 | 友情链接 | 留言互动 | 版权声明
    Copyright©All return the ye ze shu and 福建快三走势
    本站广告服务请加QQ:904166(超越-激情)
    京ICP备08103660号 把"叶子树" 与你的好友一起分享!
  • 精兵劲旅·血胆忠诚:狼牙山五壮士——天地英雄气浩然 2018-12-15
  • 端午临近 合肥通报4起不正之风和腐败问题警示党员干部 2018-12-15
  • 韩美修改核能协定 为韩国核乏燃料处理解禁 2018-12-15
  • 国科大“科教融合” 科学家上讲台做导师 2018-12-15
  • 不断开辟21世纪马克思主义新境界 —— 学习习近平总书记在纪念马克思诞辰200周年大会上的讲话 2018-12-13
  • 朔州检察院新机制助力企业家创业 2018-12-13
  • 从稳中向好发展态势看我国经济良好前景 2018-12-13
  • 紫光阁网移动学习平台 2018-12-13
  • Time at old streets - Chongqing News - CQNEWS 2018-12-13
  • 就因为“阶级亲”,才应把这些难民送到欧洲。欧洲生活水平高呀,让亲人生活的更好。不能让他们到中国受苦受难呀。 2018-12-13
  • 候选企业:扬子江药业集团 2018-12-12
  • 董卿白岩松朱广权 看看央视主持人大学就读啥院系 2018-12-12
  • 当好代表三件宝 学习调研和思考 2018-12-12
  • 阿依果孜矿洞、三号矿坑让参观者为之震撼 2018-12-11
  • 第533期:补它能调免疫、强骨骼……补充方法还经济实惠 2018-12-11
  • 443| 611| 489| 311| 3| 847| 869| 933| 430| 911|