Discussion :

[boudincweole10]

Bonjour à tous, voici la partie de code qui me pose problème

Code :

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

1
2
3
strSQL = "SHAPE {SELECT Numéro_Client,Nom,Prénom FROM Client} APPEND ({SELECT Numéro_Commande, Numéro_Client,Objet FROM Commande} AS Numéro_Commande RELATE Numéro_Client TO Numéro_Client)"
 
Call rcClient.Open(strSQL, Cn, adOpenDynamic,adLockOptimistic,adCmdText)

et il me met comme erreur : Instruction SQL non valide; 'DELETE','INSERT','PROCEDURE','SELECT' ou 'UPDATE' attendus...
Pouvez-vous m'aider?

[jmfmarques]

Il me semble que ton problème principal n'est pas inhérent à VB lui même mais à la façon de rédiger ta SQL (qui ne doit pas "marcher" non plus mabuellement, n'est-ce-pas ?)
Approches donc dans ce cas et à ce stade le forum MySQL s'il te plait

[boudincweole10]

Si jamais vous êtes Jacques Malatier (d'après votre pseudo), c'est en m'inspirant de votre tutoriel ADODB que j'ai écrit ces lignes de codes donc p-e pouvez-vous voir d'où vient mon erreur?

[jmfmarques]

Non ! Je ne suis pas Jacques Malatier
Oui ! je maintiens ce que j'ai dit plus haut !

[jacma]

Non, c'est moi .

Je vois que tu utlises la commande Shape pour ton recordset hiérarchique. Avant toute chose, as-tu bien déclaré

Code :

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

cn.Provider = "MSDataShape"

et ta chaîne de connexion prend-elle en compte "Data Provider = ..." et non simplement "Provider =..."

Code :

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

cn.Open "Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DidactDB\Biblio2000.mdb"

PS: ton message est pratiquement illisible. Cela doit provenir de ta chaîne SQL sur une seule ligne. Mets la sur plusieurs (espace+caratère soulignement et ligne suivante).

[boudincweole10]

Merci bcp, c'était bien cela mon erreur! il suffisait de mettre Data Provider!