POUR SE SIMPLIFIER LES APPELS BASE DE DONNÉE ACCESS

cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
- 4 sept. 2010 à 01:49
cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
- 4 sept. 2010 à 14:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/52253-pour-se-simplifier-les-appels-base-de-donnee-access

cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
16
4 sept. 2010 à 14:06
BONJOUR,

>>Merci de cette grande délicatesse dans tes propos
Personne (ou presque) ne le fait ici, et on se porte très bien, rassure-toi.

>>A l'époque ou ça a été écrit (1998) ADO n'existait pas !
Maintenant tu le sais, et on ne t'assassinera pas pour ça, hein ;)

>>Replace ?
Replace() ne parcourt la chaine qu'une fois, donc pas de problème de ce côté-là si c'est de cela que tu parlais. Tu ne dois donc pas lancer ça sur un SQL complet mais sur le contenu des chaines que tu mets dedans : "SELECT * FROM maTable WHERE monChamp='" & Pure(maChaine) & "';".
jfougeron
Messages postés
19
Date d'inscription
dimanche 8 avril 2007
Statut
Membre
Dernière intervention
25 avril 2013

4 sept. 2010 à 08:36
Merci de cette grande délicatesse dans tes propos (2 On est poli : «bonjour» et «merci» sont des mots plus qu'appréciés. )
A l'époque ou ça a été écrit (1998) ADO n'existait pas !
Replace ? ben dis donc, avec Pure = Replace(Str, "'", "''") la base va se remplir de quotes alors !
cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
16
4 sept. 2010 à 01:49
- gStrTraduitQuote : Un Replace("'","''") suffisait.
- NomFichier : Se résume en 3 lignes ...
## Dim P As Integer: P = InStrRev(StrNom, "")## If P 0 Then P InStrRev(StrNom, "/")
## If P <> 0 Then NomFichier = Right(StrNom, Len(StrNom) - P)

De plus, il faut utiliser ADO et non DAO.