[D7/ORACLE] Requête SQL et exception EDBEngineError

Version imprimable

15/11/2007, 16h56
LHT

[D7/ORACLE] Requête SQL et exception EDBEngineError

Bonjour,

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

Code:

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

Citation:

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 ;)
15/11/2007, 17h05
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à.
15/11/2007, 17h05
dd_garion

Bonjour,

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

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:

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:

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;

16/11/2007, 15h30
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... :roll:

Merci de vos conseils !!!!

Bonne journée à tous! :D