Scusami X, sono nel pallone, non ci capisco più nulla, pensavo di averci capito qualcosa ma sono nel caos mentale più totale. Un utente del forum ha stravolto completamente il mio progetto in quanto mi sconsiglia l'utilizzo del dataEnvironment, ed io ho accettato il suo consiglio in quanto debbo assolutamente uscire fuori da questo blocco.
allora ho itrapreso questa nuova strada ma ci sono i soliti intoppi di percorso - Adesso mi chiedo, che motivo ha Marko per dirmi che non conviene usade il DE?????
Lui mi ha proposto una soluzione di questo tipo, che usa lo stesso Provider:
allora faccio le dichiarazioni:
codice:
Dim Conn1 As New ADODB.Connection
Dim Conn2 As New ADODB.Connection
Dim Conn3 As New ADODB.Connection
Dim Rs1 As New ADODB.Recordset
Dim Rs2 As New ADODB.Recordset
Dim Rs3 As New ADODB.Recordset
'CONTROLLO SE LE CONNESSIONI SONO GIà APERTE
If Conn1.State <> adStateClosed Then
Conn1.Close
End If
If Conn2.State <> adStateClosed Then
Conn2.Close
End If
If Conn3.State <> adStateClosed Then
Conn3.Close
End If
'APRO LE CONNESSIONI:
Conn1.Open "provider =microsoft.jet.oledb.4.0;" & "data source =
_ " & "c:\progetto\1.mdb" & ";"
Conn2.Open "provider =microsoft.jet.oledb.4.0;" & "data source =
_ " & "c:\progetto\2.mdb" & ";"
Conn3.Open "provider =microsoft.jet.oledb.4.0;" & "data source =
_ " & "c:\progetto\3.mdb" & ";"
'controllo che le recordset non siano già aperte,
'altrimenti le chiudo:
If Rs1.State <> adStateClosed Then
Rs1.Close
End If
If Rs2.State <> adStateClosed Then
Rs2.Close
End If
If Rs3.State <> adStateClosed Then
Rs3.Close
End If
' RENDO ATTIVI I RECORDSET
Rs1.Open "select * from definizione_paese", Conn1
Rs2.Open "select * from definizione_paese", Conn2
Rs3.Open "select * from definizione_paese", Conn3
'FACCIO TUTTE LE OPERAZIONI NECESSARIE
'MA QUI VIENE IL BELLO:
'ho tentato di aggiungere un nuovo record ma il debug mi dice che :
'IL SET DI RECORD CORRENTE NON SUPPORTA L'AGGIORNAMENTO -
'POTREBBE 'TRATTARSI DI UNA LIMITAZIONE DEL PROVIDER O DEL
'TIPO DI BLOCCO SELEZIONATO
'LA RIGA DI CODICE CHE HO DIGITATO è:
Rs1.AddNew
'Ovviamente non ho provato altro, tipo movelast
'movefirst update delete etc etc.
'quando ho finito chiudo prima i recordset
'(controllando che non lo siano già!!!)
If Rs1.State <> adStateClosed Then
Rs1.Close
End If
If Rs2.State <> adStateClosed Then
Rs2.Close
End If
If Rs3.State <> adStateClosed Then
Rs3.Close
End If
'poi, se non devi aprire più recordset chiudi le
'connessioni (sempre controllando che non lo siano già!!!)
If Conn1.State <> adStateClosed Then
Conn1.Close
End If
If Conn2.State <> adStateClosed Then
Conn2.Close
End If
If Conn3.State <> adStateClosed Then
Conn3.Close
End If
Ora vorrei solo un consiglio: cosa uso, DE o la soluzione
consigliata da Marko????
Rispondi quotando
