Sql Vba

Bonjour,
Je sèche un peu ce matin sans doute la fin de semaine.....
Je ne trouve pas pourquoi cette requête Sql en VBA ne ramène pas d'enregistrements alors qu'en l'exécutant dans une requête Access en mode SQL je récupère les enregistrements souhaités.

Code:

---

SELECT EntOrg, LibOrg1, Niveau FROM ORGANIGRAMME WHERE CodCol = 'CG95' and entorg like '030202*' order by EntOrg

---

Merci pour votre aide

Salut,

Comment exécute tu cette SQL et elle te sert à quoi ?

J'ai modifié la requête de la façon suivante et celle-ci fonctionne

Code:

---

1 2 3

cod_EntOrg = "03" StrSql = "SELECT EntOrg, LibOrg1, Niveau FROM ORGANIGRAMME WHERE CodCol = 'CG95' and entorg >= '" & cod_EntOrg & "' and entorg <= '" & cod_EntOrg & "99' order by EntOrg"

---

Elle est ensuite utilisée dans un RecordSet

Code:

---

rst.Open StrSql, cnx, adOpenKeyset, adLockReadOnly

---

Un extrait de la table Organnigramme

Code:

---

1 2 3 4 5 6 7

EntOrg-----LibOrg1-----------------------------------------Niveau 01----------PRESIDENCE-------------------------------------2 0101-------Presidence-Cabinet------------------------------4 0102------- Presidence-Secretariat--------------------------4 03----------DIRECTION GENER.DES SERVICES------------2 0301------- COMMUNICATIONN------------------------------4

---

Explications sur la table
le service avec le 0101 est un sous service du service 01
le service avec le 0102 est un sous service du service 01
le service avec le 0301 est un sous service du service 03
Etc...

Citation:

---

Envoyé par Keuf95

J'ai modifié la requête de la façon suivante et celle-ci fonctionne

Code:

---

1 2 3

cod_EntOrg = "03" StrSql = "SELECT EntOrg, LibOrg1, Niveau FROM ORGANIGRAMME WHERE CodCol = 'CG95' and entorg >= '" & cod_EntOrg & "' and entorg <= '" & cod_EntOrg & "99' order by EntOrg"

---

---

Cela fonctionne ou pas ? je comprend plus !!! 8O

Maintenant cela fonctionne mais j'ai remplacé la fin du Sql :

Code:

---

1 2	and entorg like '"& cod_EntOrg &"*' order by EntOrg

---

Par celui-ci :

Code:

---

1 2	and entorg >= '" & cod_EntOrg & "' and entorg <= '" & cod_EntOrg & "99' order by EntOrg

---

Je ne comprends toujours pas pourquoi le "like" ne fonctionne pas.

Avec ADO, essaye de remplacer * par % :wink: