Discussion :

[JPaul94300]

Bonjour,

après avoir fait le tour de la FAQ, des tutoriels je n'ai pas trouvé mon bonheur . J'ai une requete paramétrée sql (SELECT DISTINCT TOP 100 PERCENT MotDePasse, LogIn, RaisonSociale FROM dbo.T_Tiers
WHERE (MotDePasse = @Mdp) AND (LogIn = @LogIn)) stockée. Je veux faire appel à cette requête via VBA en passant les paramètres via 2 variables....et si dans la fonction ci-après RS_MdP.Open ....fonctionne parfaitement lorsque je passe les données directement à la requete, rien ne va plus lorsque je veux passer par des variables.

Question :
1) est-ce un simple problème de synthaxe ajouter chr(34)...etc )
2) ou ce que je veux faire est impossible et je dois traiter le problème autrement ?

Merci de vos conseils

JPaul

NB : SQL server 2000, Access 2003

Public Function FO_VBA_ADO(MdP_, LogIn_)

Dim Cn As ADODB.Connection
Set Cn = CurrentProject.Connection

'MsgBox Cn.ConnectionString 'test la connection

Dim RS_MdP As New ADODB.Recordset

'fonctionne !!!
RS_MdP.Open "PS_teste_mdp 'test', 'essai'", Cn, adOpenStatic, adLockReadOnly

'ne fonctionne pas !!!
' LogIn_ et Mdp_ ramène également test et essai....via la fonction
RS_MdP.Open "PS_teste_mdp LogIn_, MdP_", Cn, adOpenStatic, adLockReadOnly

Set Cn = Nothing


End Function

[Kloun]

Paf :

Code :

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

RS_MdP.Open "PS_teste_mdp '" & LogIn_ & "', '" & MdP_& "'", Cn, adOpenStatic, adLockReadOnly

[JPaul94300]

Kloun,

merci de votre réponse rapide...mais je pense qu'il y a une problème de synthaxe :

RS_MdP.Open "PS_teste_mdp '" & LogIn_ & "', '" & MdP_& "'", Cn, adOpenStatic, adLockReadOnly

ne fonctionne pas...

Cordialement

JP

[Kloun]

il doit manquer un espace entre le _ et le & de MDP.
Sinon, c'est quoi le message d'erreur ?

[JPaul94300]

il doit manquer un espace entre le _ et le & de MDP.
Sinon, c'est quoi le message d'erreur ?

c'est exact...mais même avec l'espace cela ne fonctionne pas...le contenu des variables n'est pas passé à la requête...

je le vois parce que MsgBox RS_MdP.RecordCount me retourne 1 normalement et ici j'ai zéro...

Une autre piste ?

Merci

JP

[JPaul94300]

Oups,

c'est résolu, effectivement cela fonctionne...

j'avais juste inversé le contenu de mes 2 variables....


Merci


JP

[Kloun]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function FO_VBA_ADO(MdP_ as string, LogIn_ as string)
Dim Cn As ADODB.Connection
Dim RS_MdP As New ADODB.Recordset
dim iStr as string
 
Set Cn = CurrentProject.Connection
 
' LogIn_ et Mdp_ ramène également test et essai....via la fonction 
iStr = "PS_teste_mdp '" & LogIn_ & "', '" & MdP_ & "'"
debug.print iStr
RS_MdP.Open iStr, Cn, adOpenStatic, adLockReadOnly
Set Cn = Nothing
End Function

Que vaut iStr ?