POUR SE SIMPLIFIER LES APPELS BASE DE DONNÉE ACCESS
cs_ghuysmans99
Messages postés
3982
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 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 - 4 sept. 2010 à 14:06
cs_ghuysmans99 Messages postés 3982 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
https://codes-sources.commentcamarche.net/source/52253-pour-se-simplifier-les-appels-base-de-donnee-access
4 sept. 2010 à 14:06
>>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) & "';".
4 sept. 2010 à 08:36
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 !
4 sept. 2010 à 01:49
- 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.