Un saluto a tutti gli amici del form.
Ho un inconveniente che dovrei risolvere in merito ad una connessione Dataenvironment dinamica.
Mi succede questo che se passo per la prima volta attraverso il codice riportato di seguito, tutto funziona bene, mentre se richiamo lo stesso form senza terminare il progetto mi si pianta tutto.
il messaggio di errore che ottngo è il seguente:
Errore di run-time "3709":
Connessione chiusa o non valida in questo contesto. Impossibile
utilizzarla per eseguire l'operazione.
il debug è fermo sulla riga che ho contrassegnato con 3 asterischi:
var_controllo = 0
If var_controllo = 0 Then
DE.cn2.ConnectionString = "provider =microsoft.jet.oledb.4.0;" & "data source = " & "\\gabriele\c\archivi_ilvc\Dbsystem\elenco comuni.mdb" & ";"
DE.cn2.Open
*** DE.rscomuni.Open
DE.rscomuni.Find "codice_comune = " & Val(codice_comune_txt.Text)
If DE.rscomuni.EOF Then
DE.rscomuni.AddNew
DE.rscomuni!comune = StrConv(Crea_comune_txt.Text, vbUpperCase) & ".mdb"
DE.rscomuni!codice_comune = Val(codice_comune_txt.Text)
DE.rscomuni.Update
DE.rscomuni.Close
DE.cn2.Close
FileCopy "G:\archivi_ilvc\Dbsystem\DBEMPTY.mdb", "g:\archivi_ilvc\" & StrConv(Crea_comune_txt.Text, vbUpperCase) & ".mdb"
Response = MsgBox("Archivio creato con successo", , "Messaggio.....")
Unload Me
Anagrafica_comune_frm.Show 1
Else
Response = MsgBox("Attenzione!!!! Il codice comune immesso appartiene ad un'altro archivio.", , "Errore!!!!!!")
End If
Se stoppo il progetto e lo faccio ripartire funziona dinuovo per una volta sola e poi siamo punto e a capo.
Qualcuno saprebbe spiegarmi il perchè?
Grazie in anticipo a tutti
Gabriele
Rispondi quotando
