Creare in modo programmatico connessioni ODBC e tabelle di collegamento in MS Access

Question

Stiamo utilizzando MS Access come front-end di reporting per Oracle. Si accede ai dati tramite una connessione ODBC e ci sono due tabelle collegate in Access to Oracle che sono le tabelle di dati non elaborati. Mi piacerebbe essere in grado di impostare la connessione e collegare le tabelle all'interno del file di accesso. In questo modo gli utenti non devono preoccuparsi di impostare un DSN per la connessione ODBC (la maggior parte di questi non sono utenti molto tecnici, e richiedono una mano per qualcosa di simile), e possiamo finalmente avere il file Access in diversi ambienti di test e generare report.

E 'possibile avere la connessione al database creata dinamicamente quando il file viene aperto, e posso cambiare dinamicamente a cui collegano le mie tabelle collegate?

Answer 1

Si desidera una connessione tabella collegata senza DSN da Access. È possibile e l'ho fatto ma non ho il codice con me. Penso che fosse qualcosa di simile al seguente (questo utilizza una fonte SQL Server ma Oracle avrebbe solo una stringa di connessione leggermente diversa). Per fare in modo che le tabelle vengano create all'avvio, è necessario verificare l'esistenza di ogni tagledef prima di tentare di crearle di nuovo e chiamare una subroutine come quella in basso quando il database di Access è aperto.

Function LinkTables() 
    Dim DB As Database, tDef As TableDef 
    Set DB = CurrentDb 
    Set tDef = DB.CreateTableDef("YourAccessLinkedTableNameHere") 
    tDef.Connect = "ODBC;Driver={SQL Server};Server=srvname;Database=dbname;UID=sqluserid;PWD=sqlpwd" 
    tDef.SourceTableName = "dbo.YourSourceTableNameHere" 
    DB.TableDefs.Append tDef 
End Function 

Answer 2

faccio la mia programmazione su una workstation con un DSN definito, e quindi prima di distribuire per l'uso in produzione, eseguire una variante di Doug Steele's code to convert all the DSN-based connect strings to be DSN-less.