Newsgroup: it.comp.appl.access
Titolo: passare User e Psw attraverso codiceVBA

Buona sera a tutti
Ho due database che si "scambiano" dei dati e lo "scambio", a seconda
della necessità, avviene o attraverso una query da VBA o collegando,
sempre da codice, una tabella.
Le righe di codice che uso sono del tipo:
    STRSQL = "INSERT INTO tabella (campo1, campo2, campoX)IN '" &
Percorso & "' SELECT tabella2.campo1, tabella2.campo2, tabella3.campo3
FROM tabella2 INNER JOIN tabella3 ON tabella2.campoX=tabella3.campoX;"
oppure 
    DoCmd.TransferDatabase acLink, "Microsoft Access", Percorso,
acTable, "Tabella5", "Tabella5"
dove 
Percorso = "\\nomeserver\cart1\cart2\NomeDB.mdb"
Quando ho creato il tutto i DB1 e DB2 erano in due cartelle diverse
dello stesso server
Ora invece si trovano, per motivi su cui sorvolo e non dipendenti dalla
mia volontà, su due differenti server.
Ho cambiato il valore di percosrso in: 
Percorso = "\\indirizzoIP\cart1\cart2\NomeDB.mdb"
ma per accedere a questo secondo server devo usare una User e una
Password e non ho idea di come si faccia in VBA a passarla al codice
(nota che lo "scambio" viene fatto da un utente dell'applicazione che
deve limitarsi a cliccare un bottone su una maschera o poco più!)
potete aiutarmi?
...spero non sia una domanda trita e ritrita.. ho un po' di problemi di
collegamento e non sono riuscita a navigare tra i vecchi post
Grazie
Nadia
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:5bed10f969a309fe51a...@mygate.mailgate.org...

Puoi provare ad utilizzare script WSH;
es. di mappatura risorsa
Dim WshNet
Set WshNet = CreateObject("Wscript.Network")
WshNet.MapNetworkDrive "Z:", "\\nomePcOIndirizzoIP\risorsaDaMappare", ,
"utente", "password"
Set WshNet = Nothing
End Sub
es. di rimozione risorsa mappata
Sub wshUnMapDrive()
Dim WshNet
Set WshNet = CreateObject("Wscript.Network")
WshNet.RemoveNetworkDrive "Z:"
Set WshNet = Nothing
Ciao.
--
Sergio MAZZA

 Sergio MAZZA
Grazie Sergio.
Ho provato ad inserire queste righe nel codice ma evidentemente 
sbaglio qualcosa perchè non funziona!
Il messaggio di errore che mi da è "impossibile aprire il file" la prima
volta che clicco sul pulsante designato e
"nome di periferica locale già in uso" se rischiaccio il pulsante senza
aver modificato la lettera (R:) nel codice
Ecco cosa ho fatto: associato al pulsante "AllineaDati" della maschera
attiva
struttura del codice 
messaggio = hai inserito il nome della cartella? 
SE  no
esci
ALTRIMENTI
MapDrive
collega le tabelle
esegui le query
dimmi se è andato tutto bene
UnMapDrive
FINE SE
posto che:
A) il db con cui devo interagire si trova in
    \\indirizzoIP\Web\CertellaMDB\ValutWeb.mdb
B) la "CartellaMDB" ha un nome che varia di progetto in progetto (mentre
il nome del db è sempre lo stesso)
C) in maschera ho un controllo che si chiama "Cartella" dove l'utente
inserisce il nome della CertellaMDB di turno
Ho scritto:
    Dim Percorso As String
    Dim WshNet
    Set WshNet = CreateObject("Wscript.Network")
    WshNet.MapNetworkDrive "R:", "\\indirizzoIP\Web", , "pippo",
"paperino"
    Set WshNet = Nothing
    Percorso = "R:" & Me.cartella & "\ValutWeb.mdb"
     DoCmd.TransferDatabase acLink, "Microsoft Access", Percorso,
    acTable, "Tabella5", "Tabella5"
[tutto il resto]
Set WshNet = CreateObject("Wscript.Network")
WshNet.RemoveNetworkDrive "R:"
Set WshNet = Nothing
Non sono sicura di aver capito cosa mettere nella variabile percorso
tuttavia tutte le combinazioni che ho provato hanno dato lo stesso
risultato di cui sopra
DOVE SBAGLIO?
Mille grazie


 ha scritto nel messaggio
news:bb777ccec982de120fb...@mygate.mailgate.org...

Se vuoi mappare una risorsa, questa deve essere condivisa; altrimenti punti
direttamente al disco (C: = C$, D: = D$, etc. etc.) che sono "condivisioni
amministrative" e quindi, per default, sempre attive.
Dopo aver mappato il disco puoi entrare nelle cartelle.
Quindi:
Dim Percorso As String
Dim WshNet
Set WshNet = CreateObject("Wscript.Network")
WshNet.MapNetworkDrive "R:", "\\indirizzoIP\C$", , "pippo", "paperino"
Ciao.
--
Sergio MAZZA