adodb.connection

ciao a tutti,
il mio programma scritto in vb6 si appoggia ad un db access.
nelle varie procedure apro e chiudo una serie di connessione al con Adodb.connection.

per una serie di eventi, che non ho monitorato molto bene, rimane sempre qualche connessione aperta.

qualcuno di voi sa aiutarmi a creare una routine che individui tutte le connessioni di tipo Adodb.connection aperte??

io ragionerei in maniera differente:

perchè hai la necessità di aprire più connessioni?

probabilmente ti basterebbe aprire una connessione all'avvio del programma, sfruttare quella per aprire tutti i recordset che ti servono, e chiuderla all'uscita dal programma...

se proprio hai la necessità di aprirne di più devi solo fare una ricerca all'interno del tuo codice, controllando le varie aperture delle connessioni, e assicurandoti che esse siano chiuse quando non necessarie...

per quanto riguarda la tua richiesta, difatti, non credo esista un modo di enumerare le connessioni aperte verso un DB.

TheTruster

il prblema è che il progetto è abastanza grande... e non l'ho scitto tutto io.
io l'ho erderitato. sto cercando di risolvere i vari bachi....
cerco di trovare la soluzione più efficace nel minor tempo possibile.

grazie comunque.

Beh, ovviamente utilizzare meno connessioni possibili (a meno che non ci siano specifici motivi che ora non mi vengono in mente) soprattutto verso UN SOLO database è sempre la cosa migliore, magari la apri allo startup e chiudi alla fine...
comunque, per rispondere alla tua richiesta, io adotterei una strategia tipo:
- Eseguo una ricerca in TUTTO il progetto cercando la parola chiave "ADODB.Connection", in modo da identificare tutti gli oggetti istanziati...
- Poi, se non vuoi/hai la possibilità (leggi "il progetto è esteso e caotico e non scritto da te") potresti scrivere una sola routine che alla chisura del programma testa ogni connessione, e la chiude, tipo

Private Sub ChiudiConnessione(TestCONN As ADODB.Connection)
    If Not TestCONN Is Nothing Then
        If TestCONN.State = adStateOpen Then TestCONN.Close
        Set TestCONN = Nothing
    End If
End Sub

da richiamare per ogni connessione
Call ChiudiConnessione(Conn1)
Call ChiudiConnessione(Conn2)
...

Non sarà il massimo dell'efficienza il programma, ma se ormai "il danno è fatto"...