Discussion :

[greg64]

Salut à tous

j'ai récupéré la fonction qui permet de créer une requete sql mais j'ai un petit problème ma requete n'apparait pas dans ma liste des requetes sous Access.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub CreerRequete(nom As String, SQL As String)
 
Dim MaCom As New ADODB.Command
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
MaCom.CommandText = SQL
MCat.Procedures.Append nom, MaCom
Set MCat = Nothing
Set MaCom = Nothing
 
End Sub

merci de votre aide

[Frank]

Message d'erreur ?
En mode pas à pas, les valeurs correspondant aux nom et SQL sont bien renseignées ?

[greg64]

Bonjour
Non je n'ai pas de message d'erreur mais la première fois que je l'utilise RAS mais la requete n'apparait pas dans ma liste des requetes. Ensuite j'essaye de recréer la même requete et un message s'affiche disant requete déjà existante.

donc je comprend pas ou se situe l'erreur.
merci.

[Tofalu]

Pourtant ce code fonctionne bien

Essayes de remplacer Procedures par Views.

Quelle version d'Access ?

Pourquoi utiliser ADO, as tu essayé avec DAO ?

Code :

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

1
2
3
4
5
Sub CreerRequete(nom As String, SQL As String)
Dim oDb As DAO.Database
Set oDb = CurrentDb
oDb.CreateQueryDef nom, SQL
End Sub

[greg64]

Tout d'abord merci de ton aide.

La fonction me créée bien une requete mais elle n'apparait pas dans ma liste des requetes.
Alors avec la fonction suppression d'une requete j'ai un message d'erreur m'indiquant que la requete n'existe pas et avec la fonction créer une requete j'ai le message requete existante.
j'ai essayé ton nouveau code mais le pb maintenant c'est qu'il me dit que la requete existe dèja donc c'est un peu le bordel dans ma base.

encore merci

[Tofalu]

Ok, bon ben on va déjà supprimer l'ancienne requête.

Code :

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

1
2
3
4
5
Sub SupprRequete(nom As String)
Dim oDb As DAO.Database
Set oDb = CurrentDb
oDb.QueryDefs.Delete (nom)
End Sub

Tu l'utiliseras une première fois pour supprimer ta fameuse requête inaccessible et ensuite, tout va rentrer dans l'ordre

[greg64]

tout est Ok merci beaucoup.
a plus
au fait je sais pas tu t'occupe de la FAQ mais si c'est le cas les fonctions que tu m'as données sont les bienvenue je pense.
encore merci

[Tofalu]

Elle seront intégrées prochainement. C'est en cours;

Toutefois c'est bizarre que les autres utilisant ADO n'aient pas fonctionné :s

[greg64]

je ne peux pas dire quelles ne fonctionnent pas mais lors de la création la requête n'apparait pas dans la liste des requêtes.
Ma version d'Access est celle de 2000. Pour être que cela a une importance ???