Discussion :

[Frank]

Bonjour,

je rencontre un problème que ma recherche sur le forum n'a pas résolu.

J'utilise un TADODATASET pour exécuter un procédure stockée qui demande un paramêtre.

Quand je passe le active à true sur le composant, aucune erreur.

Par contre quand je veux exécuter la procédure depuis le code, j'ai droit à un message d'erreur suivant :

erreur non spécifiée

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure tfrmCDG.NPMR_Sales;
begin
  //format du datetimepicker
  sMois:=formatdatetime('YYYYMM',DTCDG.date);
  with dm_CDG.ADODataSet2.Parameters do begin
   //Passage des paramêtres
   ParamByName('MOIS_FACT').Value:=formatdatetime('YYYYMM',DTCDG.date);
     end;
  //Execution de la requête
  dm_CDG.ADODataSet2.CommandType:=cmdStoredProc;
  dm_CDG.ADODataSet2.Open;
   //Appel de la procédure d'export
  ExportExcel;
end;

Voyez-vous quel est le problème ?

[Rayek]

Le AdoDataset est il utilisé par d'autres fonctions ?
Si oui, un petit Close avant de changer le type de commande serait peut être le bienvenu.

[Frank]

Il n'est pas utilisé mais je vais quand même tenter le close.

[Frank]

C'est pas ça..

[Rayek]

Au pire, autant utiliser un composant fait pour : AdoStoredProc.

Je remarque que les gens ont souvent des problèmes avec les Dataset.
Peut être que le tout en un, c'est pas terrible ....

[Frank]

Effectivement, je peux essayer avec le TAdoStoredProc..

A suivre.

[Frank]

Ok, j'ai réussi à m'en tirer avec le TADODATASET.

Le problème semble venir du driver que j'utilisais (MicroSoft for Oracle).
En le remplacement par le driver Oracle, et en ajoutant en fin de chaîne de connexion ceci :

Code :

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

Extended Properties="PLSQLRSet=1"

qui permet le renvoi de données, et en modifiant quelque peu les instructions de ma procédure, j'ai finalement réussi à faire ce que je voulais.

Pour info, en passant par OLEDB, comme c'est le cas maintenant, il faut que l'installation d'oracle sur les postes utilisateurs comprennent les composants OLEDB. (je sais pas si je suis très clair, la fatigue commence à se faire sentir...)

Ma procédure donne maintenant ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure tfrmCDG.NPMR_Sales;
begin
  //format du datetimepicker
  sMois:=formatdatetime('YYYYMM',DTCDG.date);
  dm_CDG.ADODataSet2.Close;
  with dm_CDG.ADODataSet2.Parameters do begin
    clear;
    CreateParameter('MOIS_FACT',ftLargeint,pdInput,38,strtoint(sMois));
  end;
  //Execution de la requête
  dm_CDG.ADODataSet2.Open;
  //Appel de la procédure d'export
  ExportExcel;
end;

dm_CDG est le nom de mon DataModule, ADODATASET2 mon composant TadoDataset (logique, hein?).

Dans le composant ADODATASET2 , l'appel de la procédure se fait sur la propriété Commandext de la façon suivante:

Code :

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

{Call PKG_NPMR.GET_SALES(?)}

PKG_NPMR est le nom de mon package, GET_SALES le nom de la procédure stockée.
Le ? signifie qu'un seul paramêtre est attendu en entrée, le curseur de sortie n'étant pas à déclarer.
Le paramêtre est crée dans la procédure dans Delphi et prend comme valeur la date sélectionnée dans le DateTimePicker.
La propriété CmdType est sur

Code :

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

CmdText

.

Bonne soirée à tous,