最新文章专题视频专题问答1问答10问答100问答1000问答2000关键字专题1关键字专题50关键字专题500关键字专题1500TAG最新视频文章推荐1 推荐3 推荐5 推荐7 推荐9 推荐11 推荐13 推荐15 推荐17 推荐19 推荐21 推荐23 推荐25 推荐27 推荐29 推荐31 推荐33 推荐35 推荐37视频文章20视频文章30视频文章40视频文章50视频文章60 视频文章70视频文章80视频文章90视频文章100视频文章120视频文章140 视频2关键字专题关键字专题tag2tag3文章专题文章专题2文章索引1文章索引2文章索引3文章索引4文章索引5123456789101112131415文章专题3
问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501
当前位置: 首页 - 科技 - 知识百科 - 正文

怎样确定有多少人登陆数据库

来源:懂视网 责编:小采 时间:2020-11-09 13:40:54
文档

怎样确定有多少人登陆数据库

怎样确定有多少人登陆数据库: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=Mic
推荐度:
导读怎样确定有多少人登陆数据库: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=Mic

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=Mic

  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

声明:本网页内容旨在传播知识,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。TEL:177 7030 7066 E-MAIL:11247931@qq.com

文档

怎样确定有多少人登陆数据库

怎样确定有多少人登陆数据库: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=Mic
推荐度:
标签: 知道 如何 登陆
  • 热门焦点

最新推荐

猜你喜欢

热门推荐

专题
Top