[VB6+Access] Requete qui marche sous Access mais pas sous VB

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB6+Access] Requete qui marche sous Access mais pas sous VB

peltchag

Bonjour,

je fais une petite appli en VB pour gerer une liste de declarations stockées dans une BD Access. J'ai un petit probleme qui me laisse reellement perplexe : ma requete pour afficher toutes les declarations marche bien sous Access, mais pas sous VB :ouch:

Description de mes tables :

ZONE(Num_Zone, Nom) avec cle primaire : Num_Zone
IMPORTANCE(Num_Importance, Importance) avec cle primaire : Num_Importance
DECLARATION(Num_Declaration, Lieu, Date, Declarant, Risque, Date_Debut, Date_Fin, Delai, Action, Num_Zone, Num_Importance) avec cle primaire : Num_Declaration et cles secondaires : Num_Zone et Num_Importance

sur mon Formulaire VB, j'ai mis une Datagrid dont la source est la requete en question :

SELECT DECLARATION.Num_Declaration, DECLARATION.Lieu, DECLARATION.Date, DECLARATION.Declarant, DECLARATION.Risque, DECLARATION.Date_Debut, DECLARATION.Date_Fin, DECLARATION.Delai, DECLARATION.Action, DECLARATION.Num_Zone, ZONE.Nom, DECLARATION.Num_Importance, IMPORTANCE.Importance FROM DECLARATION, IMPORTANCE, ZONE WHERE ZONE.Num_Zone = DECLARATION.Num_Zone AND IMPORTANCE.Num_Importance = DECLARATION.Num_Importance ORDER BY DECLARATION.Num_Declaration;

Le code de VB :

Code :

Dim rsSituations As ADODB.Recordset
Dim Requete As String
Requete = "SELECT DECLARATION.Num_Declaration, DECLARATION.Lieu, DECLARATION.Date, DECLARATION.Declarant, DECLARATION.Risque, DECLARATION.Date_Debut, DECLARATION.Date_Fin, DECLARATION.Delai, DECLARATION.Action, DECLARATION.Num_Zone, ZONE.Nom, DECLARATION.Num_Importance, IMPORTANCE.Importance "
Requete = Requete & "FROM DECLARATION, IMPORTANCE, ZONE "
Requete = Requete & "WHERE ZONE.Num_Zone = DECLARATION.Num_Zone "
Requete = Requete & "AND IMPORTANCE.Num_Importance = DECLARATION.Num_Importance "
Requete = Requete & "ORDER BY DECLARATION.Num_Declaration;"
Set rsSituations = New Recordset
rsSituations.CursorLocation = adUseClient
rsSituations.Open Requete, Connexion, adOpenStatic, adLockReadOnly
Set DtgLstSituations.DataSource = rsSituations

sous Access, si je teste la requete, ca marche nickel !
sous VB, si j'execute le code donne au-dessus, j'obtiens le message d'erreur :

Code :

Erreur d'exécution '-2147467259 (80004005)'
La méthode 'Open' de l'objet '_Recordset' a échoué

je pense que le probleme vient reellement de la requete, car si je fais un "SELECT * FROM DECLARATION", ca marche !

est ce que quelqu'un pourrait m'aider ? :jap:

Publicité

ffomnislash

byzarre ton probleme

A tous hasard supprime le ";" a la fin de ta requete
Dans "SELECT * FROM DECLARATION" tu ne la pas mis, mais je sis pas si c'est un oublie en ecrivant ton msg ou si tu ne la vraiment pas mis dans ton code VB lors du test

ffomnislash

Sinon personnellemet je fait mes requetes en VB de cette maniere

Code :

dim record
dim requete as string
requete ="SELECT ..."
Set record = CurrentDb.openrecordset(requete)

Tu peut toujours essayer ...

peltchag

le ';' symbolise la fin de la requete, si on le mets pas, le moteur l'ajoute de lui même

je pense pas que le probleme vienne de la maniere dont j'ai fait ma requete, car j'en ai fait bcp d'autres et elles ont toutes marche jusqu'a present mais j'essairais quand meme

merci pour l'aide

ffomnislash

je connait l'utilité du ";" mais bon les progs genre access parfois ca fait que ca veut ... ^^

peltchag

ma foi, je suis bien d'accord

mais on va pas lancer un grand debat ici

peltchag

de retour au boulot, ca ne marche pas non plus

peltchag

probleme resolu :

j'ai supprime la table ZONE, puis cree une table SECTEUR avec la meme structure et les memes donnees, et ca marche

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB6+Access] Requete qui marche sous Access mais pas sous VB

Sujets relatifs
[ASP] page "patientez svp" pendant requete	pb requete simple
[MySQL]résoudre une égalité dans une requête de classement	Accès bdd Access
Pb de requete SQL	pb requete
[MySQL] Question sur les dates et sur 1 requete SQL	pb requete help me:)
requete SQL qui ne marche pas
Plus de sujets relatifs à : [VB6+Access] Requete qui marche sous Access mais pas sous VB

Page générée en 0.034 secondes