Discussion :

[béodéo]

Bonjour,

A l'ouverture mais aussi à la fermeture d'un formulaire de ma base frontale, je souhaite exécuter un SQL (UPDATE...) sur ma base dorsale.
je me confronte au message d'erreur d'exécution 3048 et l'impossibilité d'ouvrir plusieurs bases de données.
Mes tables liées semblent être en lecture seule et je n'arrive pas à contourner mon problème.

Un extrait de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim strChemin as string
Dim DistantDB as DAO.Database
Dim SQLcode as string
 
strChemin = CurrentProject.Path & "MaBaseDorsale.mdb"
Set DistantDB = OpenDatabase(strChemin)
SQLcode = "UPDATE ......"
DistantDB.Execute SQLcode
DistantDB.Close
Set DistantDB = Nothing

Merci

[Pierre Fauconnier]

Salut.

Pourquoi ouvres-tu la dorsale? Une table liée se comporte comme un table locale. Tu peux donc l'adresser directement sans devoir ouvrir la dorsale.

[béodéo]

Merci pour la réponse

Aussi j'ai testé ce code pour modifier la table mais rien ne semble se mettre à jour...y a un truc qui doit m'échapper....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim DB as DAO.Database
Dim SQLcode as string
 
Set DB = Currentdb
SQLcode = "UPDATE ......"
DB.Execute SQLcode
DB.Close
Set DB = Nothing

[Pierre Fauconnier]

Il faudrait donner le code sql utilisé.

[béodéo]

le code SQL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"UPDATE INTERLOCUTEURS SET dateMAJ = dateMAJ2 WHERE N°INTERLOCUTEUR = " & Me.N°INTERLOCUTEUR & ";"

Ce code SQL a pour vocation depuis mon formulaire "INTERLOCUTEURS" de modifier un champs de ma table liée portant le même nom...

[Pierre Fauconnier]

Si ton n°interlocuteur est une valeur string, tu dois l'encadrer entre des apostrophes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UPDATE INTERLOCUTEURS SET dateMAJ = dateMAJ2 WHERE N°INTERLOCUTEUR = '" & Me.N°INTERLOCUTEUR & "';"

DateMAJ2 est un champ de la table Interlocuteurs ou bien cette date vient-elle d'ailleurs? Si elle vient d'ailleurs (variable ou date système), tu dois aussi l'intégrer dans la requête comme tu l'as fait pour le n°Interlocuteur.

[Arkham46]

bonjour,

bien vérifier que :
- toutes les bases ouvertes avec opendatabase sont fermées avec close
(ne pas fermer si ouvert avec set db = currentdb)
- toutes les base instanciées (set db = currentdb ou set db = opendatabase(...)) sont libérées (set db = nothing)
- tous les recordset ouverts avec set rs = db.openrecordset sont fermés avec rs.close et libérés avec set rs = nothing)

parfois si ne libère pas explicitement avec set ... = nothing (et surtout si on ne ferme pas (avec close) ce qu'on a ouvert), il reste un objet ouvert et au bout d'un moment ça coince

sinon, éviter les noms de tables ou champs avec des caractères spéciaux (le ° de N°INTERLOCUTEUR), on a parfois des problèmes incompréhensibles avec ces caractères (surtout les anciennes versions d'access).

bon courage, pas facile à pister ce genre d'erreur

[Pierre Fauconnier]

Salut Arkham,

Content de voir ta bestiole

Ce qui est étrange, c'est que cela se passe avec une table liée et pas avec la même table rapatriée en local. Je pense pourtant que le comportement des objets mal fermés est le même en local qu'en lié, non?

[Arkham46]

Ce qui est étrange, c'est que cela se passe avec une table liée et pas avec la même table rapatriée en local. Je pense pourtant que le comportement des objets mal fermés est le même en local qu'en lié, non?

Faut voir le code...
Si en local c'est du Set db = CurrentDb au lieu de Set db = OpenDatabase(...) alors ça change tout.

[Pierre Fauconnier]

Je suppose que le test liée/locale a été effectué sans modification du code.

Cela dit, il utilise set db = currentdb, donc il n'ouvre pas à nouveau sa base, non?

Cela étant, sur une table liée, il n'a même pas besoin d'utiliser set db =.

Il peut créer la chaîne de requête et l'utiliser directement avec docmd.runsql qui va travailler sur CurrentDB par défaut.

Ta remarque est donc judicieuse, car pour travailler en sql sur les tables liées, tout comme sur les locales d'ailleurs, il peut supprimer les objets DB. Cela supprimerait les connexions intempestives via set db =, quelle que soit la façon d'attribuer une base à l'objet DB.

[béodéo]

Bonsoir
Merci pour toutes ces réflexions...je vais tenter d'en faire bon usage et passer tout ça au peigne fin.
Egalement, on m'a conseillé de passer mon code en transaction, qu'en pensez-vous ?