cs_hippo92210b
Messages postés59Date d'inscriptionlundi 12 février 2007StatutMembreDernière intervention 9 décembre 2009 12 févr. 2007 à 11:33
moi il me mais a un moment (can je veu executer mon programme) "La classe Form1 peut être conçue, mais il ne s'agit pas de la première classe du fichier. Visual Studio requiert que les concepteurs utilisent la première classe du fichier. Déplacez le code de la classe afin qu'il s'agisse de la première classe du fichier et essayez de recharger le concepteur."
apaulux
Messages postés73Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention 2 octobre 2009 31 janv. 2007 à 18:04
sqlAEP21 = "SELECT Sum([RequêteMontantSubvention1].[Montant1]) AS Total"
sqlAEP21=sqlAEP21 & " FROM Dossier INNER JOIN RequêteMontantSubvention1 ON [Dossier].[NoDossier]=[RequêteMontantSubvention1].[NoDossier]"
sqlAEP21=sqlAEP21 & " WHERE ((([Dossier].[NatureGlobaleTravauxAEP]) like " & Chr(34) & test & Chr(34) & "))"
Set rs = CurrentDb.OpenRecordset(sqlAEP21)
apaulux
Messages postés73Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention 2 octobre 2009 31 janv. 2007 à 18:01
sqlAEP21 = "SELECT Sum([RequêteMontantSubvention1].[Montant1]) AS Total"
sqlAEP21=sqlAEP21 & " FROM Dossier INNER JOIN RequêteMontantSubvention1 ON [Dossier].[NoDossier]=[RequêteMontantSubvention1].[NoDossier]"
sqlAEP21=sqlAEP21 & " WHERE ((([Dossier].[NatureGlobaleTravauxAEP]) like " & Chr(34) & "E10" & Chr(34) & "))"
Set rs = CurrentDb.OpenRecordset(sqlAEP21)
mastercatz
Messages postés193Date d'inscriptionjeudi 4 décembre 2003StatutMembreDernière intervention12 août 2010 2 août 2006 à 16:35
WHERE ([Dossier].[NatureGlobaleTravauxAEP] = '" & test & "')"
si tu n'englobe pas le test dans les () ca ne sert a rien
rob29
Messages postés6Date d'inscriptionjeudi 3 novembre 2005StatutMembreDernière intervention 2 août 2006 2 août 2006 à 15:48
ben j'ai mis sa à la fin de ma requête WHERE ([Dossier].[NatureGlobaleTravauxAEP])= '" & test & "';"
mais il y a un message d'erreur : opérateur absent.
je suis perdu
mastercatz
Messages postés193Date d'inscriptionjeudi 4 décembre 2003StatutMembreDernière intervention12 août 2010 2 août 2006 à 15:46
WHERE ((([Dossier].[NatureGlobaleTravauxAEP])='test'));"
Tu peux enlever le ; à la fin de ta requete sql.
Concue comme ca ta requete va utiliser le mot test pour le Where, il faut uqe tu utilise la variable plutot.
rob29
Messages postés6Date d'inscriptionjeudi 3 novembre 2005StatutMembreDernière intervention 2 août 2006 2 août 2006 à 15:29
moi j'ai un problème similaire mais que je n'arrive pas à résoudre avec cette fonction :
test = "Réservoir d'eau"
test = Replace(test, "''", "'")
sqlAEP21 = "SELECT Sum([RequêteMontantSubvention1].[Montant1]) AS Total
FROM Dossier INNER JOIN RequêteMontantSubvention1 ON [Dossier].[NoDossier]=[RequêteMontantSubvention1].[NoDossier]
WHERE ((([Dossier].[NatureGlobaleTravauxAEP])='test'));"
Set rs = CurrentDb.OpenRecordset(sqlAEP21)
AEP21.Value = rs.Fields(0).Value
rs.Close
Quelqu'un peut-il m'aider svp ????
Dromax
Messages postés40Date d'inscriptionmercredi 1 janvier 2003StatutMembreDernière intervention23 septembre 2005 1 mai 2004 à 09:34
Ah ok merci bcp
cs_Berurier
Messages postés31Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention28 juin 2013 1 mai 2004 à 08:26
Salut,
C'est vrai que j'aurai pu en dire plus....
fonction chr()
Renvoie une valeur de type String contenant le caractère associé au code de caractère indiqué.
34 , c'est le code de ".
Tu evites ainsi les combinaison comme "'" ou autre double quote....
ansi source=select * from famille where nom="L'arbre"
j'espère avoir répondu à ta question.
Dromax
Messages postés40Date d'inscriptionmercredi 1 janvier 2003StatutMembreDernière intervention23 septembre 2005 30 avril 2004 à 16:28
C koi ce char(34) ?
Peut tu donner des details ?
cs_Berurier
Messages postés31Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention28 juin 2013 30 avril 2004 à 15:28
+simple
ex : Requete selection
Dim Source as string
chaine="L'arbre"
source=" Select * from toto where name ="+chr(34)+chaine+chr(34)
mastercatz
Messages postés193Date d'inscriptionjeudi 4 décembre 2003StatutMembreDernière intervention12 août 2010 23 févr. 2004 à 14:45
Ca reste quand meme du pourquoi faire simple quand on peut faire compliqué ^^
mastercatz
Messages postés193Date d'inscriptionjeudi 4 décembre 2003StatutMembreDernière intervention12 août 2010 23 févr. 2004 à 14:33
Ca reste quand meme du pourquoi faire simple quand on peut faire compliqué ^^
Nix
Messages postés831Date d'inscriptionsamedi 15 mai 1999StatutMembreDernière intervention18 juillet 2009 23 févr. 2004 à 12:32
En fait je pense qu'il ne parle pas de remplacer une apostrophe "standard" mais une apostrophe "à l'envers" par une "vraie apostrophe"
Car l'apostrophe "à l'envers" est utilisée dans certains cas et qui posent des pb dans certains cas (j'ai déjà eu le cas).
Donc son idée est bonne mais faite à la façon VB5 en .NET car dans VB5 il n'y avait pas de replace si je me souviens bien :p
Bazinou
Messages postés9Date d'inscriptionjeudi 3 juillet 2003StatutMembreDernière intervention26 mai 2004 23 févr. 2004 à 10:06
Petite rem. : tu peux conserver ton apostrophe au lieu de le remplacer par un espace ou autre chose : tu le doubles, au final il en y aura qu'un dans ta chaine une fois ta requête SQL exécutée.
Pour ma part je connaissais pas non plus le Replace (oups ...c'est pourtant basic), donc cool pour l'info.
Disicom
Messages postés107Date d'inscriptionvendredi 8 novembre 2002StatutMembreDernière intervention28 mars 2011 23 févr. 2004 à 08:42
idem : Text1= Replace(Text1, "'", " ")
c'est com même plus facile mais bon chacun sont truc lol
++
Bonne continuation
cs_mestari
Messages postés29Date d'inscriptionsamedi 19 avril 2003StatutMembreDernière intervention12 mars 2006 22 févr. 2004 à 14:36
Merci les gars pour votre interet , je tiens à rapeller pour ma defense que cette fonction a été ecrit vers 3h du mat donc! Mais pour me faire pardonner cette con.. je déposerais bientot une source complete
Merci encore
Dromax
Messages postés40Date d'inscriptionmercredi 1 janvier 2003StatutMembreDernière intervention23 septembre 2005 22 févr. 2004 à 13:47
Bin t passé avant moi.
J'allais te sugerer la meme chose !!!
Nix
Messages postés831Date d'inscriptionsamedi 15 mai 1999StatutMembreDernière intervention18 juillet 2009 21 févr. 2004 à 11:44
12 févr. 2007 à 11:33
31 janv. 2007 à 18:04
sqlAEP21=sqlAEP21 & " FROM Dossier INNER JOIN RequêteMontantSubvention1 ON [Dossier].[NoDossier]=[RequêteMontantSubvention1].[NoDossier]"
sqlAEP21=sqlAEP21 & " WHERE ((([Dossier].[NatureGlobaleTravauxAEP]) like " & Chr(34) & test & Chr(34) & "))"
Set rs = CurrentDb.OpenRecordset(sqlAEP21)
31 janv. 2007 à 18:01
http://multibases.site.voila.fr/index.html
sqlAEP21 = "SELECT Sum([RequêteMontantSubvention1].[Montant1]) AS Total"
sqlAEP21=sqlAEP21 & " FROM Dossier INNER JOIN RequêteMontantSubvention1 ON [Dossier].[NoDossier]=[RequêteMontantSubvention1].[NoDossier]"
sqlAEP21=sqlAEP21 & " WHERE ((([Dossier].[NatureGlobaleTravauxAEP]) like " & Chr(34) & "E10" & Chr(34) & "))"
Set rs = CurrentDb.OpenRecordset(sqlAEP21)
2 août 2006 à 16:35
si tu n'englobe pas le test dans les () ca ne sert a rien
2 août 2006 à 15:48
mais il y a un message d'erreur : opérateur absent.
je suis perdu
2 août 2006 à 15:46
Tu peux enlever le ; à la fin de ta requete sql.
Concue comme ca ta requete va utiliser le mot test pour le Where, il faut uqe tu utilise la variable plutot.
2 août 2006 à 15:29
test = "Réservoir d'eau"
test = Replace(test, "''", "'")
sqlAEP21 = "SELECT Sum([RequêteMontantSubvention1].[Montant1]) AS Total
FROM Dossier INNER JOIN RequêteMontantSubvention1 ON [Dossier].[NoDossier]=[RequêteMontantSubvention1].[NoDossier]
WHERE ((([Dossier].[NatureGlobaleTravauxAEP])='test'));"
Set rs = CurrentDb.OpenRecordset(sqlAEP21)
AEP21.Value = rs.Fields(0).Value
rs.Close
Quelqu'un peut-il m'aider svp ????
1 mai 2004 à 09:34
1 mai 2004 à 08:26
C'est vrai que j'aurai pu en dire plus....
fonction chr()
Renvoie une valeur de type String contenant le caractère associé au code de caractère indiqué.
34 , c'est le code de ".
Tu evites ainsi les combinaison comme "'" ou autre double quote....
ansi source=select * from famille where nom="L'arbre"
j'espère avoir répondu à ta question.
30 avril 2004 à 16:28
Peut tu donner des details ?
30 avril 2004 à 15:28
ex : Requete selection
Dim Source as string
chaine="L'arbre"
source=" Select * from toto where name ="+chr(34)+chaine+chr(34)
23 févr. 2004 à 14:45
23 févr. 2004 à 14:33
23 févr. 2004 à 12:32
Car l'apostrophe "à l'envers" est utilisée dans certains cas et qui posent des pb dans certains cas (j'ai déjà eu le cas).
Donc son idée est bonne mais faite à la façon VB5 en .NET car dans VB5 il n'y avait pas de replace si je me souviens bien :p
23 févr. 2004 à 10:06
Pour ma part je connaissais pas non plus le Replace (oups ...c'est pourtant basic), donc cool pour l'info.
23 févr. 2004 à 08:42
c'est com même plus facile mais bon chacun sont truc lol
++
Bonne continuation
22 févr. 2004 à 14:36
Merci encore
22 févr. 2004 à 13:47
J'allais te sugerer la meme chose !!!
21 févr. 2004 à 11:44
La même chose en 1 ligne
txt= txt.Replace("'","'")
C'est pas optimisé du tout ce que tu fais là