Discussion :

[papyxy]

Bonjour
J'ai créé une base (mdb); mais je sais pas comment changer le format des dates et heures; lesquelles j'aurai voulu les avoir en abrégé.

Voici un extrait du code :

Code :

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

1
2
3
4
5
6
7
oBase.TableDefs.Append oTable
 Set oTable = oBase.CreateTableDef("Dates")
 with  oTable
 .Fields.Append .CreateField("nauto",  dblong)
 .Fields.Append .CreateField("date",   dbdate)
 .Fields.Append .CreateField("heured", dbtime)
....etc

[tsuji]

dbDate je reconnais 8 normalement dans dao, mais dbTime, je n'en suis pas très sûr. Laissez ça à côte pour le moment.

Pour le champ "date", je pense que peut-être vous entendez un changement du format plutôt que le type lui-même? Par example, dans le Design UI, un type Date/Time peut prendre un format Medium Date. Prenons ça pour fixer l'idée. Si on veut changer de Medium Date à Short Date, on peut procéder par changer la propriété plutôt que par 4 sql: créer un champ temporaire, copier rows, supprimer le champ original, renommer le champ temporaire...

Essayez ceci pour voir ça donne quelque chose que vous souhaîtez?

Code vbscript :

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

1
2
3
4
5
6
7
set field=oTable.fields("date")
on error resume next
field.properties("Format")="Short Date"
if err.number<>0 then
    wscript.echo err.number & "; " & err.description
end if
on error goto 0

Quand on fait appeler aux propriétés, il est parfois compliqué parce que pas tous les types supportent tous les propriétés le système utilisée... Mais comme la question au départ n'est pas très claire, c'est ce que je peux proposer jusqu'à ce moment.

[papyxy]

Bonjour tsuji
je viens d'essayé le code, mais j'ai une erreur :
Windows Script Host
3270; Propriété non trouvée.

Pour indication, je vais dans la base avec Access dans la table, onglet Général, ligne Format; celle-ci est vide. Bien sur je peux lui dire "Date, abrégé", mais cela oblige à avoir Access sur le PC (ce qui ne sera pas le cas lors de l'utilisation). C'est pourquoi je crée cette base avec VBS.

[tsuji]

Bonjour Alain, la dénomination des propriétés peut être dépendant de locale. Faites une étude préliminaire pour découvrir leur nom, comme ça.

Code vbscript :

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

1
2
3
4
5
6
7
8
9
set field=oTable.fields("date")
for i=0 to field.properties.count-1
    on error resume next
    wscript.echo field.properties(i).name & "=" & field.properties(i).value
    if err.number<>0 then
        wscript.echo "i=" & i & "; " & err.number & "; " & err.description
    end if
    on error goto 0
next

Voyez si il y a une propriété qui tombe dans le sens de "format". Sinon, on peut contempler de la créer: mais ça c'est pour plus tard.

[papyxy]

Voila le résultat :
http://cjoint.com/?3JknOlzRfKL

[tsuji]

Je vois que, effectivement, la propriété Format n'y est pas là. Dans ce cas, on va essayer de la créer, comme ça, et vous pouvez librement experimenter un peu le format concret jusqu'à ce que vous souhaîtez avoir.

Code vbscript :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
propname="Format"
proptype=10    'dbText=10
propvalue="dd/mm/yyyy"
 
set field=oTable.fields("date")
on error resume next
field.properties(propname)=propvalue
if err.number=3270 then
    set oprop=field.createproperty(propname, proptype, propvalue)
    err.clear
    field.properties.append oprop
    if err.number<>0 then
        wscript.echo "property creation error: " & err.number & "; " & err.description
    end if
end if
on error goto 0

[papyxy]

Excellent!
cela fonctionne comme je voulais. Reste à moi de faire la même chose pour les heures.
Merci infiniment.