[VB] Riutilizzare una connessione aperta

[gecoss]

Salve a tutti.

In fase di sviluppo di un progetto ho deciso di utilizzare una connessione al mio db nel seguente modo:

Function OpenDB() As ADODB.Connection
............

Set OpenProtectedDB = MyConn

End Function


Il problema sussiste quando devo richiamare una connessione già aperta infatti dopo aperto il primo rs:

strSQL = "SELECT * ...."
Set codcl = CreateObject("ADODB.Recordset")
codcl.Open strSQL, OpenProtectedDB(), adOpenStatic, adLockOptimistic

Mi da (giustamente) un problema quando riapro un secondo rs

Come posso risolvere???

Grazie

[darkblOOd]

semplice, spiegando il tutto in italiano.



Scherzo...perchè non fai una function parametrizzata?

[gecoss]

In che senso

[darkblOOd]

Originariamente inviato da gecoss
In che senso

Tipo che ti apri la connessione prima e poi fai la function

MiaFunction(Dim MiaCn as ADODB.Connection)
...
qui metti il codice usando MiaCn come connection
...
End Function

[vonkranz]

Originariamente inviato da darkblOOd

MiaFunction(Dim MiaCn as ADODB.Connection)

...aRiDaje con sto VB.net!!

Se dichiari un parametro in quel modo, VB6 si disinstalla automaticamente, senza dirti niente!

Se dichiari la tua connessione a livello globale e nell'evento load del primo form che attivi la apri, non avrai + problemi:
la potrai usare dove, come e quando vuoi.
Senza contare che aprendola in un solo punto, perdi tempo una sola volta e basta.
Ciao.

[darkblOOd]

Originariamente inviato da vonkranz


...aRiDaje con sto VB.net!!

Se dichiari un parametro in quel modo, VB6 si disinstalla automaticamente, senza dirti niente!

ma perchè con VB6 non si poteva scrivere codice tipo:

Public Sub Inizio
   Dim CN as ADODB.Connection
   ...apri la connessione...
   MiaFunc(CN)
End Sub

Private Function MiaFunc(ByValr MiaCN as ADODB.Connection 'oppure as Object) as TipoCheVuoiRestituire 
  ...
  ...
  ...
End Function

:master: non si poteva fare?

Boh, se ho detto una cazzata scusate. :gren:

[gecoss]

OTTIMA!!!!!!!!!


Questa era la soluzione che aspettavo

Grande darkblOOd

[darkblOOd]

allora si poteva fare...



:gren:

[vonkranz]

Cosi'

Private Function MiaFunc(ByValr MiaCN as ADODB.Connection.....)

SI'

..ma cosi'

MiaFunction(Dim MiaCn as ADODB.Connection)

no
Cmq l'importante e' aver risolto il problema
Ciao.

[darkblOOd]

Originariamente inviato da vonkranz
..ma cosi'

no
Cmq l'importante e' aver risolto il problema
Ciao.

già, così non si fa neanche in vb.net!



ho sbagliato di brutto, chissà che cavolo pensavo....me ne sono accorto adesso che l'hai quotato

scusate!

:gren: