[access] Variable dans une requete sql [Résolu]

lord_in 44Messages postés 27 mai 2007Date d'inscription - Dernière réponse le 29 juin 2007 à 16:10

Variable dans une requete sql
Je n’arrive pas à intégrer une variable dans une instruction sql
Voilà mon code
Dim T as date
Dim T1 as date
T = Val(Datett.Value)
T1 = DateAdd("m", 1, T)
DoCmd.RunSQL "INSERT INTO Table1tampon ( Material, [material description], [zone], mois, forecasts ) SELECT TableTotal.Material, TableTotal.[material description], TableTotal.zone, TableTotal.mois, TableTotal.forecasts FROM TableTotal WHERE (((TableTotal.zone)=zonett.value) AND ((TableTotal.mois)=datett.value));", -1
DoCmd.RunSQL "INSERT INTO Table2tampon ( Material, [material description], [zone], mois, forecasts ) SELECT TableTotal.Material, TableTotal.[material description], TableTotal.zone, TableTotal.mois, TableTotal.forecasts FROM TableTotal WHERE (((TableTotal.zone)=zonett.value)) AND ((TableTotal.mois)= T1 ) ;", -1
Et quand j’exécute il me demande la valeur de la variable T
Dattett = la date que je tape dans mon formulaire
Merci de votre aide

[access] Variable dans une requete sql »

Suggestions

[access] Variable dans une requete sql
Variable php dans requete mysql (Résolu) » Forum
Récupérer le resultat d'une requete access (Résolu) » Forum
Problème variable php dans requête sql (Résolu) » Forum
Variable Php dans requete sql (Résolu) » Forum
Variable php dans requete SQL (LIMIT) (Résolu) » Forum

Plus

Réponse

blux 12865Messages postés 26 août 2001Date d'inscription ModérateurStatut 31 mai 2012Dernière intervention 15 juin 2007 à 14:33

Salut,

il faut sortir T1 du texte de la requête :

Dim StrSql as string
Strsql = "INSERT INTO Table2tampon ( Material, [material description], [zone], mois, forecasts ) "
StrSql = StrSql + "SELECT TableTotal.Material, TableTotal.[material description], TableTotal.zone, TableTotal.mois, TableTotal.forecasts FROM TableTotal WHERE (((TableTotal.zone)=zonett.value)) "
StrSql = StrSql + "AND ((TableTotal.mois)= '" + T1 + "') ;"
DoCmd RUNSQL (Strsql,-1)

Et éventuellement mettre la date entre # si TableTotal.mois est de type date...

Ajouter un commentaire

Afficher les 20 commentaires

lord_in- 15 juin 2007 à 15:47

il contient une date sous forme ex 01/05/2006
et mois c'est le nom du champ

blux› blux - 15 juin 2007 à 15:49

StrSql = StrSql + "AND ((TableTotal.mois)= #" + T1 + "#) ;"

???

lord_in- 15 juin 2007 à 16:04

tjrs le meme problème !!!!

blux› blux - 15 juin 2007 à 16:11

MsgBox T1

???

lord_in- 15 juin 2007 à 16:18

bizarre
il me retourne la valeur 31/01/1900
alors que dans mon datett j'ai tapé 01/04/2006

blux› blux - 15 juin 2007 à 16:45

Oui, mais tu transformes ta saisie T en numérique et non en date !

Il faudrait plutôt faire T=cdate(datett.value), ça devrait aller mieux...

lord_in- 19 juin 2007 à 12:28

salut blux

t'as raison pour Cdate
mais le problème c'est il ne prend tjrs pas la valeur de T1
il me met erreur de syntaxe sachant que T1= 01/05/2006

blux› blux - 19 juin 2007 à 13:23

erreur de syntaxe sur quelle ligne ?

lord_in- 19 juin 2007 à 13:44

sur celle la
StrSql = StrSql + "AND ((TableTotal.mois)= #" + T1 + "#)
au niveau de T1

blux› blux - 19 juin 2007 à 14:02

C'est normal, T1 est une variable DATE, elle ne peut pas se concaténer avec une chaine...

t1 = cstr(cdate(datett.value)) ?

lord_in- 19 juin 2007 à 15:02

il me met tjrs incompatibilté du type dans l'expression

lord_in› blux - 19 juin 2007 à 15:49

J’ai trouvé le cours du problème
Je te rappelle mon code
Private Function sliptdesforecastsparmoissurlestable2()
Dim StrSql As Variant
Dim T As Date
Dim T1 As Date

T = CDate(Datett.Value)
T1 = DateAdd("m", 1, T)
T2 = CStr(CDate(T1))

StrSql = "INSERT INTO Table2tampon ( Material, [material description], [zone], mois, forecasts ) "
StrSql = StrSql + "SELECT TableTotal.Material, TableTotal.[material description], TableTotal.zone, TableTotal.mois, TableTotal.forecasts FROM TableTotal WHERE (((TableTotal.zone)=zonett.value)AND((TableTotal.mois)= #" & T1 & "#)) ;"

DoCmd.RunSQL StrSql

End Function

La syntaxe est correcte
Le prob c’est moi je tape 01/04/2006 (1eravril 2006)
Et donc T1= 01/05/2006

Alors pour que ca marche il faut que T1 soit sous cette forme T1= #05/01/2006#
Voilà
Alors si t’as une solution stp je suis preneur
Merci d’avance

blux› blux - 19 juin 2007 à 16:08

AND((TableTotal.mois)= #" & T2 & "#)) ;" ???

lord_in- 19 juin 2007 à 16:28

Excuse moi c t bien T2
Et T2= 05/01/2006 ce qui est bon
Mais pour que ca marche
Il faut que osit sous la forme T2= #05/01/2006#
(je l’ai pas mis tt a l’heure mais j’ai déclaré T2 as variant)
J’ai essayé de mettre
T3 = #T2# (mais il n’accepte pas )
En fait je voulais mettre le T3 dans l’instruction SQL

blux› blux - 19 juin 2007 à 16:48

Je teste chez moi et je te tiens au courant (sûrement demain)...

lord_in- 19 juin 2007 à 16:50

merci

blux› blux - 19 juin 2007 à 17:07

Bon, j'ai trouvé (je le savais, mais j'avais oublié), en SQL il faut que les dates soient au format anglais, donc un truc comme ça peut marcher (à adapter chez toi) :

Private Sub Bout_Cher_Click()
Dim StrSql As String
Dim aa As String
Dim mm As String
Dim jj As String
Dim T As String
jj = Left(Chx_date.Value, 2)
mm = Mid(Chx_date.Value, 4, 2)
aa = Right(Chx_date.Value, 4)
T = mm + "/" + jj + "/" + aa
MsgBox T
StrSql = "UPDATE table_date SET toto = 'ttut' where jour = #" & T & "#;"
MsgBox StrSql
DoCmd.RunSQL (StrSql)
End Sub

--
A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

lord_in- 29 juin 2007 à 16:10

merci blux (c bon j'ai reussi )

excuse pour le retard lol

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

[access] Variable dans une requete sql [Résolu]

[access] Variable dans une requete sql »

Passage au tout numérique : quel coût pour les particuliers ?