Discussion :

[Keuf95]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci pour votre aide

[Dolphy35]

Salut,

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

[Keuf95]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.Open StrSql, cnx, adOpenKeyset, adLockReadOnly

Un extrait de la table Organnigramme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Dolphy35]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[Keuf95]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Tofalu]

Avec ADO, essaye de remplacer * par %