Discussion :

[Lung]

J'ai une requête de ce genre :

Code :

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

1
2
select * from DEF_ATELIER
where CODE_SOCIETE = :CodeSociete

Je la donne à un TSimpleDataSet dans sa propriété Dataset.CommandText.
Pour fournir la valeur du paramètre de la requête, je commence par le créer (vu que DBExpress semble ne pas en créer tout seul comme le BDE):

Code :

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

1
2
3
4
Parametre: TParam;
 
Parametre := DataSet.Params.Createparam(ftWideString, szNomParametre, ptInput);
Parametre.AsString := 'UnAtelier';

Et au moment d'exécuter la requête avec Open, j'ai l'erreur suivante :

Le pilote dbExpress ne supporte pas le type de données TDBXTypes.UNKNOWN. Message d'erreur du fournisseur : ORA-01036: numéro/nom de variable interdit

Pourtant, j'ai bien spécifié le type du paramètre.

Que faut-il faire de plus ?
C'est pas comme ça qu'il faut créer un paramètre ?

[Cl@udius]

Salut Lung

A priori inutile de créer le paramètre. Mais il faut utiliser FetchParams avant d'en définir la valeur.

Code :

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

1
2
3
4
5
6
  with SimpleDataSet1 do
  begin
    FetchParams;
    Params.ParamByName('CodeSociete').AsString := 'ABC';
    Open;
  end;

@+ Claudius

[Lung]

Ca ne change rien.
J'ai ajouté, FetchParams avant de chercher le paramètre dans la liste des paramètres, mais il n'existe toujours pas dans la liste :

Code :

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

1
2
3
4
FetchParams;
Result := DataSet.Params.FindParam(szNomParametre);
if Result = nil then
   // il n'a pas trouvé.

[Lung]

Pas d'autre idée ?

[Rayek]

et en passant par un simple TSQLQuery avec ParamCheck à True ?

[Lung]

et en passant par un simple TSQLQuery avec ParamCheck à True ?

Il me faut un composant bi-directionnel (c'est pour afficher dans une DBGrid).
Donc, je ne peux que utiliser le TSimpleDataSet.

[Rayek]

TSQLQuery + ClientDataset + DatasetProvider et ca règle le problème de bi-directionnalité

[Lung]

C'est résolu.
Je n'appelais pas dans le bon ordre les instructions, dans mon composant.

[Cl@udius]

Je n'appelais pas dans le bon ordre les instructions, dans mon composant.

non mais !!

C'est résolu.