+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 3 su 3

Discussione: problema collegamento ad access con password

  1. #1
    rinogattuso non è in linea Scolaretto
    Post
    52

    problema collegamento ad access con password

    Ho un db access senza password, in esso ho delle tabelle collegate ad un altro db che invece ha la password.

    Ho delle query in cui ho bisogno di fare dei join tra tabelle che sono nel db e quelle che sono collegate (che sono fisicamente nel db con la password)

    Se lancio le query nel db access non mi chiede nessuna password.

    Da excel invece se lancio le query , o faccio solamente un select su una tabella collegata mi dà errore 3031 password non valida.

    per collegarmi al db uso la sintassi

    Set dbs = wrkJet.OpenDatabase(nomedb, False)

    per la query uso la sintassi

    set qdf=dbs.querydef("...")
    qdf.parameters![...
    set rst=qdf.openrecordset

    Sapete per caso come potrei risolvere il problema ?
    Grazie

  2. #2
    L'avatar di willy55
    willy55 non è in linea Scribacchino
    Post
    677
    L'errore 3031 - password non valida (not a valid password) si verifica perché, questa, non è presente nel tuo codice (alla apertura dello specifico database, tramite l'oggetto Workspace) proprio perché il file di Access relazionato è con password (come indichi) quindi devi porla nel parametro Connect:
    https://docs.microsoft.com/en-us/off...ase-method-dao
    https://social.msdn.microsoft.com/Fo...orum=accessdev
    https://stackoverflow.com/questions/...valid-password
    Willy

  3. #3
    rinogattuso non è in linea Scolaretto
    Post
    52
    io ho un db1 senza password che ha delle tabelle collegate ad un db2 che ha una password.
    Purtroppo devo fare delle query in cui ho in join sia tabelle del db1 che tabelle allegate che si connettono al db2.

    io di solito usavo

    Dim wrkJet As Workspace
    Set wrkJet = CreateWorkspace("AreaLavoroJet", "admin", "", dbUseJet)

    ho modificato così ed adesso funziona senza inserire nessuna password
    Dim wrkJet As DAO.Workspace
    Set wrkJet = Access.DBEngine(0)
    Set db1 = wrkspc.OpenDatabase(nomedb, False)

    Grazie

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi