Pb Procedure Stockée sous SQL SERVEUR et ACCESS

Bonjour,
1°) Lorsque j'exécute un Procedure stockée SQL Serveur sous Access il me met le message d'erreur suivant :
Une requete SQL Directe avec la propriété ReturnRecords ayant la valeur True n''a pas renvoyé d'enregistrements.

Voila mon code
DECLARE @vartest varchar(7)
SET @vartest = '2004-02'
EXECUTE test @proc_test="'&@vartest&'"

2°) Mon deuxième problème c'est que lorsque je lance la procedure stockée il me lance une fenetre pour choisir le nom DSN (mon lien ODBC) peut on l'enlever avec un bout de code si oui comment.

Pouvez-vous m'aidez merci

Tu dois nous poster tout ton script.
1-Ton Create Procedure
2-Ton EXEC

Merci.

Voila ma procedure Stockée mais elle est bonne car quand je met
EXECUTE test @proc_test="2004-02" elle marche

c'est quand je met
DECLARE @vartest varchar(7)
SET @vartest = '2004-02'
EXECUTE test @proc_test="'&@vartest&'"

elle ne fonctionne plus en fait je veux récupérer la valeur d'un champ dans un formulaire mais ça ne fonctionne pas même si je met forms!nom!champ à la place de '2004-02'


CREATE PROC test
@proc_test char(10)
AS
SELECT Commandes.Commande, Articles.Article, Articles.Designation, Commandes.QteCommande, Commandes.DateLivraisonEsperee,
[Suivi QS].[OK Liv], Commandes.CodeFournisseur, [Suivi QS].QS, RIGHT(Commandes.DateCommande, 4)
+ '-' + SUBSTRING(Commandes.DateCommande, 4, 2) AS mois
FROM Articles INNER JOIN
Commandes ON Articles.Article = Commandes.CodeArticle INNER JOIN
[Suivi QS] ON Commandes.Commande = [Suivi QS].[N°Commande]
WHERE (RIGHT(Commandes.DateCommande, 4) + '-' + SUBSTRING(Commandes.DateCommande, 4, 2) = @proc_test)
GO

Il suffit de faire :

Code:

---

1 2 3

DECLARE @vartest varchar(7) SET @vartest = '2004-02' EXECUTE test @vartest

---

Et ca marche !!!!

non ça ne marche pas c'est exactement ça que je faisais ça me met le message suivant

Une requete SQL Directe avec la propriété ReturnRecords ayant la valeur True n''a pas renvoyé d'enregistrements

ça marche sous sql serveur mais pas sous ACCESS

DECLARE @vartest varchar(7)
SET @vartest = '2004-02'
EXECUTE test @proc_test=@vartest

ça me met le message d'erreur ReturnsRecords à True alors qu'il est à true

Et que te donne ceci ?

Code:

---

1 2 3 4 5

DECLARE @vartest varchar(7),@sql varchar(8000) SET @vartest = '2004-02' set @sql='test ' + @vartest EXECUTE @sql

---

ça me donne impossible de trouver la procedure stockée test 2004-02

Code:

---

1 2 3 4

DECLARE @vartest varchar(7),@sql varchar(8000) SET @vartest = '2004-02' set @sql='test ''' + @vartest + '''' EXECUTE @sql

---

Ca commence à me faire rire !!!

Bonjour,

Je ne voudrais pas m' imposer dans votre débat, cependant pour répondre à tes premières questions, dans access pour ma part je crée toujours une requête sqldirect avec la chaine de connection enregistrer (login et password) et ensuite grace à la collection Querydefs, j'en change la source par Programation. Ainsi cette requête "MaSqlDirect" peux me servire a récuperer des donnée ou executer des actions.
Exemple

Set Monresulat = Currentdb.openRecordset("MasqlDirect",dbopensnapshot)
OU
Currentdb.execute "MasqlDirect"

Avant ces lignes j'ai modifié le contenu de MasqlDirect grace à:
Currentdb.QueryDefs("MasqlDirect").Sql="Select * from MaTable"
OU
Currentdb.QueryDefs("MasqlDirect").Sql="MaProc '2004-02'"
OU
Currentdb.QueryDefs("MasqlDirect").Sql="MaProc '" & Forms![Monform]![MonChamp] & "'"
Etc ...
"openRecordset" est utilisé pour récuperer un recordset même s'il sagit d'une procédure stockée
et
"Execute" uniquement pour les requêtes action.

En esperant que cela réponde à tes besoins. :)

Si je n'ai pas été assez clair n'hésite pas me recontacter.

@+

Bonjour,

Je ne voudrais pas m' imposer dans votre débat, cependant pour répondre à tes premières questions, dans access pour ma part je crée toujours une requête sqldirect avec la chaine de connection enregistrée (login et password) et ensuite grace à la collection Querydefs, j'en change la source par Programation. Ainsi cette requête "MaSqlDirect" peux me servire a récuperer des donnée ou executer des actions.
Exemple

Set Monresulat = Currentdb.openRecordset("MasqlDirect",dbopensnapshot)
OU
Currentdb.execute "MasqlDirect"

Avant ces lignes j'ai modifié le contenu de MasqlDirect grace à:
Currentdb.QueryDefs("MasqlDirect").Sql="Select * from MaTable"
OU
Currentdb.QueryDefs("MasqlDirect").Sql="MaProc '2004-02'"
OU
Currentdb.QueryDefs("MasqlDirect").Sql="MaProc '" & Forms![Monform]![MonChamp] & "'"
Etc ...
"openRecordset" est utilisé pour récuperer un recordset même s'il sagit d'une procédure stockée
et
"Execute" uniquement pour les requêtes action.

En esperant que cela réponde à tes besoins. :)

Si je n'ai pas été assez clair n'hésite pas me recontacter.

@+

Bonjour,

Je ne voudrais pas m' imposer dans votre débat, cependant pour répondre à tes premières questions, dans access pour ma part je crée toujours une requête sqldirect avec la chaine de connection enregistrée (login et password) et ensuite grace à la collection Querydefs, j'en change la source par Programation. Ainsi cette requête "MaSqlDirect" peux me servire a récuperer des donnée ou executer des actions.
Exemple

Set Monresulat = Currentdb.openRecordset("MasqlDirect",dbopensnapshot)
OU
Currentdb.execute "MasqlDirect"

Avant ces lignes j'ai modifié le contenu de MasqlDirect grace à:
Currentdb.QueryDefs("MasqlDirect").Sql="Select * from MaTable"
OU
Currentdb.QueryDefs("MasqlDirect").Sql="MaProc '2004-02'"
OU
Currentdb.QueryDefs("MasqlDirect").Sql="MaProc '" & Forms![Monform]![MonChamp] & "'"
Etc ...
"openRecordset" est utilisé pour récuperer un recordset même s'il sagit d'une procédure stockée
et
"Execute" uniquement pour les requêtes action.

En esperant que cela réponde à tes besoins. :)

Si je n'ai pas été assez clair n'hésite pas me recontacter.

@+

Bonjour,

Je ne voudrais pas m' imposer dans votre débat, cependant pour répondre à tes premières questions, dans access pour ma part je crée toujours une requête sqldirect avec la chaine de connection enregistrée (login et password) et ensuite grace à la collection Querydefs, j'en change la source par Programation. Ainsi cette requête "MaSqlDirect" peux me servire a récuperer des donnée ou executer des actions.
Exemple

Set Monresulat = Currentdb.openRecordset("MasqlDirect",dbopensnapshot)
OU
Currentdb.execute "MasqlDirect"

Avant ces lignes j'ai modifié le contenu de MasqlDirect grace à:
Currentdb.QueryDefs("MasqlDirect").Sql="Select * from MaTable"
OU
Currentdb.QueryDefs("MasqlDirect").Sql="MaProc '2004-02'"
OU
Currentdb.QueryDefs("MasqlDirect").Sql="MaProc '" & Forms![Monform]![MonChamp] & "'"
Etc ...
"openRecordset" est utilisé pour récuperer un recordset même s'il sagit d'une procédure stockée
et
"Execute" uniquement pour les requêtes action.

En esperant que cela réponde à tes besoins. :)

Si je n'ai pas été assez clair n'hésite pas me recontacter.

@+

Merci beaucoup je vais tester

Excuse moi j'ai oublié un point important que je viens d'utiliser dans mon Dev,
Pense aussi à changer la propriété "returnsrecords" de ta requête, True pour récuperer des enregistrements et false pour executer une requête action.
Voila une petite procédure jointe pour préparer idéalement tes requêtes. :)

@+


Sub PrepareSqlDirect(psQueryName As String, psClauseSql As String, pbReturnRecord As Boolean)
With CurrentDb.QueryDefs(psQueryName)
.SQL = psClauseSql
.ReturnsRecords = pbReturnRecord
End With
End Sub

Je ne sais pas comment déclarer "Monresultat", je ne sais pas manipuler ses objets Recordsets, et QueryDefs

Il me met un message d'erreur : type incompatible

Dim Monresulat As Recordsets
CurrentDb.QueryDefs("ps_test").SQL = "test '2004-02'"
Set Monresulat = CurrentDb.OpenRecordset("ps_test", dbOpenSnapshot)

Je ne sais pas comment déclarer "Monresultat", je ne sais pas manipuler ses objets Recordsets, et QueryDefs

Il me met un message d'erreur : type incompatible

Dim Monresulat As Recordsets
CurrentDb.QueryDefs("ps_test").SQL = "test '2004-02'"
Set Monresulat = CurrentDb.OpenRecordset("ps_test", dbOpenSnapshot)

Sub PrepareSqlDirect(psQueryName As String, psClauseSql As String, pbReturnRecord As Boolean)
With CurrentDb.QueryDefs(psQueryName)
.SQL = psClauseSql
.ReturnsRecords = pbReturnRecord
End With
End Sub

Sub PrepareSqlDirect(psQueryName As String, psClauseSql As String, pbReturnRecord As Boolean)
With CurrentDb.QueryDefs(psQueryName)
.SQL = psClauseSql
.ReturnsRecords = pbReturnRecord
End With
End Sub

Dans ton exemple tu doit avoir :

Dim Monresulat As Recordsets

PrepareSqlDirect "ps_test", "test '2004-02'", True
Set Monresulat = CurrentDb.OpenRecordset("ps_test", dbOpenSnapshot)

Dans le cas ou "Ps_test" est bien une requête SQL direct
Que " test '2004-02' " correspond bien à ta procédure stockée
Et que dans Les référence des modules ACCESS tu travaille bien avec Microsoft DAO 3.6 Object Library