[VB.NET]: Modificare le impostazioni di protezione di Access

[Another]

ok

x oregon

è quello che ho fatto fino ad ora, il problema rimane la protezione, problema che la soluzione da te indicata purtroppo non risolve

In the case of Access, it is designed to be used for password-protected databases and requires you to identify the System Database for Access (generally in C:\Program files\Microsoft office\Office\System.mdw). When you connect to the Access database, the application reads the MSysObjects table (see the Query in Connect Method of the CAccessDatabase class), so permission to read this table must be granted to the user

[oregon]

Di quale protezione parli ?

[Another]

la protezione della tabella msysobjects, poichè di default i db non hanno impostato il permesso di lettura sulla tabella nemmeno per l'utente amministratore

tu hai altri metodi per ricavare la lista degli oggetti (nome, tipo e data di update)? non solo tabelle e query ma anche forms, codice, macro e report

[oregon]

Veramente se apri un qualsiasi db Access e fai una query del tipo

select * from msysobjects

ottieni tranquillamente i risultati ...

[Another]

certo, ma nn se lo fai da una applicazione esterna

[oregon]

Ok ... ma tu quali informazioni specifiche devi leggere da quella tabella?

Potresti usare ADOX ...

[Another]

nome oggetto, tipo (x stabilire se tabella, query, ecc.) e data update

[oregon]

Hai controllato se con ADOX puoi ottenere le informazioni che vuoi?

(Le prime quasi certamente, non so l'ultima ...)

[Another]

ok, vada per l'ADOX

ho aggiunto i riferimenti a
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ADO Ext. 2.8 for DDL and Security

inserito i lcodice

       ' si collega al db
        Dim conn As New ADODB.Connection
        With conn
            conn.Provider = "Microsoft.Jet.OLEDB.4.0"
            conn.Mode = ADODB.ConnectModeEnum.adModeShareExclusive
            conn.Open("[percorso.mdb]", "Admin", "")
        End With

        Dim cat As New ADOX.Catalog
        cat.ActiveConnection = conn

        cat.Users("Admin").SetPermissions("MSysObjects", ADOX.ObjectTypeEnum.adPermObjTable, ADOX.ActionEnum.adAccessGrant, ADOX.RightsEnum.adRightRead)
        ' chiude la connessione
        conn.Close()
        conn = Nothing
        cat = Nothing

e cercato di modificare i permessi per l'amministratore sulla fantomatica tabella MSysObjects
ma a runtime ricevo errore
L'operazione richiesta non è supportata dall'oggetto o dal provider

cavolo come è possibile?

[Another]

ho anche provato semplicemente a leggere i dati

Dim ssql As String
ssql = "SELECT name, dateupdate FROM struttura_db WHERE (Type IN (1,6) AND Name NOT LIKE 'msys%' AND Name NOT LIKE '~%') ORDER BY Name"
Dim oRs As New ADODB.Recordset
oRs.Open(ssql, conn)

ma -->
Impossibile leggere record. Autorizzazione di lettura non disponibile per "MSysObjects".