[VB6] Path di connessione all'interno di un database

[marco.santilli]

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”

[MdE2005]

Guarda questo:

ind = "c:\miofile.mdb"
MsgBox """" & ind & """"

....fammi sapere..

ciao

[marco.santilli]

Ottimo, ci siamo quasi

Ho visto che in risposta mi da il mio link

Ora però non riesco a mettere bene le virgolette....

----------------------------------------------------------
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
----------------------------------------------------------

come la inserisco????

Devo modificare qualcosa????

"""" Connessione """"

Facendo come nel tuo esempio

MsgBox """" Connessione """"

Mi restituisce perfettamente il link cosi scritto:
"H:\Documenti\Database\Bontempi\Nuovo\Server\Datab aseArchivio.mdb"

Riusciresti a darmi la sintassi per la connessione a questo file in path????

Ciao e grazieeeeeeeeee

[mgmg]

Ricordati che se utilizzi H: tutti i pc dovranno avere una cartella di rete condivisa con questa lettera.
Forse sarebbe meglio utilizzare un percorso di tipo assoluto come
\\Documenti\Database\Bontempi\Nuovo\Server\Databas eArchivio.mdb.
Per la connessione puoi impostarla anche in questo modo:

NomeDB = "H:\Documenti\Database\Bontempi\Nuovo\Server\DatabaseArchivio.mdb" 

strCONN2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDB & ";Persist Security Info=False"

Ciao

[marco.santilli]

Ok funzionaaaaaaaaaaaaaaaaaaaaaaaa


Perfetto

Ciao e grazieeeeeeeeeeeeeeeeeeee