Creare collegamenti a tabelle di database protetto da password

lunedì 13 giugno 2011 - 17.47
Tag Elenco Tags  Access (.mdb)

ugk111 Profilo | Junior Member

salve a tutti, ho la necessità di creare dei collegamenti tramite codice di tabelle presenti su un data base condiviso,contenete solo tabelle, fra alcuni utenti ,il seguente codice funziona ma il problema nasce se proteggo il db con password,infatti risponde con il seguente messaggio "password non valida". come posso risolvere il problema ? grazie

Private Sub Comando0_Click()
Dim dbsTemp As Database
Set dbsTemp = OpenDatabase("c:\Prova\connetti.mdb")
ConnectOutput dbsTemp, _
"Anagrafico", _
";DATABASE=C:\Prova\DataBAse Prova\prova_be.mdb", _
"Anagrafico"
dbsTemp.Close
End Sub


Sub ConnectOutput(dbsTemp As Database, _
strTable As String, strConnect As String, _
strSourceTable As String)
Dim tdfLinked As TableDef
Dim rstLinked As Recordset
Dim intTemp As Integer
Set tdfLinked = dbsTemp.CreateTableDef(strTable, False)
tdfLinked.Connect = strConnect
tdfLinked.SourceTableName = strSourceTable
dbsTemp.TableDefs.Append tdfLinked
Set rstLinked = dbsTemp.OpenRecordset(strTable)
End Sub

alx_81 Profilo | Guru

>salve a tutti, ho la necessità di creare dei collegamenti tramite
>codice di tabelle presenti su un data base condiviso,contenete
>solo tabelle, fra alcuni utenti ,il seguente codice funziona
>ma il problema nasce se proteggo il db con password,infatti risponde
>con il seguente messaggio "password non valida". come posso risolvere
>il problema ?
cambiando la connectionstring come indicato qui:
http://connectionstrings.com/access-2007

>grazie
di nulla!
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

ugk111 Profilo | Junior Member

grazie per la rsposta ,ho riscritto il codice come segue ma ottengo come errore "argomento non valido" alla riga dbsTemp.TableDefs.Append tdfLinked cosa sbaglio ?

Set dbsTemp = OpenDatabase("c:\prova\connetti.mdb")
DataConnessione = ";DataBase=C:\prova\DataBAse prova\prova_be.mdb;Jet OLEDB:Database Password=pippo;"

ConnectOutput dbsTemp, _
"Articoli", _
DataConnessione, _
"Articoli"


dbsTemp.Close
End Sub


Sub ConnectOutput(dbsTemp As Database, _
strTable As String, strConnect As String, _
strSourceTable As String)
Dim tdfLinked As TableDef
Dim rstLinked As Recordset
Dim intTemp As Integer
Set tdfLinked = dbsTemp.CreateTableDef(strTable, False)
tdfLinked.Connect = strConnect
tdfLinked.SourceTableName = strSourceTable
dbsTemp.TableDefs.Append tdfLinked
Set rstLinked = dbsTemp.OpenRecordset(strTable)

alx_81 Profilo | Guru

>grazie per la rsposta ,ho riscritto il codice come segue ma ottengo
>come errore "argomento non valido" alla riga dbsTemp.TableDefs.Append
>tdfLinked cosa sbaglio ?
che versione di access usi?
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

ugk111 Profilo | Junior Member

access 2003 per problemi di compatibilità verso il basso

alx_81 Profilo | Guru

>access 2003 per problemi di compatibilità verso il basso
in tal caso, visto che non usi ACE, prova una di queste:
http://www.connectionstrings.com/access
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

ugk111 Profilo | Junior Member

avevo già visitato il link da te proposto ma non ho risolto nulla

alx_81 Profilo | Guru

>avevo già visitato il link da te proposto ma non ho risolto nulla
questo link però è diverso. Ora, non so se l'avevi già usato. Ma questo è per le versioni precedenti ad Access 2007.
Con una di quelle connection string deve andare
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

ugk111 Profilo | Junior Member

ti ringrazio per i preziosi suggerimenti e ho risolto in con questa stringa
"ODBC;DATABASE=c:\prova\DataBaseA.mdb;UID=Admin;PWD=PasswordDataBaseB;DSN=C:\prova1\DataBaseB.mdb;"
dove dataBAse A è il data base che richiede la connessione,il DtaBAseB è il DataBAse che contiene le tabelle da collegare al database A e passwordDataBAseB è ovviamente la passoword del databaseB. Spero possa servire ad altri con il mio problema
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5