ACC2000: Jet OLE DB Provider Requires Jet 4.0 System Database

ID: Q243466


The information in this article applies to:
  • Microsoft Access 2000

Advanced: Requires expert coding, interoperability, and multiuser skills.

This article applies only to a Microsoft Access database (.mdb).


SYMPTOMS

When you try to use a Microsoft Jet 3.x workgroup information file (system database) with the Microsoft Jet 4.0 OLE DB provider, you may receive the following error message:

The operation requested by the application is not supported by the provider.


CAUSE

The OLE DB APIs make calls that are not supported in the Jet 3.x I-ISAM.


RESOLUTION

Re-create your users and groups in Microsoft Access 2000 to get a system database in the Jet 4.0 format.


MORE INFORMATION

Steps to Reproduce Behavior

  1. Create the following folder in the root of drive C:


  2. C:\Test
  3. Install Access 97.


  4. Copy the sample database Northwind.mdb to the C:\Test folder.


  5. In Windows Explorer, browse to the following folder:
    Windows\System
    NOTE: This is the path to the System.mdw file that is installed by Access 97. On a computer running Windows NT, this file is located in the Winnt\System32 folder.


  6. Copy the System.mdw file to the C:\Test folder.


  7. Install Access 2000 on the same computer. Note that by default the System.mdw file for Access 2000 is installed in the Program Files\Microsoft Office\Office folder.


  8. In Access 2000, create a new database.


  9. Create a new module.


  10. On the Tools menu, click References, and make sure the following references are selected:


  11. Microsoft ActiveX Data Objects 2.1 Library
    Microsoft ADO Ext. 2.1 for DDL and Security
  12. Type the following function in the module:


  13. 
    Function TestWorkgroup()
       Dim conn as ADODB.Connection
       Dim cat as ADOX.Catalog
       Set conn = New ADODB.Connection
    
       conn.Provider = "Microsoft.Jet.OLEDB.4.0"
       conn.Properties("Jet OLEDB:System database") = "C:\Test\System.mdw"
       conn.ConnectionString = "Data Source=c:\test\Northwind.mdb;" _
          & "User Id=Admin;Password=password"
       conn.Open
       Set cat = New ADOX.Catalog
       cat.ActiveConnection = conn
       For Each grp In cat.Users(m_sUserID).Groups  '<== error occurs here
          Debug.Print cat.Users(0).name
       Next
    End Function 
  14. In the Immediate window, type the following function name:


  15. TestWorkgroup
Note that you receive the following error message:
The operation requested by the application is not supported by the provider.

Additional query words: prb directory

Keywords : kbdta
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbprb


Last Reviewed: December 9, 1999
© 2000 Microsoft Corporation. All rights reserved. Terms of Use.