Newsgroup: it.comp.lang.visual-basic
Titolo: Report access

Ciao a tutti
avrei bisogno di sapere se si possono utilizzare report access
in vb6 e se si come si fa?
grazie 1000
Ciao DimAnto

 in vb6 e se si come si fa?
1. l'utente deve avere installato microsoft access;
2. se ne e' parlato su questo newsgroup diverse volte negli
	ultimi due mesi:
http://groups.google.it/groups?as_q=report+access&num=10&scoring=r&hl=it&as_epq=&as_oq=&as_eq=&as_ugroup=it.comp.lang.visual-basic&as_usubject=&as_uauthors=&lr=&as_qdr=&as_drrb=b&as_mind=1&as_minm=3&as_miny=2005&as_maxd=9&as_maxm=5&as_maxy=2005
-- 
ciao, hal

 
http://groups.google.it/groups?as_q=report+access&num=10&scoring=r&hl=it&as_epq=&as_oq=&as_eq=&as_ugroup=it.comp.lang.visual-basic&as_usubject=&as_uauthors=&lr=&as_qdr=&as_drrb=b&as_mind=1&as_minm=3&as_miny=2005&as_maxd=9&as_maxm=5&as_maxy=2005
 
o, piu' succintamente:
http://tinyurl.com/dm9dn
-- 
ciao, hal


Dunque, mi sono accorto ora che all'epoca avevo dimenticato un dettaglio
importante (spero che dirkpitt84 abbia trovato la soluzione da solo,
altrimenti mi uccide). Non mi sono più connesso per qualche giorno e non mi
sono accorto della mancanza.
Riporto il codice copiancollato dal link che hal ha fornito:
********** CODICE **********
Dim AccRep As Access.Application
Dim db As DAO.Database ' (necessario per aprire un .mdb protetto da
password,
    ' in quanto ADO non ha una stringa di connessione da impostare)
' apre un'istanza di Access, apre uno specifico file .mdb, anche protetto
' da password, e in questo file apre uno specifico report
' richiede un riferimento alla libreria Microsoft Access (9.0) Object
Library
' e un riferimento a MS DAO 3.6
' inoltre richiede che Access sia installato sul computer dell'utente
' Argomenti: nome del report, percorso del file .mdb, eventuale password,
eventuale stampa
Public Sub OpenAccessReport(reportname As String, mdbname As String, _
    Optional dbpassword As String = "", Optional PrintThisReport As Boolean =
False)
    Set AccRep = New Access.Application
    AccRep.Visible = True ' se non lo metto, non fa l'anteprima
    AccRep.DoCmd.RunCommand acCmdAppMaximize ' espande Access
    ' memorizza un database mdb in una variabile DAO (necessario per aprire un
.mdb con password)
    Set db = AccRep.DBEngine.OpenDatabase(m­dbname, False, False, ";PWD=" &
dbpassword)
    ' forza VB a caricare il database correntemente aperto nella variabile
Access
    AccRep.OpenCurrentDatabase mdbname, False
    db.Close ' chiude il db contenuto nella variabile DAO
    Set db = Nothing ' vuota la variabile DAO (che non è più necessaria)
    AccRep.DoCmd.Minimize ' riduce a icona la finestra del database
    AccRep.DoCmd.OpenReport reportname, acViewPreview ' apre il report
    ' le prossime due righe nascondono la finestra del database
    ' va fatto dopo aver aperto il report, perché altrimenti il report non si
può aprire
    AccRep.DoCmd.SelectObject acReport, , True
    AccRep.DoCmd.RunCommand acCmdWindowHide ' nasconde la finestra del database
    If PrintThisReport Then AccRep.DoCmd.PrintOut ' stampa il report
End Sub
' Uso della funzione
Private Sub btnReport_Click()
    OpenAccessReport "rReportGenerale", App.Path & "\" & "db1.mdb",
"ApritiSesamo"
End Sub
Per chiudere Access alla chiusura del report, metti queste istruzioni VBA
nel modulo del report, direttamente in Access:
Option Compare Database
Option Explicit
Private Sub Report_Close()
  DoCmd.Restore
  DoCmd.Quit
End Sub
Private Sub Report_Open(Cancel As Integer)
  DoCmd.Maximize
End Sub
********** FINE CODICE **********
dunque, i più attenti si saranno accorti che in questo codice l'oggetto
AccRep (As Access.Application) non viene mai impostato a Nothing. Questo
succede perché io chiamavo questa funzione in una parte del programma, e
distruggevo l'oggetto AccRep in un'altra parte.
Quindi il problema di dirkpitt84 (un'istanza di Access rimane accesa) si
risolve impostando in qualche punto (quando il report viene chiuso, quando
il mio programma si chiude, quando chiudo il form che richiama il report,
ecc..) l'oggetto AccRep a Nothing.
hal, sono passati già due mesi e dirkpitt mi avrà già mandato una macumba
cattiva, che faccio ora? Faccio un'inserzione a pago su LuiProgramma?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Faccio un'inserzione a pago su LuiProgramma?
dirkpitt se vuole e' abbastanza sveglio per cavarsela :-)
-- 
ciao, hal