Delphi XE5 procédures Sockées Transact-SQL data type

Bonjour


dans ma procédure j'ai un paramètre @ID_Sites integer,

j'essaie de lui passer une valeur depuis un FdSoredProcedure

Code:

---

1 2 3 4

Param.Name := '@ID_Sites'; Param.ADDataType:=dtUInt64; Param.Value := 0;

---

J'ai le choix entre

Citation:

---

dtSByte, dtInt16, dtInt32, dtInt64, // signed int
dtByte, dtUInt16, dtUInt32, dtUInt64, // unsinged int

---

Rien ne fonctionne

Citation:

---

---------------------------
Vulcain_logistique
---------------------------
[FireDAC][Phys][ODBC]-338. Param [@ID_Sites] type changed from [ftInteger] to [ftByte]. Query must be reprepared. Possible reason: an assignment to a TFDParam.AsXXX property implicitly changed the parameter data type. Hint: use the TFDParam.Value or appropriate TFDParam.AsXXX property.
---------------------------
OK
---------------------------

---

Une idée ?

Cordialement

Bonjour,

Le @ devant le nom m'interpelle ! généralement un paramètre se reconnait avec son : devant

en tout cas c'est ainsi que Firedac reconnait qu'il s'agit d'un paramètre

Comme j'ai déjà des @ dans certains SQL/SGBD je n'ose trop m'avancer en tout cas une chose est sure on ne met pas le caractère quand on se réfère ensuite au nom du paramètre
exemple :

Code:

---

SELECT * FROM TABLE WHERE MONCHAMP=:MONCHAMP

---

Code:

---

FDQuery.ParamByName('MONCHAMP').asInteger:=10;

---

il en va de même pour les procédures

Code:

---

SELECT * FROM MAPROCEDURE(:UNCHAMP,:DEUXCHAMP)

---

Code:

---

1 2 3

FDQuery.ParamByName('UNCHAMP').asInteger:=10; FDQuery.ParamByName('DEUXCHAMP').asString:='TOTO';

---

Pour un FdStoredProc normalement une fois le nom de la procédure indiquée les paramètres (en mode Design) sont préparés, il serait bon de faire un test en ce sens pour vérifier. (je n'ai pas de SGBD qui nomme ses paramètres avec des @ , ça ne viendrait pas de PHP ça ?)

en mode runtime , on renseigne le nom de la procédure puis on fait un prepare pour avoir les types de champs

Bonjour

J'ai essayer avec un Query

Code:

---

select * from MonShema.Maprocedure

---

Mais dans ce cas la MonShema.Maprocedure, j'ai une erreur : n'est pas un objet connu(de mémoire)

Avec un FdSoredProcedure, j'arrive plus loin.

notez, que je ne sais pas exactement comment on récupère une table renvoyée par la procédure stockées.
Je tâtonne.

Cordialement

Re,

MSQLServer , mais bon dieu oui bien sûr aurait dit le commissaire Bourel dans les 5 dernières minutes. Il n'empêche que pour récupérer des données d'une procédure stockée contenant des paramètres en entrée et renvoyant des données, avec Firedac la syntaxe sera bien SELECT * (ou liste des champs) FROM PROCEDURE(liste des paramètres d'entrées) comme indiqué en code SQL n°2 de ma réponse précédente.

Les noms des paramètres seront précédés de ':' et non d'un @ (qui lui vient de la syntaxe de MSSQL)

dans votre cas, à priori je vous propose le code suivant :

Code:

---

1 2 3 4 5 6 7 8

FDQuery.UnPrepare; // si jamais la requête était déjà préparé par exemple FDQuery.Close; // si déjà ouverte FDQuery.SQL.Text:='SELECT * FROM maprocedure(:id); // remarquer que je n'ai pas forcément utilisé le nom du paramètre MSSQL FDQuery.Prepare; // optionnel mais un plus FDQuery.ParamByName('ID').asInteger:=0; FDQuery1.Open; .... FDQuery1.Close;

---

bonjour
( je reprends avec cette aide :http://docwiki.embarcadero.com/RADSt...ures_(FireDAC))
soit une procédure stockée sur Microsoft Serveur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

CREATE PROCEDURE vulcain.test AS BEGIN /* Procedure body */ create table #V_Prix(Id_Transporteur varchar(20),Prix_HT NUMERIC(15,4) ,Prix_Details varchar(100))   INSERT INTO #V_Prix VALUES (N'toto', 526.58, 'blabla'); INSERT INTO #V_Prix VALUES ('Dupont', 530.58, 'blabla'); INSERT INTO #V_Prix VALUES (N'Durand', 450, 'blabla');   select * from #V_Prix END

---

pas de paramètres, juste un retour de table
Pièce jointe 181806

Le code delphi

Code:

---

1 2 3 4 5 6 7 8

FDQuery1.SQL.Clear; FDQuery1.SQL.Add('vulcain.test;');   try FDQuery1.Prepare; FDQuery1.Open; ShowMessage('cool');

---

le résultat, pas d'erreur mais aucunes données affichées.
Pièce jointe 181808

Voilà pour le fdQuery, à ce stade pas de paramètre, mais pas bon.

Je reviens à mon fdstoredproc, sur la procédure vulcain.Test Idem que le fdQuery

je suis bloqué.

Cordialement

je ne suis pas assez sur de moi, ne connaissant pas SQLServer mais à mon avis il manque quelque chose :koi : les paramètres de sorties et de surcroit étant donné que vous voulez un ensemble de résultat , une boucle .
En fait, le code de votre procédure stockée ressemble plus à un script SQL qu'à une procédure stockée.

En bref, j'ai l'impression que c'est votre procédure stockée qui bat de l'aile et non Firedac

la même procédure en Firebird donnerait ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

CREATE PROCEDURE vulcain.test RETURNS ( ID VARCHAR(20), PRIX NUMERIC(15,4), DETAIL VARCHAR(100) ) AS BEGIN /* Procedure body */ create table #V_Prix(Id_Transporteur varchar(20),Prix_HT NUMERIC(15,4) ,Prix_Details varchar(100))   INSERT INTO #V_Prix VALUES ('toto', 526.58, 'blabla'); INSERT INTO #V_Prix VALUES ('Dupont', 530.58, 'blabla'); INSERT INTO #V_Prix VALUES ('Durand', 450, 'blabla'); for select * from #V_Prix INTO :ID,:PRIX,:DETAIL DO SUSPEND; END

---

merci Sergio

La procedure stokée simplifiée fonctionne bien, c'est les champs de la DBGrid qui ne sont pas alloués au bon champ de la table retournée, par la procédure.

J'ajoute les variable de procédure stockée et je les valorise dans Delphi 1 par une.

@+

Bonjour,
finalement, je suis parti sur un DQuery

Code:

---

1 2 3 4 5 6

FDQuery1.SQL.Add('vulcain.test :ID_Courant, :ID_SITE;'); // FDQuery1.Params[0].AsString:='Tra0000000001'; // FDQuery1.Params[1].AsInteger:=1; FDQuery1.ParamByName('ID_Courant').AsString:='Tra0000000001'; FDQuery1.ParamByName('ID_SITE').AsInteger:=0;

---

Noter le passage de paramètre, je l'ai trouvé au juché...

Merci à tous