Discussion :

[bruce207]

Bonjour,
mon problème est que lorsque j'exécute le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
MaChaine = "SELECT * FROM local ORDER BY CINT (MID(mat_loc,5))"
With MyRecord
If .State <> adStateClosed Then .Close
.CursorLocation = adUseServer
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Source = MaChaine
Set .ActiveConnection = MyCon
.Open
End With

le débogeur s'arrete à la ligne en rouge et j'ai le message d'erreur suivant :
Erreur d'exécution '-2147467259(80004005)'
La méthode 'Open' de l'objet '_Recorset' a échoué
Je voudrais savoir d'où vient l'erreur et comment y remedier
Merci d'avance

[zazaraignée]

Hmm... Sais pas.

Une hypothèse : le résultat de la ligne

Code :

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

.Source = MaChaine

a peut-être pour effet d'ouvrir implicitement ton RecordSet...

As-tu essayé de mettre la ligne qui provoque l'erreur en commentaire et d'exécuter ton code pour voir ce que ça donne ? (pour vérifier mon hypothèse)

[ProgElecT]

Que contient mat_loc ?
Order by NonDuChamps, laisant penser que mat_loc contient justemant le nom du champs, la construction de MaChaine devrait être plutôt

Code :

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

MaChaine = "SELECT * FROM Configue ORDER BY " & Mid(mat_loc, 5, 1)

de plus Cint me semble des plus suspect, le nom d'un champs dans une table etant de type String, encore une chose, Mid attend 3 parametres.

[bruce207]

je voudrais savoir pourquoi le meme code marche ailleurs, sur d'autres modules dans le meme programme et sur d'autres il m'envoie le message d'erreur meme quand je change le code avec celui ci par exemple :

Code :

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

MyRecord.Open MaChaine, MyCon, adOpenKeyset, adLockOptimistic, adCmdText

[ProgElecT]

Code :

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

MaChaine = "SELECT * FROM local ORDER BY CINT (MID(mat_loc,5))"

CInt => Convertit une expression en Integer

ORDER BY, clause
Syntaxe

SELECT fieldlist FROM table WHERE selectcriteria [ORDER BY field1 [ASC | DESC ][, field2 [ASC | DESC ]][, ...]]]

Une instruction SELECT contenant une clause ORDER BY se compose des éléments suivants*:

Élément Description
fieldlist Noms du ou des champs à extraire avec leurs alias de nom de champ, fonctions de regroupement SQL, prédicats de sélection (ALL, DISTINCT, DISTINCTROW, ou TOP) ou autres options d'instruction SELECT.

table Nom de la table contenant les enregistrements à extraire. Pour plus d'informations, reportez-vous à la rubrique relative à la clause FROM.

selectcriteria Critères de sélection. Si l'instruction contient une clause WHERE, le moteur de base de données Microsoft Jet trie les valeurs après avoir appliqué les conditions WHERE aux enregistrements.

field1, field2 Noms des champs sur lesquels doit porter le tri.

le meme code marche ailleurs ..........

[SfJ5Rpw8]

et ta variable

Code :

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

MyRecord

elle est définie partout de la même façon ?

[bruce207]

Bonjour,
j'utilise CINT ici parceque ma table mat_loc est de type Text et que les enregistrements sont dans l'ordre alphanumérique et sont commposé comme suit LOCAL1, LOCAL10, LOCAL2,..., LOCAL9. Donc ceci c'est dans le but de les ordonner. Voici mon application en piece jointe pour que vous voyer de quoi je parle

[ProgElecT]

Merci pour les eclairsissements.
Malheureusement tu ne peux pas adopter cette façon de faire, tu ne peux trier que par ordre alphanumérique (code ascii de chaque caractère) ton champs etant de type String.
Tu ne pouras reclasser que l'ensemble des enregistrements renvoyés, dans une boucle.

[bruce207]

J'ai changé ma requete mais la meme erreur persiste. Je voudrais savoir les causes l'echec de la methode Open d'un recordset.

[ProgElecT]

J'utilise Visidata version 6.0, et je ne parviens pas a ouvrir ta base de données, avec un petit prog VB, même probleme.
Dans ton fichier Alire.txt, tu indiques les Forms qui demande l'ouverture du recordset et qui semble fonctionner, elles sont toutes gérées si l'ouverture échoue, de fait aucune ne réalisent l'ouverture.
Pour bbil, MyRecord et declaré dans un module en public

Désolé, soit je n'ai pas la reference permetant d'ouvrire ta BD, soit ta BD est corrompue, je ne peu donc t'apporter plus de d'aide, ne pouvant verifier les parametres de ta BD (nom des tables, nom et type des champs .......)
Bon courage pour la suite.

[bruce207]

Ouf! j'ai trouvé, le problème venait du nom de la table local qui est ou doit etre un mot clé d'ACCESS.

Code :

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

MaChaine = "SELECT * FROM local ORDER BY CINT (MID(mat_loc,5))"

apres l'avoir changé tout est rentré dans l'ordre. Merci à tous et à Progelect donc le post m'a un peu guider sur ma bdd.

[Mat.M]

Bruce207 c'est un probleme classique de la programmation SQL ; quand tu as ce genre de problemes faire toujours des essais avec un copier coller dans le generateur de requetes de Ms Access ou l'outil de SQL-SERVER pour pouvoir tester la requeete