Tom's Guide > Forum > Programmation > problème requête SQL VBA [resolu]

problème requête SQL VBA [resolu]

Forum Programmation : problème requête SQL VBA [resolu]

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
teamrenault   25-05-2007 à 12:48:24

Salut à tous, j'ai un petit concernant l'exécution de ma requête SQL qui interroge ma base ACCESS

Parmis les modèles de véhicule que je recherche j'ai la KIA CEE'D mais comme vous pouvez le constater dans CEE'D il y a un ' donc dans ma requête.... il n'arrive pas à trouver ce modèle

l'erreur qu'il m'indique est : Erreur de syntaxe (opérateur absent) dans l'expression '(((MARQUE.Marque)='KIA') AND ((MODELE.Modele)='CEED'D') AND ((GENRE.Genre)='VP'));'

le ' pose problème. Alors comment éviter qu'il ne prenne ce ' comme une balise.

Voici le code

Code :
  1. For J = 35000 To 36000
  2.     'On Error Resume Next
  3.     'Requête SQL2
  4.     val = Sheets("IMMATs Modèle VP" ).Range("C" & J).Text
  5.     val2 = Sheets("IMMATs Modèle VP" ).Range("D" & J).Text
  6.     val3 = Sheets("IMMATs Modèle VP" ).Range("E" & J).Text
  7.     strSql = "SELECT DISTINCT Modele.Id_Modele FROM Genre INNER JOIN (MARQUE INNER JOIN Modele ON MARQUE.Id_Marque = Modele.Id_Marque) ON Genre.Id_Genre = Modele.Id_Genre WHERE (((MARQUE.Marque)=" & "'" & val & "'" & " ) AND ((Modele.Modele)=" & "'" & val2 & "'" & " ) AND ((Genre.Genre)=" & "'" & val3 & "'" & " ));"
  9.     'Ouverture du jeu d'enregistrements.
  10.     Set rst = New ADODB.Recordset
  12.     'Paramètres de Résultat de la Requête
  13.     With rst
  14.         .Open Source:=strSql, _
  15.         ActiveConnection:=cn, _
  16.         CursorType:=adOpenForwardOnly, _
  17.         LockType:=adLockReadOnly
  18.     End With



Merci d'avance pout votre aide


Message édité par teamrenault le 25-05-2007 à 13:38:51
Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
elendilm   25-05-2007 à 13:26:30
- 0 +

dim toto as string
toto="to'to"
toto=Replace(toto," ' "," \ ' " )

(j'ai rajouté des espaces dans les 2 derniers parametres de Replace (pour la lisibilité))


Message édité par elendilm le 25-05-2007 à 13:27:13
Répondre à elendilm
teamrenault   25-05-2007 à 13:34:32
- 0 +

Niquel merci beaucoup elendilm. je connaissais pas cette fonction replace mais pk as tu mis un \?

moi j'ai mis :
val2 = Replace(val2, " ' ", " ' ' " )

Merci encore

Répondre à teamrenault
elendilm   25-05-2007 à 21:30:43
- 0 +

pour despecialiser le caractere.

J'ai beaucoup d'expérience en C* (c/c++ ...) et le caractere de despecialisation est le "\" ...

en VBA, je suis 1 peu plus limité. Requete, organisation de tableaux, de stats ... il semble donc qu'il faille mettre 2 ' pour les requetes SQL... comme ça, je le saurai!

Répondre à elendilm
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > problème requête SQL VBA [resolu]
Aller à :

Il y a 2613 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,162 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens