Changer le format d'un champ d'une base

Version imprimable

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:

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

09/10/2013, 19h25
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:

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.
10/10/2013, 11h36
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.

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:

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.

10/10/2013, 13h42
papyxy

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

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:

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

10/10/2013, 15h23
papyxy

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