[VB.NET] Copiare dati da un database a un altro database protetto da password

[Cavaliere Nero]

Salve. Ho esigenza di copiare i dati da un database Access97 ad un altro database Access97, questo più o meno ho capito come farlo, ma il problema è che quando va ad eseguire il comando sql per copiarlo mi dice password non valida. Il fatto è che io mi connetto ad un solo database... l'altro lo fa in automatico senza che io gli dia i parametri, la mia domanda è come faccio a dargli la password prima che esegua il comando sql?

Il codice che uso è questo:

Dim objConnection As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programmi\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=pass")        
Dim tr As OleDb.OleDbTransaction         
objConnection.Open()              
tr = objConnection.BeginTransaction(IsolationLevel.ReadCommitted)         
Dim Cmd As New OleDb.OleDbCommand("", objConnection, tr)            
Cmd.CommandText = "insert into tabella select * from tabella in 'c:\\Programmi\db2.mdb'"         
Cmd.ExecuteNonQuery()         
tr.Commit()          
Cmd.Parameters.Clear()         
objConnection.Close()

[Cavaliere Nero]

Il codice funziona, ho anche verificato, ma funziona solo se il database di destinazione non è protetto da password... come si fa a dirgli la password?

[gibra]

Se ha la password è dura...
Provai anch'io tempo fa (in VB6) ma non c'è stato nulla da fare.
Ho cercato anche sul web, ma non sembra proprio fattibile

Alla fine mi sono arreso ed ho optato per la soluzione drastica:
azzerare la password, aprire il db, e poi rimetterla.

[Cavaliere Nero]

E lo si può fare da codice?
Però mi sembra assurdo che non c'è possibilità di connettersi manualmente al secondo database... e anche che non hanno preso in considerazione che il database potesse essere protetto...
Ho cercato anch'io sul Web e non sono riuscito a trovare nemmeno una discussione dove si parlava del problema della password quando si copiano i dati da un database all'altro... nessuno protegge i database?

[alka]

Seguendo il tuo esempio, questa sintassi dovrebbe permetterti di collegarti al database:

insert into tabella select * from tabella in '' [MS Access;PWD=Password;DATABASE=c:\Programmi\db2.mdb]

Spero che il percorso del database che hai indicato non sia "effettivo", in quanto la cartella Programmi ha delle peculiarità in Windows, soprattutto in scrittura.

Ciao!

[Cavaliere Nero]

Il database si trova in una sottocartella della cartella Programmi, comunque adesso non mi da nessun errore, tutto fila liscio, però quando finita l'operazione vado a guardare nel database la tabella di destinazione è ancora vuota... perché adesso non funziona la copia?

[Cavaliere Nero]

Funziona funziona!!
Tra una prova e l'altra avevo cancellato la riga di codice dove confermavo la transazione e ovviamente non veniva eseguita nessuna copia... da spararmi
Grazie infinite, il suggerimento è stato preziosissimo, ormai avevo abbandonato questa strada...

[gibra]

Originariamente inviato da alka
Seguendo il tuo esempio, questa sintassi dovrebbe permetterti di collegarti al database:

insert into tabella select * from tabella in '' [MS Access;PWD=Password;DATABASE=c:\Programmi\db2.mdb]

Ciao!

Grande alka !!!

Anche se non ho capito bene il perchè di quei 2 apici...
Comunque funziona perfettamente.

[Cavaliere Nero]

I due apici racchiudevano l'indirizzo del database... forse se viene messo tra i due apici non serve poi indicargli l'indirizzo tra le parentesi quadre?

[gibra]

Non credo, perchè se tolgo gli apici mi da errore.
Puoi anche sostituire le parentesi quadre con gli apici singoli (ma questo è noto),
ma non puoi togliere quei 2 apici che vengono prima,
quindi la seguente istruzione funziona:

sSql = "SELECT * FROM clienti IN '' 'MS Access;PWD=prova;DATABASE=" & msPROVA_PWD & "'"

mentre questa, senza i 2 apici singoli, non funziona:

sSql = "SELECT * FROM clienti IN 'MS Access;PWD=prova;DATABASE=" & msPROVA_PWD & "'"