Discussion :

[LHT]

Bonjour,

j'obtiens le message d'erreur suivant lorsque j'execute la requête ci-après :

Code :

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

SELECT PST_ID, GNR_ID, TIT_ID, ADF_NBRACT, ADF_AVIORD, ADF_CRV_ID,PHOTO FROM ASSDEF WHERE TIT_ID = 3001 AND GNR_ID = 4 AND PST_ID IN (SELECT PST_ID FROM ASSDEF WHERE TIT_ID = 3001 AND GNR_ID = 5) ORDER BY PST_ID

Le projet x.exe a provoqué une classe d'exception EDBEngineError avec le message 'Fonctionnalité non supportée.'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

Sachant que la requete fonctionne (testé avec l'editeur SQL).
(Base ORACLE, delphi7, pilote OBDC).

Il semblerait que le IN ne soit pas toléré...

merci pour votre aide et vos précieux conseils

[Rayek]

A mon avis cela vient du pilote du BDE qui n'arrive pas à envoyer les informations correctement à Oracle et génère cette erreur.
Je pense qu'il faudrait voir à basculer vers les composants Ado ou DbExpress, car le BDE ne suit pas les évolution des bases de donénes car il a été abandonné niveau développement par borland/code Gear depuis un bon moment déjà.

[dd_garion]

Bonjour,

Je te rassure, le in fonctionne en bde + oracle.

[LHT]

ok merci, ça me rassure déjà un peu plus.

j'ai regardé plus précisément et il plante à cet endroit précis dans l'unit BD
qui est réalisé lors de l'open de la requête (ligne en rouge)...

Code :

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

1
2
3
4
5
6
7
procedure TCustomConnection.RegisterClient(Client: TObject; Event: TConnectChangeEvent = nil);
begin
  FClients.Add(Client);
  FConnectEvents.Add(TMethod(Event).Code);
  if Client is TDataSet then
   FDataSets.Add(Client);
end;

y'aurais -t-il quelque chose que j'oublierais de faire comme un prepare ou autre ?

Voici le code effectué :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
qAssDefMultiGenre.Close;
qAssDefMultiGenre.SQL.Clear;
 
qAssDefMultiGenre.SQL.Add( 'SELECT PST_ID, GNR_ID, TIT_ID, ADF_NBRACT, ADF_AVIORD, ADF_CRV_ID,PHOTO FROM ASSDEF WHERE TIT_ID = '+ IntToStr(Integer(FrmTBAdm.cbTitrePres.Items.Objects[FrmTBAdm.cbTitrePres.ItemIndex])) +' AND GNR_ID = ' + intToStr(GetPresentGenreID));
 
for i := FrmTBAdm.dbgPresentGenre.SelectedRows.Count-1 downto 1 do Begin
  dbgPresentGenre.DataSource.DataSet.GotoBookmark(Pointer(dbgPresentGenre.SelectedRows.Items[i]));
  SetPresentGenreID(dbgPresentGenre.Columns.Items[1].Field.AsInteger);
  qAssDefMultiGenre.SQL.Add(' AND PST_ID IN (SELECT PST_ID FROM ASSDEF WHERE TIT_ID = '+IntToStr(Integer(FrmTBAdm.cbTitrePres.Items.Objects[FrmTBAdm.cbTitrePres.ItemIndex]))+ ' AND GNR_ID = '+intToStr(GetPresentGenreID)+')');
End;
 
qAssDefMultiGenre.SQL.Add(' ORDER BY PST_ID');
qAssDefMultiGenre.Open;

[LHT]

ça y'est c'est bon !! c'est corrigé!

Le problème provenait de la propriété RequestLive à True. En effet, dans cette configuration les sous requêtes ne sont pas acceptées. Car il n'est pas possible de faire une mise à jour...

Merci de vos conseils !!!!

Bonne journée à tous!