[DELPHI][PROECEDURES STOCKES] Access violation

Version imprimable

30/04/2004, 16h27
All Jinx

[DELPHI][PROECEDURES STOCKES] Access violation

Bonjour,

J'utilise le composant "StoredProc" afin d'éxecuter et de récupérer les résultats d'un procédure stockée.

J'utilise la méthode Open.
Cependant, dès lors que je tente de fermer la procédure à l'aide de la méthode Close, j'ai une erreur "Acces violation..." avec la fenêtre de console qui s'ouvre.
Avec Delphi fermé, ce bug ce traduit par une fermeture pur et simple du programme.

J'ai tenté d'utiliser les valeurs du paramètre 'Active:=true/false' pour remplace Open/Close mais j'ai le même soucis.

Si je me contente d'utiliser la méthode "ExecProc", tout ce passe très bien, mais bon, je ne peux bien sur pas récupérer les valeurs de retour.

Je suis vraiment coincé là, je travaille avec Delphi 7 entreprise sur Windows XP Pro.

Merci pour votre aide :D
04/05/2004, 07h31
yoyo44

salut, moi j'utilise execproc et je peux récupérer mes valeurs de retour.

Code:

ValRetour := ProcStock.ParamByName('R_Retour').AsString;

@++

Je vous donne un exemple du procédure stocké pour vous et ca marche bien. :wink:

Exemple procédure stocké d'enregistrement ou modification employé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
 
/* Stored procedures */
 
CREATE PROCEDURE "SP_INS_EMP" 
(
  "CODE_EMP" INTEGER,
  "CODE_TYPE" INTEGER,
  "ENOM" VARCHAR(25),
  "EPRENOM" VARCHAR(25),
  "ELOGIN" VARCHAR(25),
  "EPASS" VARCHAR(100),
  "EDDV" DATE,
  "EACCES" VARCHAR(1)
)
RETURNS
(
  "RESULT_CODE" INTEGER
)
AS
BEGIN EXIT; END ^
 
 
ALTER PROCEDURE "SP_INS_EMP" 
(
  "CODE_EMP" INTEGER,
  "CODE_TYPE" INTEGER,
  "ENOM" VARCHAR(25),
  "EPRENOM" VARCHAR(25),
  "ELOGIN" VARCHAR(25),
  "EPASS" VARCHAR(100),
  "EDDV" DATE,
  "EACCES" VARCHAR(1)
)
RETURNS
(
  "RESULT_CODE" INTEGER
)
AS
BEGIN
    SELECT ID_EMP FROM EMPLOYE
        WHERE ID_EMP = :CODE_EMP
        INTO :CODE_EMP;
 
    /* Le type employé existe, on le met à jour */
    IF ((CODE_EMP IS NOT NULL) AND (CODE_EMP <> 0)) THEN BEGIN
        UPDATE EMPLOYE
            SET ID_TYPEEMP = :CODE_TYPE,
                NOM = :ENOM,
                PRENOM = :EPRENOM,
                LOGIN = :ELOGIN,
                PASS = :EPASS,
                DDV = :EDDV,
                ACCES = :EACCES
            WHERE (ID_EMP = :CODE_EMP) ;
        END
 
    /* Le type employé à créer */
    ELSE BEGIN
        /* Initialisation du code grâce à un générateur */
        RESULT_CODE = GEN_ID(GEN_EMPLOYE_ID, 1);
        INSERT INTO EMPLOYE(
                    ID_EMP,
                    ID_TYPEEMP,
                    NOM,
                    PRENOM,
                    LOGIN,
                    PASS,
                    DDV,
                    ACCES)
              VALUES(
                    :RESULT_CODE,
                    :CODE_TYPE,
                    :ENOM,
                    :EPRENOM,
                    :ELOGIN,
                    :EPASS,
                    :EDDV,
                    :EACCES);
        END
 
SUSPEND;
 
