[VB6] Connessione al DB in errore

[marco.santilli]

Connessione.bas

Option Explicit
Dim Cn As ADODB.Connection 'DatabaseArchivio.mdb server
Dim CnConnessioni As ADODB.Connection 'Archvio.mdb locale

-----------------------------------------------------------------

Form1 (Principale)
Set CnConnessioni = New ADODB.Connection
CnConnessioni.CursorLocation = adUseClient
CnConnessioni.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\Archivio.mdb" APRE DB IN LOCALE


Set rsRecordSetConnessioni = New ADODB.Recordset
rsRecordSetConnessioni.Open "SELECT [Archivio] From [Connessioni]", CnConnessioni, adOpenStatic, adLockOptimistic INTERROGA CAMPO TABELLA

Connessione = rsRecordSetConnessioni!Archivio & ""


Set Cn = New ADODB.Connection
Cn.CursorLocation = adUseClient
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= '" & Connessione & "'" CARICA CONN SERVER


------------------------------------------------------------------

Altre form
Set rsRecordSet2 = New ADODB.Recordset
rsRecordSet2.Open "SELECT [Nome Prodotto] From [Struttura: Archivio] group by [Nome Prodotto] order by [Nome Prodotto] ", Cn, adOpenStatic, adLockOptimistic
Set rsRecordSet3 = New ADODB.Recordset
rsRecordSet3.Open "SELECT [Documento],[Posizione] From [Struttura documenti] order by [Posizione] ", CnConnessioni, adOpenStatic, adLockOptimistic

------------------------------------------------------------------

Quando apro una finestra mi da questo errore:
Connessione chiusa o non valida, in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

La parte della FORM_PRINCIPALE è perfessa perchè si connette ad entrambi i DB sia a quello in locale sia al server.

Generaldo il solito file di ACCESS, che identifica la conn aperta

Il problema sta quando apro le apre finestre e creo i recordset, quindi vuol dire che gli manca qualche parametro di connessione

Dove potrebbere essere l'errore, mi date una mano

Ciao e grazieeeeeeee

[tas]

Prova a mettere public la dichiarazioni delle due connessioni:

Public Cn As ADODB.Connection 'DatabaseArchivio.mdb server 
Public CnConnessioni As ADODB.Connection 'Archvio.mdb locale

[marco.santilli]

niente stesso errore

Però se copio la stringa di connessione nella finestra che vado ad aprire, cioè quella che ora va in errore, tutto funziona correttamente.

Se questo codice invece di metterlo nella form principale che mi apre le connessioni le metto in FORM_LOAD della finetra in cui devo lavorare, tutto funziona.

Quindi il problema sempre che sta nel fatto di "ricordargli" che la connessione è gia aperta

Set CnConnessioni = New ADODB.Connection
CnConnessioni.CursorLocation = adUseClient
CnConnessioni.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\Archivio.mdb" APRE DB IN LOCALE


Set rsRecordSetConnessioni = New ADODB.Recordset
rsRecordSetConnessioni.Open "SELECT [Archivio] From [Connessioni]", CnConnessioni, adOpenStatic, adLockOptimistic INTERROGA CAMPO TABELLA

Connessione = rsRecordSetConnessioni!Archivio & ""


Set Cn = New ADODB.Connection
Cn.CursorLocation = adUseClient
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= '" & Connessione & "'" CARICA CONN SERVER


Ciao e grazieeeeeee

[tas]

Qualche suggerimento:
- controlla di non aver dichiarato più volte la stessa variabile (nel modulo connessione.bas e nei form)
- imposta in tutti i form, moduli e classi la dichiarazione obbligatoria delle variabili (Option Explicit)

(Perchè non usi il tag CODE quando posti del codice? Troveresti senz'altro molti più utenti disposti ad aiutarti...)