??? ?? ?? ??? ?? ???? ?? ??? ???? ??????? ????? 2000 ??? Microsoft Jet UserRoster ?? ????? ?? ?? ????????? ???? ?? ??? ???? ????

Microsoft Access 2000 ??? ????????? ?? ??? Microsoft Visual Basic ?? ????? ???? ???, ?????? ???? ??????? ??? ??? ??? ??? ?????????? ?? ??? ???? ?????? ?? ???? ???? ?? ???? ??? ??? ?? ?????? ?????? ???? ??? ???? ?? ??? ???? ?????

Microsoft ???????????? ?????? ???? ???????? ?? ??? ??? ???? ??, ???? ??? ??? ?? ?????? ?? ?????????? ??? ??? ?????? ???? ?? ????.. ?????? ???????? ?????? ?? ???? ????? ???????? ?? ??? ???????? ????? ??? ?? ???? ?? ????? ???? ???.. ?? ??? ????? ?? ?? ?? ????? ?? ?? ??? ???????????? ???? ?? ?? ??????? ?? ?????? ??? ????? ????? ???????????? ?? ????? ?? ???? ???? ?? ??? ???? ?? ??? ??.. Microsoft ?????? ???????? ?? ????? ????????? ?? ???????????? ?? ?????? ??? ?????? ?? ???? ???, ??, ?? ?? ???????? ?? ???? ??????? ?????????? ?? ?????? ???? ?? ??? ???????? ??????????????? ?? ?????? ?? ???????????? ????? ?? ??? ??????? ???? ??????..?????????? ???? ?????? ???? ?? ?? ??????? ??? ??? Microsoft Jet ??????? ?? ?????? ?? ???????? ?? ?? ????? ??? ???? ADO ???????????? ??????? ?? ?????? ?? ??????? ?? ???? ??? ?? ???????? ?????????? ?? ??? ????? ??????? ???? ??:

• ?????????? ?? ????? ?? ???????? ?? ??? ???
  
• ??????? ???, ??????, ?????????? ID.
  
• ?? ???? ?? ???? ?????????? ??????? ?? ??? ??? ?????? ??? (??? ?????????? ID ???? ????? ??????? ??? ?? ?? ?? ????? ?????????? ?????????? ???? ?? ?? ??? ??? ?????????? ??????? ?? ??? ????? reclaimed ?? ?? ??.)
  
• ??? ?? ???? ?? ???? ?????????? ??????? ???? ??? ??????? ??? ???
  
• ?????????? ???? ?????? ??? ??????? ???????? ?????? ?? ??? ??? ????? ?? ??? ??? ?? ?????????? ??? ?? ?? ???????? ???, ???? ?? ?????????? ???? ?? ??? ??? ?? ???? ????? ???? ?? ???? ???

?????????? ???? ?????? ?? ??????? ???? ?? ?? ???? ??????? ?????????? ?? ?????????? ?? ??????? ???????? isolating ??? ?????? ???

??? ?? ??????

??? ?? ?????? demonstrate, ?? ????? ?? ???? ????:

???:: ????? ??? ??? ?? ???? ????? Microsoft ActiveX ???? ????????? ?? ??? ??? ?? ????? ?? ???, ?? ??? ?? Microsoft ActiveX ???? ???????? 2.x ????????? (???? 2.x ?? 2.1 ?? ??? ?? ???????.) ?????? ???? ????? ??? ???? ?? ???, ????? ??????????????? ????????????? Visual Basic ?????? ???, ?? ????????? ???? ?? ??Microsoft ActiveX ???? ???????? 2.x ???????????? ????? ????? ???

1. ????????? ????? ??????? C:\ ??????? ?? ????????? ??????
2. Microsoft Access ??? C:\Northwind ??????
3. ??????? ????? ??? ????? ????????????? ????????????????? ????-????? ????, ?? ???? ??????.
4. ??????? ?? ShowUsers ?? ??? ??? ???????
5. ??? ShowUsers ??????? ??? ????? ??? ???? ????:

   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
   					

6. ????????? ??????? ?? ??? ????, ?? ?? ????? ???? ??, ?? ?????????? ?? ?????? ShutDownDB (?? ?????? ??? ??? ???? ??? ???? ??? ??? ?? ???? ??????? ?? ??? ????? ??? ???? ???? ?? ???)?
7. C:\Northwind ?? ??? ?? ??? ???
8. Visual Basic Editor ??? ??????? ????? ?? ????? ?? ??? CTRL + G ??????
9. ??????? ????? ??? ????? ???? ???? ?? ENTER ?????:

   ShowUserRosterMultipleUsers
   					

   ????? ??? ?? ??????? ??? ????? ???? ??????? ??? ?????????? ?? ???? ???