Newsgroup: it.comp.appl.access
Titolo: Collegare tabelle residenti su back-end protetto da mdw

Dopo giorni passati a capire pregi e difetti della protezione con file
mdw, ho letteralmente iniziato a dare i numeri... Ora non riesco
neppure ad effettuare un link di tabelle con i DAO... Posto
direttamente il codice che genera l'errore di runtime 3029 (nome
utente o password non validi), eppure sono proprio corretti, come pure
è corretto il file mdw...
Public Sub Connetti()
Dim wrk As DAO.Workspace
Dim dbs As DAO.Database
DBEngine.SystemDB = "C:\Rassegna\licenza.mdw"
Set wrk = DBEngine.CreateWorkspace("", "Administrator",
"3K4azzITwy2iae")
Set dbs = wrk.OpenDatabase("C:\Rassegna\Archivio\db1.mdb")
Collega
dbs.Close
wrk.Close
End Sub
Sub Collega()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim tdg As DAO.TableDef
Dim tdh As DAO.TableDef
Set dbs = CurrentDb
Set tdf = dbs.CreateTableDef("Articoli")
tdf.Connect = ";DATABASE=C:\Rassegna\Archivio\db1.mdb"
tdf.SourceTableName = "Articoli"
dbs.TableDefs.Append tdf
Set tdg = dbs.CreateTableDef("Autori")
tdg.Connect = ";DATABASE=C:\Rassegna\Archivio\db1.mdb"
tdg.SourceTableName = "Autori"
dbs.TableDefs.Append tdg
Set tdh = dbs.CreateTableDef("Fonti")
tdh.Connect = ";DATABASE=C:\Rassegna\Archivio\db1.mdb"
tdh.SourceTableName = "Fonti"
dbs.TableDefs.Append tdh
End Sub

 ha scritto nel messaggio 
news:ec98e6fa-cb0a-4ee7...@u9g2000yqb.googlegroups.com...
Dopo giorni passati a capire pregi e difetti della protezione con file
mdw, ho letteralmente iniziato a dare i numeri... Ora non riesco
neppure ad effettuare un link di tabelle con i DAO... Posto
direttamente il codice che genera l'errore di runtime 3029 (nome
utente o password non validi), eppure sono proprio corretti, come pure
� corretto il file mdw...
Public Sub Connetti()
Dim wrk As DAO.Workspace
Dim dbs As DAO.Database
DBEngine.SystemDB = "C:\Rassegna\licenza.mdw"
Set wrk = DBEngine.CreateWorkspace("", "Administrator",
"3K4azzITwy2iae")
-----------------------------------------------
Qui sembra mancare il "nome" del Workspace...
Set wrk = DBEngine.CreateWorkspace("MioWork", "Administrator",
"3K4azzITwy2iae")
http://support.microsoft.com/kb/163002
-------------------------------------------
Set dbs = wrk.OpenDatabase("C:\Rassegna\Archivio\db1.mdb")
----------------------------------------------
Qui � sbagliata la sintassi.
Dovrebbe essere:
Set dbs = 
DBEngine.Workspaces("MioWork").OpenDatabase("C:\Rassegna\Archivio\db1.mdb")
Il resto sembra OK.
Ciao, Carlo 

 ha scritto nel messaggionews:ec98e6fa-cb0a-4ee7...@u9g2000yqb.googlegroups.com...

Grazie Carlo, ma nulla da fare. Sempre lo stesso errore 3029. Ho anche
rifatto da capo la protezione.mdw e dichiarato tutte le variabili
stringa. Questa è l'ultima versione (non funzionante).
Option Compare Database
Option Explicit
Public Sub Connetti()
On Error GoTo Err_Connetti
Dim wrk As DAO.Workspace
Dim dbs As DAO.Database
Dim slUserName As String
Dim slPassword As String
Dim programma As String
Dim nomewrk As String
Dim filewrk As String
slUserName = "FinalUser"
slPassword = "3K4azzITwy2iae"
nomewrk = "parametri"
filewrk = "C:\Rassegna\licenza.mdw"
programma = "C:\Rassegna\Archivio\archivio.mdb"
DBEngine.SystemDB = filewrk
Set wrk = DBEngine.CreateWorkspace(nomewrk, slUserName, slPassword)
Set dbs = DBEngine.Workspaces(wrk).OpenDatabase(programma)
Collega
dbs.Close
wrk.Close
Exit_Connetti:
    Exit Sub
Err_Connetti:
    Set wrk = Nothing
    Set dbs = Nothing
    MsgBox Err.Number & Err.Description
    Resume Exit_Connetti
End Sub
Sub Collega()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim tdg As DAO.TableDef
Dim tdh As DAO.TableDef
Set dbs = CurrentDb
Set tdf = dbs.CreateTableDef("Articoli")
tdf.Connect = ";DATABASE=C:\Rassegna\Archivio\archivio.mdb"
tdf.SourceTableName = "Articoli"
dbs.TableDefs.Append tdf
Set tdg = dbs.CreateTableDef("Autori")
tdg.Connect = ";DATABASE=C:\Rassegna\Archivio\archivio.mdb"
tdg.SourceTableName = "Autori"
dbs.TableDefs.Append tdg
Set tdh = dbs.CreateTableDef("Fonti")
tdh.Connect = ";DATABASE=C:\Rassegna\Archivio\archivio.mdb"
