Discussion :

[alexcluzel]

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

[WOLO Laurent]

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

Merci.

[alexcluzel]

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

[WOLO Laurent]

Il suffit de faire :

Code :

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

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

Et ca marche !!!!

[alexcluzel]

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

[alexcluzel]

ç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

[WOLO Laurent]

Et que te donne ceci ?

Code :

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

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

[alexcluzel]

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

[WOLO Laurent]

Code :

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

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 !!!

[Didier L]

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.

@+

[Didier L]

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.

@+

[Didier L]

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.

@+

[Didier L]

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.

@+

[alexcluzel]

Merci beaucoup je vais tester

[Didier L]

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

[alexcluzel]

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)

[alexcluzel]

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)

[alexcluzel]

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

[alexcluzel]

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

[Didier L]

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