Stampare da VB report di Access 2000 con psw

[ugof]

Salve a tutti,
ho questo codice:
Private sub cmdStampa_click()
Dim msAccess as Access.Application
set msAccess = New Access.Application
msAccess.OpenCurrentdatabase("c:\percorso\nomedb.m db")
msAccess.DoCmd.OpenReport "Nomereport", acViewNormal
msAccess.CloseCurrentDatabase
set msAccess= Nothing
End sub
Il mio problema è questo: non riesco a creare la stringa di connessione con la password da inserire in
msAccess.OpenCurrentdatabase("c:\percorso\nomedb.m db")
Grazie per l'aiuto.
Ugo

[sint2001]

Io ho usato:

Dim Db As New ADODB.Connection

Db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb & ";Jet OLEDBatabase Password= " & password & ";Persist Security Info=False"

Db.CursorLocation = adUseClient
Db.Open


Riferimenti: ADO 2.7

[xegallo]

Originariamente inviato da ugof

msAccess.OpenCurrentdatabase("c:\percorso\nomedb.m db")

Ugo

modifica questa riga così

msAccess.OpenCurrentdatabase "c:\percorso\nomedb.mdb",,"password"

[ugof]

Grazie per la tua risposta, però io in questo programma adopero ADO 3.6; il database l'ho dichiarto così:
Public Const archivio = ";database=" & "c:\percorso\nomedatabase.mdb" & ";pwd=quellachevuoi" e quindi dove mi serve lo apro in questo modo:
Set db = OpenDatabase("", False, False, archivio).
Il problema è che se la riga:
msaccess.OpenCurrentDatabase ("", False, False, archivio) la scrivo così non l'accetta: quindi la mia domananda è come si scrive
msaccess.OpenCurrentDatabase ?
Grazie comunque per la velocità della tua risposta.
Ugo

[xegallo]

Originariamente inviato da ugof
Grazie per la tua risposta, però io in questo programma adopero ADO 3.6; il database l'ho dichiarto così:
Public Const archivio = ";database=" & "c:\percorso\nomedatabase.mdb" & ";pwd=quellachevuoi" e quindi dove mi serve lo apro in questo modo:
Set db = OpenDatabase("", False, False, archivio).
Il problema è che se la riga:
msaccess.OpenCurrentDatabase ("", False, False, archivio) la scrivo così non l'accetta: quindi la mia domananda è come si scrive
msaccess.OpenCurrentDatabase ?
Grazie comunque per la velocità della tua risposta.
Ugo

ado 3.6??????????????
vorrai dire Dao 3.6
la sintassi è semplice
oggetto.opencurrentdatabase percorso, in modo esclusivo?, password
gli ultimi 2 parametri sono facoltativi ma se ti serve una password devi scriverla

[ugof]

per xegallo,
la tua risposta ha preceduto la mia.
Ho inserito il codice che mi hai postato ma mi dà questo errore:
ERRORE DI COMPILAZIONE. Numero errato di argomenti o assegnazione di proprietà non valida ed evidenzia openCurrentDatabase.
Grazie

[Manuweb]

Salve, anche a me servirebbe aprire un report di access,ma per richiamare access.application che riferimenti o componenti devo inserire?
Per tutte le operazioni sul db utilizzo ADO

[ugof]

Come riferimenti io ho attivato:
Microsoft Access 9.0 Object Library e Microsoft Active X Data Objects 2.5.
Ciao
Ugo

[Manuweb]

grazie

[gianpy]

Sono molto interessato all'argomento.

Mi dici come faccio a stampare da web un report creato in access ?

Puoi per piacere mandarmi lo script a ciaogianpy@hotmail.com ?

Grazie