Discussion :

[simon45]

Bonjour,

je viens vers vous suite à un souci dans une macro VBA.
je doit récupérer des données dans une base DBF, je me connecte avec

Code :

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

1
2
3
4
5
6
7
8
9
 "Set objConnection = CreateObject("ADODB.Connection")
 objConnection.Open CONNEXION1
 
Set objRecordset = CreateObject("ADODB.Recordset") 'Creation d'un objet RecordSet pour recevoir les donnees
    objRecordset.CursorLocation = 3
    objRecordset.Locktype = 3 'objet modifiable
    objRecordset.Open ChaineRequete, objConnection 'Reception des donnees
 
    Do While (objRecordset.EOF = False) And (objRecordset.BOF = False)

avec chaine requete de forme variable, par exemple :

Code :

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

SELECT dbc_sectz, COUNT(*) as Nombre FROM spdetbcz GROUP BY dbc_sectz"

, ce qui fonctionne très bien. Mon souci est que si je veux integrer une sous-requete , j'ai systèmatiquement un message d'erreur : [Microsoft] [ODBC Visual Foxpro Driver]Erreur de syntaxe.
exemple de chaine

Code :

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

"select count(T.Nombre) FROM (SELECT dbc_sectz, dbc_numez as Nombre FROM spdetbcz  WHERE dbc_numez> 36000) T"

Ou est ce que je me trompe?

merci de votre aide.

[Oliv-]

Salut,
En sql pur effectivement ça marche.
Mais pourquoi tu n'écris pas ? Est ce juste un exemple ?

Code :

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

"select count(dbc_numez) FROM spdetbcz WHERE dbc_numez > 36000"

essaye aussi avec

Code :

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

"select count(T.Nombre) FROM (SELECT dbc_sectz,Nombre = dbc_numez FROM spdetbcz WHERE dbc_numez> 36000) T"

[simon45]

Merci de cette réponse.

La solution 2 donne aussi le même message d'erreur.

En fait, il s'agit pour moi de valider le fonctionnement de sous-requete dans une requete. Est-ce que le diver FoxPro est compatible avec cette structure ?
Pour info, cela ne fonctionne pas non plus sous EXCEL 2010.

[Oliv-]

pourquoi foxpro ? et pas Microsoft.Jet ?