Discussion :

[MissTi]

Bonjour à tous,
Ca fait plusieurs heures que je suis coincée sur un bout de code et ça commence à me rendre chèvre.

J'ai une base de donnée qui exploite des extractions d'une autre base envoyées régulièrement par un partenaire. Celui-ci s'est un peu planter dans la structure d'une de ses tables et je dois convertir un champ identifiant du format numérique à textuel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim DistantDB As DAO.Database
Dim StrSceExtractionMNHN As String 'l'adresse de l'extraction reçue
Dim strSQL As String
 
MsgBox StrSceExtractionMNHN '==> ok, l'adresse est bonne
Set DistantDB = DBEngine.OpenDatabase(StrSceExtractionMNHN)
DistantDB.Execute "Alter Table [Ref_ESPECE_SYNTHESE] Alter Column [CD_NOM] TEXT(25)"
' On libère les objets
DistantDB.Close
Set DistantDB = Nothing
MsgBox "structure modifiée"

Tout a l'air de bien s'exécuter. Je n'ai aucun message d'erreur.

Mais quand je réouvre ma base StrSceExtractionMNHN et la table Ref_Espece_synthese, aucune modification de type n'a été réalisée sur le champ CD_NOM.

J'ai essayé avec et sans les crochets, avec et sans le ";" en fin d'instruction...
J'ai beau chercher depuis plusieurs heures, je ne trouve pas. Encore, j'aurai un message d'erreur ou d'alerte, je ne dis pas mais là, je n'ai aucun indice sur ce qui ne fonctionne pas...

Et forcément, c'est pile au niveau du rendu que le client m'annonce qu'il n'a pas access et qu'il faut que j'automatise la reconnection!

[MissTi]

Crotte.
Je vérifiai la modification non pas dans le dossier où se trouvait l'extraction mais dans sa sauvegarde.
Bon, c'est résolu.

On va dire que ça fait un bout de code gratuit pour ceux qui en ont besoin...

(Vraiment désolée pour cet accès de blondattitude....)