VB/ACCESS Requête parametrée stockée dans ACCESS

Signaler
Messages postés
3
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
29 juillet 2002
-
Messages postés
3
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
29 juillet 2002
-
J'ai une requête ACCESS stockée dans ma base de donnée, avec un paramètre
Il y a deux colonnes, une avec un type Numérique, l'autre avec un type Texte
Lorsque je mets le paramètre dans la colonne Numérique (cad que je veux avoir la valeur correspondante dans l'autre colonne), j'utilise ce code : (et il marche)

Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset
Set prm = New ADODB.Parameter

With cmd
.ActiveConnection = db
.CommandType = adCmdTable
.CommandText = "test"
Set prm = .CreateParameter("Code_ent", adInteger, adParamInput)
.Parameters.Append prm
End With
prm.Value = "18424"
Set rs = cmd.Execute

While rs.EOF = False
MsgBox "ParamRQ " & rs!Libelle & " " & rs!code_ent
rs.MoveNext
Wend

(nom de la requete : test)
(nom de la colonne Numérique : Code_ent)
(nom de la colonne Texte : Libelle)
Mais lorsque je veux mettre la colonne Texte en paramètre (et ainsi avoir la colonne Numerique en résultat) j'ai un message d'erreur de type
J'utilise alors ce code :

Set prm = .CreateParameter("Libelle", adVarChar, adParamInput)
(...)
prm.Value = "VINCI"

Dans la plupart des exemples trouvés, il y a
.CommandType = adCmdStoredProc
Mais ça ne marche pas chez moi

Si quelqu'un a une idée ou sait ou se trouve mon erreur...

2 réponses

Messages postés
3
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
29 juillet 2002

Petite indication
Si j'utilise le commandType adCmdStoredProc, j'ai le message d'erreur :
Instruction SQL non valide,'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' attendus
alors que ma requête a tout ce qu'il y a de plus valide
Pour les sceptiques, voici le code de la requête stockée dans ACCESS

SELECT entreprise.Libelle, entreprise.Code_ent
FROM entreprise
WHERE (((entreprise.Code_ent)=[parametre]));
0
Messages postés
3
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
29 juillet 2002

Après deux demi journée de recherche, ben je viens de trouver tout seul en fait

Pour ceux que ça intéresse, le code à utiliser pour utiliser une requête paramétrée sur une donnée de type Texte est :

Set prm = .CreateParameter("Libelle", adBSTR, adParamInput)
0