
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