Compression unicode.Résolu

Question

Bonjour,


J&#146;ai une base de donn&#233;e cr&#233;&#233;e. Je rajoute en code une table avec des champs. Pour chaque champ, je modifie le nombre de caract&#232;res d&#233;sir&#233;s ainsi que la valeur par d&#233;faut. J&#146;active la cha&#238;ne vide autoris&#233;e etc&#133; Tout cela je sais le faire en DAO. Et j&#146;ai appris &#224; le faire &#233;galement en ADO.




Mon probl&#232;me est que je n&#146;arrive pas &#224; modifier par code toutes les propri&#233;t&#233;s d&#146;un champ pour une base de donn&#233;e Access 2000 (c&#146;est &#224; dire toutes les propri&#233;t&#233;s contenus dans "Mode cr&#233;ation" pour une table). Plus concr&#232;tement, je n&#146;arrive absolument pas &#224; activer la compression unicode pour un champ choisi&#133;






Afficher un texte par d&#233;faut fonctionne parfaitement en utilisant : 




' Afficher le texte par defaut : " Champ1" :  
Db.TableDefs("Table1").Fields("Champ1").Properties("DefaultValue").Value = " Champ1" 




Mais lorsque j&#146;utilise le m&#234;me principe pour la compression unicode, cela ne fonctionne pas : 




' Activer la compression unicode (ne fonctionne pas !!)  
Db.TableDefs("Table1").Fields("Champ1").Properties("UnicodeCompression").Value = True 





Comment active t-on la compression unicode via ADO ou DAO, SQL ou autre... sous Access 2000?

Si quelqu'un avait un exemple &#224; me donner, ce serait VRAIMENT sympa !



Merci !

Jean-Pierre

cs_DARKSIDIOUS · Accepted Answer

Petite fonction se basant sur ADOX pour cr&#233;er un champ de type texte :

Public Function CreateColumnTexte(ByRef oCatalog As ADOX.Catalog, ByRef
oTable As ADOX.Table, ByVal sColumnName As String, ByVal
sColumnDescription As String, ByVal lTaille As Long, ByVal
bChaineVideAutorisee As Boolean, ByVal bNullAutorise As Boolean, ByVal
bIsCompressed As Boolean, ByVal sDefaultValue As String, ByVal
sValidationRule As String, ByVal sRuleText As String) As Boolean



'======================================================================

'Function : CreateColumnTexte

'Date : 08/03/2005

'Auteur : DarK Sidious

'But : Permet de recr&#233;er un champ de type texte dans la table

'======================================================================



'on active la routine de traitement d'erreur

On Error GoTo erreur0



'd&#233;claration des variables priv&#233;es

Dim oColumn As ADOX.Column 'stocke le champ &#224; ajouter &#224; la base



    Set oColumn = New ADOX.Column

    Let oColumn.Name = sColumnName

    Let oColumn.Type = adWChar

    Set oColumn.ParentCatalog = oCatalog

    Let oColumn.Properties("Description").Value = sColumnDescription

    Let oColumn.DefinedSize = lTaille

    Let oColumn.Properties("Jet OLEDB:Allow Zero Length").Value = bChaineVideAutorisee

    Let oColumn.Properties("Nullable").Value = bNullAutorise

    Let oColumn.Properties("Jet OLEDB:Compressed UNICODE Strings").Value = bIsCompressed

    Let oColumn.Properties("Default").Value = sDefaultValue

    Let oColumn.Properties("Jet OLEDB:Column Validation Rule").Value = sValidationRule

    Let oColumn.Properties("Jet OLEDB:Column Validation Text").Value = sRuleText

    Call oTable.Columns.Append(oColumn)

    

'la fonction a r&#233;ussie

Let CreateColumnTexte = True

Exit Function



'routine de traitement d'erreur

erreur0:

'Probl&#232;me : On n'a pas pu cr&#233;er le champ

'Solution : On renvoie une valeur d'erreur : False



Let CreateColumnTexte = False



End Function


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_Arkalis · Answer

Je suis aussi interess&#233; par des exemples :)

JPMCDVI · Answer

Merci &#224; toi DARKSIDIOUS !

Vraiment sympa ton exemple ! Fonctionne parfaitement !

Jean-Pierre

Compression unicode.

3 réponses

Discussions similaires