Ho due database:

Archivio.mdb
DatabaseArchivio.mdb


Il primo database “Archivio.mdb” sta nella cartella di ogni PC, quindi in locale
Mentre sul server c’è il secondo database


All’interno di questo database c’è una tabella: “Connessioni”
Dentro questa tabella c’è un campo “Archivio”, in cui vi è salvato per adesso questo valore
H:\Documenti\Database\Bontempi\Nuovo\Server\Databa seArchivio.mdb

Adesso io mi connetto al primo database in locale:

Dim strCONN As String
Dim Connessione As String

strCONN = "Provider=Microsoft.Jet.OLEDB.4.0;"
strCONN = strCONN & "Data Source=" & App.Path & "\Archivio.mdb;"
strCONN = strCONN & "Jet OLEDB:Engine Type=5;"

Set CnConnessioni = New ADODB.Connection
CnConnessioni.Open strCONN


Set rsRecordSetConnessioni = New ADODB.Recordset
rsRecordSetConnessioni.Open "SELECT [Archivio] From [Connessioni]", CnConnessioni, adOpenStatic, adLockOptimistic

Connessione = rsRecordSetConnessioni!Archivio & ""


A questo punto nella variabile “Connessione” ci deve essere il link estrapolato e quindi:
H:\Documenti\Database\Bontempi\Nuovo\Server\Databa seArchivio.mdb


Ora devo aprire la connessione con il database che sta nel server, ho messo il file “DatabaseArchivio.mdb” in un h.d. diverso da quello dove sto lavorando in maniera tale da accedervi con la path intera.

Dim strCONN2 As String
strCONN2 = "Provider=Microsoft.Jet.OLEDB.4.0;"
'strCONN2 = strCONN2 & "Data Source= "…………………………………………………"
strCONN2 = strCONN2 & "Jet OLEDB:Engine Type=5;"

Set Cn = New ADODB.Connection
Cn.Open strCONN2

Dopo Data Source come faccio ad inserire il link contenuto nella variabile “Connessione”