Discussion :

[Mythrandil]

Bonjour à tous,
Je vais tenter d'expliciter mon titre (qui est quelque peu ... confus).

En gros j'aimerais créer une table dont les noms de colonne sont par exemple les trois mois suivants le mois actuel.

(Donc Octobre, Novembre, Décembre).

Y'a t il moyen en SQL dans le create table de gérer de paramétrer les noms de la sorte (en SQL uniquement je précise) ?

Merci d'avance

[FreeAccess]

Bonjour,

....créer une table dont les noms de colonne sont par exemple les trois mois suivants le mois actuel......en SQL uniquement

Bien sur ici, il faut traduire nom de colonne par nom de champ.....

Petite aide(méthode rapide, mais non optimisée..)

1-) Récupérer le mois actuel sous forme de texte:

Code :

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

1
2
3
4
Dim LaDate As Date
Dim MoisActuel As String
LaDate = Date()
MoisActuel = Format(LaDate, "mmmm")

2-) Construire la chaîne SQL en passant les paramètres à l'aide de variables

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sSql As String
Dim NomTable As String, Mois1 As String, Mois2 As String, Mois3 As String
NomTable = "T_MoisPlusTrois"
Mois1 = "OCTOBRE"
Mois2 = "NOVEMBRE"
Mois3 = "DECEMBRE"
 
sSQL = "CREATE TABLE " & NomTable
sSQL = sSQL & " (" & Mois1 & " Text(10),"
sSQL = sSQL & Mois2 & " Text(10),"
sSQL = sSQL & Mois3 & " Text(10))"
 
DoCmd.RunSQL sSQL

Bien sur ici, ce code n'est qu'un exemple....
Il faut maintenant correctement définir les variables Mois1, Mois2 et Mois3 en se basant sur le résultat retourné par la variable MoisActuel.....

Mais là, je te laisse un peu chercher........

[vodiem]

Bonjour,

Code :

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

1
2
SQL = "CREATE TABLE Table3Mois (" & MonthName(Month(Now())) & " Text(10)," & MonthName(Month(Now()) + 1) & " Text(10)," & MonthName(Month(Now()) + 2) & " Text(10))"
DoCmd.RunSQL SQL

pour plus à avoir à chercher ;P

[FreeAccess]

Bonjour....

...pour plus à avoir à chercher

...alors tant qu'à faire, donnons lui la solution correcte.........

...créer une table dont les noms de colonne sont par exemple les trois mois suivants le mois actuel

...ce qui donne:

Code :

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

1
2
sSQL = "CREATE TABLE Table3Mois (" & MonthName(Month(Now()) + 1) & " Text(10)," & MonthName(Month(Now()) + 2) & " Text(10)," & MonthName(Month(Now()) + 3) & " Text(10))"
DoCmd.RunSQL sSQL

...Bonne continuation...

[vodiem]

...alors tant qu'à faire, donnons lui la solution correcte.........

oui, c'est mieux, tant qu'à faire...