[VB& SP6] Parametrizzazione istruzione apertura connessione archivio.

[gibra]

apridb è il nome della Sub, non può essere ANCHE il nome di una connessione.

Devi prima dichiarare una variabile globale, quindi Pubblic, di tipo Connection, in un modulo BAS. Esempio:

Public CN As ADODB.Connection

Poi potrai usarla nella tua Sub, per cui

Set CN = New ADODB.Connection

N.B. Il parametro nella Sub è completamente sbagliato, deve essere una stringa che identifica il nome del database.

[benjy]

apridb è il nome della Sub, non può essere ANCHE il nome di una connessione.

Devi prima dichiarare una variabile globale, quindi Pubblic, di tipo Connection, in un modulo BAS. Esempio:

Public CN As ADODB.Connection

Poi potrai usarla nella tua Sub, per cui

Set CN = New ADODB.Connection

N.B. Il parametro nella Sub è completamente sbagliato, deve essere una stringa che identifica il nome del database.

Chiedo scusa, forse il caldo, ho sbagliato il copia ed incolla.

public sub apridb (byval nomedb as adodb.connection)
     Set nomedb = New Connection
      nomedb .CursorLocation = adUseClient

    
    nomedb .Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=miodatabase;Jet OLEDB:Database Password=" 

end sub

richiamo con

apridb dbarchivio

dove, in un modulo, ho

 public dbarchivio as adodb.connection

[sspintux]

public sub apridb (byval nomedb as adodb.connection)
     Set nomedb = New Connection
      nomedb .CursorLocation = adUseClient

    
    nomedb .Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=miodatabase;Jet OLEDB:Database Password=" 

end sub

richiamo con

apridb dbarchivio

dove, in un modulo, ho

 public dbarchivio as adodb.connection

IMHO, ti conviene convertire la sub in una function che ha come parametro almeno la *stringa* di connessione e restituisce una adodb.connection.

P.S.
potrebbe funzionare anche con la sub che hai fatto tu se invece di passare la connection ByVal la passi ByRef sulla cui differenza ti consiglio di documentarti approfonditamente.

[gibra]

Chiedo scusa, forse il caldo, ho sbagliato il copia ed incolla.

Sarà anche il caldo, ma il tuo codice è comunque tutto sbagliato.
E visto che non hai fatto alcuna domanda su ciò che ti è stato indicato, dubito molto che tu sappia cosa stai scrivendo.

[benjy]

Sarà anche il caldo, ma il tuo codice è comunque tutto sbagliato.
E visto che non hai fatto alcuna domanda su ciò che ti è stato indicato, dubito molto che tu sappia cosa stai scrivendo.

Caro Gibra, con tutta la stima che ho per te e per il tuo lavoro, ma... questo post dove affermi che è tutto sbagliato e che non so cisa sto scrivendo, non è riferito al codice che ho riportato dopo aver fatto la battuta del caldo, giusto? Altrimenti sarebbe poco rispettoso, visto che quelle istruzioni sono corrette se prese al di fuori del tentativo di parametrizzarle, giusto? Ovvero: se io avessi una routine

private sub prova
 dim nomedb as adodb.connection
Set nomedb = New Connection
      nomedb .CursorLocation = adUseClient

    
    nomedb .Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=miodatabase;Jet OLEDB:Database Password="

... questa funzionerebbe (anzi, funziona) normalmente. Magari non è il massimo della codifica, però funge.

[oregon]

...

[oregon]

Vedi che ti ha detto Gibra sulla "variabile globale" ... nella Sub ne usi un "locale" ... studia le differenze.

E poi, nomedb non è un nome di variabile appropriato da associare ad una connessione.

[benjy]

Vedi che ti ha detto Gibra sulla "variabile globale" ... nella Sub ne usi un "locale" ... studia le differenze.

E poi, nomedb non è un nome di variabile appropriato da associare ad una connessione.

No no, ho letto il post dove mi faceva notare che avevo sbagliato completamente, daccordissimo. Ma, effettivamente mi sono accorto che non l'ho specificato, nel post del caldo ho voluto riportare il codice corretto, dando per scontato che, come si dice in gergo per la fatture, annullava e sostituiva il precedente, Gibra lo sa che lo rispetto e, ancor di più, quando evidenzia gli errori che commetto, come nel primo post, ma io avevo capito che era rivolto anche al codice sostitutivo. Chiedo venia, non me ne vogliate.... Solo errata interpretazione.