Importazione Massiva Connessioni Driver ODBC

Question

Buongiorno,

ho un annoso problema riguardante il tema in oggetto.

Nella mia azienda utilizziamo un gestionale in java che utilizza dei db informix, per attingere i dati in modo personalizzato utilizziamo un gestionale parallelo artigianale in MS Access sul quale girano alcune maschere, query e report che ovviamente per prelevare i dati di ogni anno hanno necessita' del relativo collegamento di origine dati (come da foto)

Il problema che riscontro e a cui non ho mai trovato soluzione e' l'esportazione o l'importazione massiva di questi collegamenti, che sono costretto a fare manualmente (2 per ogni anno) su ogni nuova postazione.

Avevo trovato una guida anni fa dove utilizzando i file di registro di Windows potevo ovviare al problema, ma non ha mai funzionato ne su Windows 10 che sull'11.

Qualche idea al riguardo?

Answer 1

Ho risolto in modo abbastanza semplice, cosa a cui non avevo mai pensato in questi anni, andando a guardare nel registro di sistema utente in questa radice

HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI

Anziche' quella della guida trovata in rete che puntava alle chiavi di registro della macchina.

Esportando la chiave e importandola (test effettuato su Windows 11) tutto e' filato liscio.

Answer 2

Ciao,

ti premetto che non conosco Informix e, essendo ormai in pensione, non ho modo di utilizzare connessioni ODBC.

Io, al lavoro, utilizzavo ODBC verso DB2.

Ho trovato il seguente codice che penso possa essere utilizzato per effettuare dinamicamente la connessione al Db dell'anno di interesse rendendo il nome del Db variabile:

Sub OpenODBCConnection() Dim conn As ObjectSet conn = CreateObject("ADODB.Connection")

conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};" & _"Server=localhost;" & _"Database=testdb;" & _"User=root;" & _"Password=123456;" & _"Option=3;"conn.Open

If conn.State = 1 ThenMsgBox "Connection successful!"ElseMsgBox "Connection failed!"End If

conn.CloseSet conn = NothingEnd Sub

Spero di esserti stato utile

Mimmo