Oppure

Loading
31/03/07 15:09
dartraf
Ho creato un programma che si collega ad un db access con password....
nel db c'è un report che richiamo da vb con l'oggetto access.application per stampare...
ma al momento della chiamata mi chiede la password...
qualcuno sa dirmi come faccio ad eliminare la richiesta di pass???
nn posso passarla come parametro all'oggetto application????
Help me!!!!!

edit by netarrow: sistemato il titolo
Ultima modifica effettuata da netarrow 06/04/07 19:21
aaa
03/04/07 14:37
Postato originariamente da dartraf:

Ho creato un programma che si collega ad un db access con password....
nel db c'è un report che richiamo da vb con l'oggetto access.application per stampare...
ma al momento della chiamata mi chiede la password...
qualcuno sa dirmi come faccio ad eliminare la richiesta di pass???
nn posso passarla come parametro all'oggetto application????
Help me!!!!!


Ho appena letto...

posta il Codice e cercheremo di darti una mano
03/04/07 16:23
dartraf
Incomincio con l'aprire il db :
Set cnPrinc = New ADODB.Connection
cnPrinc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPercorso & "\Db.mdb;Jet OLEDB:Database Password=" & strPassword

poi provo a richiamare il report con la sub:

Public Sub PrintReport(ByVal DBPath As String, ByVal ReportName As String, Optional OpenMode As Integer)
Dim appAccess As Object
Set appAccess = CreateObject("Access.Application";)
Call appAccess.OpenCurrentDatabase(DBPath)
appAccess.DoCmd.OpenReport ReportName, OpenMode
Set appAccess = Nothing
End Sub

con la chiamata

Call PrintReport(strPercorso & "\Db.mdb", "REPORT", acViewNormal)

In questo modo utilizzo l'oggetto access.application che mi chiede la password del db per poter eseguire il report!!!

Come faccio ad eliminare la richiestadi pass???
Si puo passare per parametro che so all'oggetto "access.application"???
aaa
03/04/07 17:59
Postato originariamente da dartraf:

Incomincio con l'aprire il db :
Set cnPrinc = New ADODB.Connection
cnPrinc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPercorso & "\Db.mdb;Jet OLEDB:Database Password=" & strPassword

poi provo a richiamare il report con la sub:

Public Sub PrintReport(ByVal DBPath As String, ByVal ReportName As String, Optional OpenMode As Integer)
Dim appAccess As Object
Set appAccess = CreateObject("Access.Application";)
Call appAccess.OpenCurrentDatabase(DBPath)
appAccess.DoCmd.OpenReport ReportName, OpenMode
Set appAccess = Nothing
End Sub

con la chiamata

Call PrintReport(strPercorso & "\Db.mdb", "REPORT", acViewNormal)

In questo modo utilizzo l'oggetto access.application che mi chiede la password del db per poter eseguire il report!!!

Come faccio ad eliminare la richiestadi pass???
Si puo passare per parametro che so all'oggetto "access.application"???


il DB che intendi aprire, é protetto da Password? :-?
04/04/07 10:21
dartraf
Si è protetto da password???
Ed è la stessa che mi chiede quando richiamo il report da vb!!!!
Conosci un metodo per passarla come parametro o eliminare la richiesta all'utente??
aaa