网络编程
每日更新|TOP排行榜|Tag标签|充值
网络编程教程模板无忧>建站教程>网络编程>Access数据库教程>
收藏分享查看评论Access数据库教程
大中小

如何确定有多少人登陆数据库？_Access数据库教程

编辑Tag赚U币
教程Tag：暂无Tag,欢迎添加,赚取U币!

推荐：使用准则进行条件查询
指定多个准则可以对相同的字段或不同的字段输入多个准则。在多个“准则”单元格中输入表达式时，Microsoft Access 将使用 And 或 Or 运算符进行组合。如果此表达式是在同一行的不同单



以下为引用的内容：
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 SuD

分享：取得磁碟机之Volumn及Serial Number
适用ACCESS97、2000 这两项磁碟机资料须使用API函数方可取得，代码如下： 以下为引用的内容： Private Declare Function GetVolumeInf

来源：模板无忧//所属分类：Access数据库教程/更新时间：2008-08-22
[收藏][报错][返回列表]
相关Access数据库教程：