PDA

Visualizza la versione completa : [VB] Riutilizzare una connessione aperta


gecoss
22-07-2002, 16:55
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
22-07-2002, 17:03
semplice, spiegando il tutto in italiano.

:p

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

:ciauz:

gecoss
22-07-2002, 17:06
In che senso :confused: :confused:

darkblOOd
22-07-2002, 17:38
Originariamente inviato da gecoss
In che senso :confused: :confused:

:nonlodire

http://forum.html.it/forum/faccine/166.gif




:stordita:

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



:ciauz:

vonkranz
22-07-2002, 18:45
Originariamente inviato da darkblOOd


MiaFunction(Dim MiaCn as ADODB.Connection)



...aRiDaje con sto VB.net!! :D

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
22-07-2002, 19:34
Originariamente inviato da vonkranz


...aRiDaje con sto VB.net!! :D

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
22-07-2002, 19:42
OTTIMA!!!!!!!!!


Questa era la soluzione che aspettavo

Grande darkblOOd ;) ;)

darkblOOd
23-07-2002, 09:39
allora si poteva fare... :stordita:



:gren:

vonkranz
23-07-2002, 12:02
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
23-07-2002, 12:08
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!

http://forum.html.it/forum/faccine/002.gif http://forum.html.it/forum/faccine/002.gif http://forum.html.it/forum/faccine/002.gif

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

scusate!

:gren:

Loading