END
 ^
 
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;

Pour envoyer les valeurs:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
with DMPOS do begin 
            SP_Emp.StoredProcName := 'SP_INS_EMP'; 
            SP_Emp.Prepare; 
               try 
                  SP_Emp.Params[1].AsInteger   := StrToIntDef(ECode.Text,0); 
                  SP_Emp.Params[2].AsInteger := strtoint(EType.LookupValue); 
                  SP_Emp.Params[3].AsString   := ENom.Text; 
                  SP_Emp.Params[4].AsString    := EPrenom.Text; 
                  SP_Emp.Params[5].AsString    := EUser.Text; 
                  SP_Emp.Params[6].AsString    := EPass.Text; 
                  SP_Emp.Params[7].AsDate       := MaDate; 
                  SP_Emp.Params[8].AsString    := Emp_EAccesResult(EAcces.Checked); 
                  SP_Emp.ExecProc; 
                // si c un nouveau employé, donc le code est vide, alors on peut récupérer le code par exemple 
                  if (ECode.Text = '') then begin 
                     ECode.Text := SP_Emp.ParamByName('RESULT_CODE').AsString; 
                     Mes := True; 
                     end 
                  else Mes := False; 
               finally 
                  SP_Emp.UnPrepare; 
                  QEmp.Close; 
                  QEmp.Open; 
               end; 
            end;

Vlà c'est un exmple, ca marche et très efficace. :wink:

13/05/2004, 17h53
All Jinx

Merci beaucoup a vous d'avoir pris le temps de me répondre :D
Mais j'aurais du précier un détail, qui après quelque test, est un point clé de mon soucis : Je cherche a retourner des ensembles de données en retour de procédure stockées (une table plus précisément, un peu comme le ferait une requete SELECT).
13/05/2004, 23h54
SkyDev

Le mieux c'est de faire SELECT * FROM table WHERE etc... car si jamais tu utilises la fonction recherche, celà facilitera des choses. Quant à pour moi la procédure stocké, c'est bien pour l'enregistrement et la modification mais aussi select quand la table de bdd contient plusieurs millions d'enregistrement.

:wink:

Pour récuperer une liste de données provenant d'une procédure stockée il faut utiliser un Query, comme pour une requete SQL.

Par exemple la procedure stockée :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Create Procedure ListeClient (IdPays Integer) Returns (Nom VarChar(30), Prenom VarChar(30)) as begin For Select Nom,Prenom From Client Where IdPays = :IdPays Into :Nom, :Prenom Do begin Suspend; end end;
pourra être visible en utilisant la requete suivante dans un Query :
Code:

1 2 Select * From ListeClient(:IdPay);

14/05/2004, 15h57
All Jinx

Merci a vous tous pour votre aide, mais je viens de trouver la solution.

En fait, la déclaration result (qui permet de déclarer les types de champs que l'on retourne), etait la cause de mes soucis : elle fait littéralement planter le composant TStoredProc, et même les composants Query.

Je met un exmple pour les utilisateurs de Sybase qui pourrons rencontrer aussi ce soucis :

Marche avec un serveur IIS et plante avec Delphi 7 :

ALTER procedure DBA.testkiplante(in leparam1 varchar(20))
result(gains real, gagne integer, classbon integer)
begin
select don as gains,diff as gagne,oper as classbon from evinn where form=leparam1;
end;

Marche avec Delphi 7 :

ALTER procedure DBA.testkiplantepas(in leparam1 varchar(20))
begin
select don as gains,diff as gagne,oper as classbon from evinn where form=leparam1;
end;

Contrairement à ce qui peut bien être dit, la commande result n'est pas indispensable pour recupérer les valeurs de retour, pire elle fait planter Delphi.
Pensez aussi à virer les champs de retour dans la propriété Params de TStoredProc ou vous aurez une erreur lors de l'ouverture de celui-ci : 'Nombre d'arguments incorrectes'.