Discussion :

[ketchson]

Bonjour,

Je suis devant un mini casse-tête depuis quelques heures et je demande si je suis le seul à avoir été confronté à ce problème.

J'aimerais créer une table en langage SQL grâce à l'instruction CREATE TABLE. Mon souci est au niveau de l'usage de l'argument WITH COMPRESSION qui permet d'indiquer qu'on veut bien de la compression unicode sur les champs TEXT ou MEMO. Sans cette indication la Compression Unicode n'est pas indiquée et en travaillant avec une table créée comme cela les champs concernés gardent un nombre d'espaces correspondant, ce qui devient embêtant pour les traitements futurs.

Par exemple si j'ai un champ TEXT (255) où j'écris "Bonjour" au lieu de conserver juste le "Bonjour" dans la table, sans compression unicode il sera conservé "Bonjour" + (255 - 7 = 248) caractères d'espacement.

Voici le code qui ne marche pas pourtant il respecte bien la syntaxe indiquée dans l'aide d'Access

Code :

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

CREATE TABLE SOLDES ([N° Solde] AUTOINCREMENT CONSTRAINT MyFieldConstraint PRIMARY KEY, [Titre Solde] CHAR WITH COMPRESSION, [Solde Global] YESNO)

Il provoque une "erreur de syntaxe dans l'instruction CREATE TABLE" au niveau du With

Des idées du problème, et/ou de sa solution ?

[bertiny]

Bonjour
As-tu essayé de préciser la taille du champ ?

[hyperion13]

Salut,
Ainsi ça devrait le faire

Code :

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

1
2
3
4
5
CurrentProject.Connection.Execute "CREATE TABLE SOLDES (" & _
"[N°Solde] AUTOINCREMENT, " & _
"[Titre Solde] text(255) WITH COMPRESSION, " & _
"[Solde Global] YESNO)"
CurrentProject.Connection.Execute "Alter table SOLDES ADD CONSTRAINT MyFieldConstraint Primary Key (N°Solde)"

[ketchson]

Un grand merci hyperion13 ! Ca marche très bien

Et donc si je comprends bien l'ajout de l'index pour la clé primaire n'est pas compatible avec la précision WITH COMPRESSION dans la même instruction.

[hyperion13]

Salut,
Ça marche également

Code :

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

1
2
3
4
5
CurrentProject.Connection.Execute "CREATE TABLE SOLDES (" & _
"[N°Solde] AutoIncrement CONSTRAINT MyFieldConstraint PRIMARY KEY, " & _
"[Titre Solde] text(255) WITH COMPRESSION, " & _
"[Solde Global] YESNO)"
RefreshDatabaseWindow

[ketchson]

OK OK c'est vrai que ça marche aussi. Le souci vient de l'objet que j'ai utilisé, Currentdb.execute plutôt que CurrentProject.Connection.Execute

Mon but est de mettre à jour des bases de données chez des clients par automation et en ouverture exclusive, avant cette nouvelle information je pense que je vais trouver comment faire. Une série de tests s'impose...

[marot_r]

Bonjour.

Juste un point a propos des champs texte.

Par exemple si j'ai un champ TEXT (255) où j'écris "Bonjour" au lieu de conserver juste le "Bonjour" dans la table, sans compression unicode il sera conservé "Bonjour" + (255 - 7 = 248) caractères d'espacement.

Si tu passes par l'editeur de table, les champs textes sont crees automatiquement en longueur variable donc quand tu crees un champ texte de 255 caracteres tu indiques seulement a Access que le champ peut contenir au maximum 255 caracteres pas qu'il occupe toujours 255 caracteres.

A+

[ketchson]

Bonjour.

Juste un point a propos des champs texte.



Si tu passes par l'editeur de table, les champs textes sont crees automatiquement en longueur variable donc quand tu crees un champ texte de 255 caracteres tu indiques seulement a Access que le champ peut contenir au maximum 255 caracteres pas qu'il occupe toujours 255 caracteres.

A+

Après tests, je suis d'accord. Via l'éditeur de table il n'y a aucun problème.

Mais via l'instruction CREATE TABLE si je n'indique pas WITH COMPRESSION Access conserve bien le nombre maximum de caractères, en comblant par des espaces !

[marot_r]

Merci d'avoir fait le test.

J'utilise rarerement le Create Table, je lui prefere un delete suivi d'un append sur une table existante.
Et si j'ai une nouvelle table a ajouter en production je le fais par copie de ma table en developpement, meme par script.

A+

[ketchson]

Merci d'avoir fait le test.

J'utilise rarerement le Create Table, je lui prefere un delete suivi d'un append sur une table existante.
Et si j'ai une nouvelle table a ajouter en production je le fais par copie de ma table en developpement, meme par script.

A+

OK

Mais là ma curiosité est attisée. Pourrais-je avoir un petit exemple de copie d'une table par script s'il te plaît ?

[marot_r]

Bonjour.

Je n'en ai pas sous la main mais regarde les commandes DoCmd.TransferDatabase et aussi DoCmd.CopyObject.

Si je me fie a une des dernieres discussion auquelle j'ai participee, CopyObject est moins capricieux que TransferDatabase mais plus limite.

A+

[ketchson]

Bonjour.

Je n'en ai pas sous la main mais regarde les commandes DoCmd.TransferDatabase et aussi DoCmd.CopyObject.

Si je me fie a une des dernieres discussion auquelle j'ai participee, CopyObject est moins capricieux que TransferDatabase mais plus limite.

A+

Merci bien.

Avec ces 2 méthodes je suis dans le cas typique du "tu as déjà vu, tu sais que ça existe, mais tu n'as jamais essayé"

Je ferai des tests.