Technique - odbc | Procédure stockées avec VBA

Par loic911 le 21/03/2007 - 18:39

Bonjour,

J'ai une procédure stockée PL/PGSQL
-------------------------------------------------------------------------------------------------------
CREATE FUNCTION insertInfos(pNom VARCHAR, pWSVG DECIMAL, pHSVG DECIMAL,pSX DECIMAL, pSY DECIMAL, pWD DECIMAL,pHD DECIMAL,pMetier VARCHAR) RETURNS void AS $$
DECLARE
vSite char (3);
vBat char (4);
vEtage CHAR (4);
vId INTEGER;
BEGIN
vSite := SUBSTR(pNom, 0, 3 );
vBat := SUBSTR(pNom, 4, 4 );
vEtage := SUBSTR(pNom, 8 , 4 );
SELECT nextval('seq_id_plan') INTO vId;
--IDPLAN := vId;

INSERT INTO "PLANS"(ID,NOM, WIDTHSVG,HEIGHTSVG,STARTX,STARTY,WIDTHDRAW,HEIGHTDRAW,SITE,BATIMENT,ETAGE,METIER) VALUES (vId,pNom, pWSVG, pHSVG,pSX, pSY, pWD,pHD,vSite,vBat,vEtage,pMetier);
END;
$$ LANGUAGE plpgsql;
-------------------------------------------------------------------------------------------------------

J'essaye de l'appeler depuis un code VBA:
-------------------------------------------------------------------------------------------------------
Public Sub CallPostProceduresInfoGenerale(pNom As String, widthSVG As Double, heightSVG As Double, startX As Double, startY As Double, widthDraw As Double, heightDraw As Double, pMetier As String)

Dim cmd As New ADODB.Command

cmd.ActiveConnection = cnxPost

Dim str As String
str = ""

'SELECT _insertInfos ('tada', 43, 34,65, 34, 33,23,'batiment')

cmd.CommandText = "Select _insertInfos(?,?,?,?,?,?,?,?)"

cmd.Parameters.Append cmd.CreateParameter("pNom", adVarChar, , 50, pNom)
cmd.Parameters.Append cmd.CreateParameter("pWSVG", adInteger, , , Round(widthSVG, 0))
cmd.Parameters.Append cmd.CreateParameter("pHSVG", adInteger, , , Round(heightSVG, 0))
cmd.Parameters.Append cmd.CreateParameter("pSX", adInteger, , , Round(startX, 0))
cmd.Parameters.Append cmd.CreateParameter("pSY", adInteger, , , Round(startY, 0))
cmd.Parameters.Append cmd.CreateParameter("pWD", adInteger, , , Round(widthDraw, 0))
cmd.Parameters.Append cmd.CreateParameter("pHD", adInteger, , , Round(heightDraw, 0))
cmd.Parameters.Append cmd.CreateParameter("pMetier", adVarChar, , 25, pMetier)

cmd.Execute

Set cmd = Nothing
End Sub
-------------------------------------------------------------------------------------------------------

Mais j'obtiens le message d'erreur suivant:

"ERROR: function _insertinfos(name,integer,integer,integer,integer,integer,integer,name
LIGNE 1: Select _insertInfos($1,$2,$3,$4,$5,$6,$7,$8)
(une flèche "^" indique le premier e de select)
ASTUCE: No function matches the given name and argument types. You may need to add explicit type casts."

Je trouve aucun exemple d'appel de procédure PL/PGSQL depuis du code VBA!

Helpppp! ;o)