[VB& SP6] Parametrizzazione istruzione apertura connessione archivio.

[benjy]

Buongiorno,

ho una fissa che mi attanaglia e che non sono riuscito a risolvere.
Volevo crearmi una sub contenente le 3 istruzioni di connessione archivio (adodb.connection), ma non riesco a passare il nome della connessione. Mi spiego:

vorrei racchiudere queste istruzioni

     Set dbarchivio = New Connection
      dbarchivio.CursorLocation = adUseClient
  
    
    dbarchivio.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=miodatabase;Jet OLEDB:Database Password="

in una sub da richiamare dove ho dbarchivio dichiarata come variabile (ora mi scuso se non sto usando i termini tecnici corretti)

Tipo:

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

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

end sub

da richiamare

apridb dbarchivio

Il problema è che dopo l'struzione, dbarchivio non è inizializzata. Questo perchè non inizializza le prime due istruzioni, che se le metto fuori dalla sub, prima del richiamo della stessa, allora funge. Ma io volevo generalizzare anche loro, per scrivere meno codice

Grazie.

[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.

[patel]

secondo me confondi il nome dell'archivio con la connessione

[benjy]

secondo me confondi il nome dell'archivio con la connessione

Scusa, ma l'archivio è miodatabase, non è di nostro interresse ora.