Newsgroup: it.comp.lang.visual-basic
Titolo: creazione di workspace e database x 1db con autorizzazioni

Salve,
sono ancora qua :-p
Adesso che riesco a connettermi al db (access) con una connection ho un
altro problema..
Mi è stato chiesto di fare in modo che da programma vengano anche gestiti
gli account
degli utenti.. e quindi creare/eliminare utenti cambiare password ecc..
Per farlo l'accesso tramite connection non mi basta e ho quindi provato a
creare un oggetto workspace e poiuno database (oggetti per quanto lo sono
quelli di vb6).
Però sono punto e a capo.. non riesco a creare questi oggetti per un
database che richiede
autenticazione a livello utente (username e password).
Ho fatto un paio di tentativi che riporto qua sotto :
1) settare le proprietà di DBEngine
   Dim wrksp as Workspace
 
  DBEngine.SystemDB = "c:\programmi\database\file.mdw"
  DBEngine.DefaultUser = username
  DBEngine.DefaultPassword = password
  Set wrksp = DBEngine.CreateWorkspace("", username, password, dbUseJet)
 
ma mi si blocca con errore 3049 file non riconoscibile o danneggiato ( e
danneggiato non è visto che in altri modi vi accedo senza problemi).
Questa versione l'ho provata anche senza settare default user e default
password ma nn cambia nulla e anche settando le proprietà di DBEngine e nn
specificando username e password in createworkspace
2) senza settare le proprietà di DBEngine e creando direttamente il
workspace
Set wrksp = DBEngine.CreateWorkspace("", password, username, dbUseJet)
mi da errore 3028 file con infodi gruppo mancante o aperto in maniera
esclusiva da un altro utente
3) cercando di creare direttamente un oggetto database
   DBEngine.DefaultPassword = password
   DBEngine.DefaultUser = username
   DBEngine.SystemDB = "c:\programmi\databse\file.mdw"
 
   Set db =
Workspaces(0).opendatabase("c:\programmi\listinomedri\listino1.mdb",
                                                                           True)
   ma mi da lo stesso errore di 1
4) e infine senza specificare le proprietà di DBEngine e cercando di passare
le info nella opendatabase mediante una stringa
 
   Set db = Workspaces(0).opendatabase("c:\programmi\databse\database1.mdb",
True, , _
                    "Jet OLEDB: System database=c:\programmi\listinomedri\protetto.mdw; user id
                      =username; password =password")
 
e mi dice da lo stesso errore di 2.
Qualcuno ha qualche idea di come si faccia?
O altrimenti, esiste un modo per poter gestire i vari account senza creare
questi oggetti?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Aggiungo che stamattina sto provando a creare un workspace normale e poi a
passare
le info all'apertura del db con una stringa di connessione:
Set wrksp = CreateWorkspace("", "admin", "", dbUseJet)
 
Set db = wrksp.opendatabase("c:\programmi\listinomedri\listino1.mdb", True,
False, "Jet
                                          OLEDB:System database=c:\programmi\listinomedri\protetto.mdw;
                                                    user id=usename;password=password")
stavolta mi da l'errore 3151: connessione al database ODBC non riuscita
quando apro il database..
già + incoraggiante in un certo senso.. ma rimango sempre in alto mare.. :-(
qlc mi sa aiutare?
vale


Salve a tutti!
Ho trovato una soluzione al mio problema e ho deciso di postarla nel caso
che a qlc servisse mai..
Visto che riuscivo ad accedere ai dati tramite connection ma non riuscivo a
creare il workspace e il database (si parla sempre del caso di access con
autenticazione a livello user), per gestire la creazione di nuovi
account/cambiare password /ecc.. sto usando
dei comandi SQL che mando attraverso la connessione...
Per maggiori info segnalo :
http://support.microsoft.com/default.aspx?scid=kb;en-us;275561#XSLTH3229121123120121120120
Ciao a tutti!
