Discussion :

[Pascalp]

Bonjour à tous,
Je voudrais exécuter une procédure stockée d'une base SQL depuis Access en lui passant un paramètre de type uniqueidentifier.

ALTER PROCEDURE [dbo].[UGet_ConfRapport]
@MonId uniqueidentifier
AS
BEGIN
SET NOCOUNT ON;

SELECT .....
FROM USel_ConfRapport
WHERE (MonId = @MonId)

Le code utilisé dans Access est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim ObjCon      As New ADODB.Connection
Dim ObjCmd      As New ADODB.Command
Dim ObjParam    As New ADODB.Parameter
Dim ObjRs       As New ADODB.Recordset
 
StrCnn = "DSN=UvTrend;UID=peupli_p;PWD=peupli_p;"
ObjCon.Open StrCnn
ObjCmd.ActiveConnection = ObjCon
ObjCmd.CommandText = "UGet_ConfRapport"
ObjCmd.CommandType = adCmdStoredProc
ObjCmd.Parameters.Refresh
ObjCmd(1).Type = adGUID
ObjCmd(1) = MonId
Set ObjRs = ObjCmd.Execute

Ou MonId est le paramètre récupéré dans un autre procédure. J'obtiens une erreur à chaque appel.
J'utilisais précédemment des tables attachées à cette base Sql et j'étais obligé de passer par GuidFromString et StringFromGuid pour que mes requêtes s'exécutent. J'ai essayé mais là cela ne fonctionne pas.
Qui peut m'aider ?

[LedZeppII]

Bonjour,

J'ai testé chez moi, ça fonctionne.
Que dit le message d'erreur ?
Quel est le type de la variable MonId ?
J'ai essayé avec Dim MonId() As Byte et Dim MonId As String avec succès.

A+

[Pascalp]

Le message d'erreur est le suivant :
Une opération OLE-DB en plusieurs étapes a généré des erreurs.

MonId est récupéré à partir d'une autre requête et est un UID. Il est affecté à un textbox masqué dans un formulaire. Je récupère cette valeur en l'affectant soit à une variable de type string après l'avoir converti par GuidtoString soit à un tableau de type Byte donc sans conversion.
Si j'utilise une variable de type string j'obtiens la valeur suivante :
{guid {0E8A6667-CB6C-4A76-AA2D-85EC207512DE}}
Si je passe GuidFromString de cette variable cela ne marche pas.
Idem avec le tableau de type Byte.

[Pascalp]

Le message d'erreur est le suivant :
Une opération OLE-DB en plusieurs étapes a généré des erreurs.

MonId est récupéré à partir d'une autre requête et est un UID. Il est affecté à un textbox masqué dans un formulaire. Je récupère cette valeur en l'affectant soit à une variable de type string après l'avoir converti par GuidtoString soit à un tableau de type Byte donc sans conversion.
Si j'utilise une variable de type string j'obtiens la valeur suivante :
{guid {0E8A6667-CB6C-4A76-AA2D-85EC207512DE}}
Si je passe GuidFromString de cette variable cela ne marche pas.
Idem avec le tableau de type Byte.
J'ai finalement changer le type de paramètre de l'objet commande en adBSTR au lieu de adGuid et créé une fonction qui supprime { guid de ma chaine et maintenant cela fonctionne mais ce n'est pas très propre et je ne comprend pas pourquoi la fonction guidfromstring ne fonctionne pas.

[LedZeppII]

Bonjour,

Juste un témoignage personel :

Dans le code de l'essai que j'ai fait,
- Je n'utilise pas les fonctions GuidtoString et StringFromGuid.
   Je pense que VBA fait les conversions adéquates.
- Je ne définit pas le type du paramètre. Il se met automatiquement avec avec l'appel à
   la méthode .Refresh

A+