Discussion :

[Ph. B.]

Bonjour,

Oui, je suis déçu, car je viens de me heurter à quelques limitations de XMLRad avec les requêtes SQL...

Cf. mon autre message et l'exemple suivant....

Code :

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

1
2
3
4
5
6
SELECT COUNT(*) AS NB_ETS
FROM T_SUCCURSALE_SCC
WHERE RCO_ID = :RCO_ID
OR    SCT_ID IN (SELECT SCT_ID
                 FROM TR_SECTEUR_SCT
                 WHERE RCO_ID = :RCO_ID)

XMLRad ne sait pas traiter les paramètres dans une requête imbriquée !
Et je ne me sens pas de faire le grand écart pour contourner la limitation...
Philippe.

[RDM]

ok, j'ai compris. Par défaut pour SQLServer, le middleware DAC de XMLRAD utilise les drivers natif ADO et non pas OLEDB.

comme workaround, tu peux modifier la ligne 895 dans DacADO.pas

Code :

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

1
2
3
4
5
- if FDatabase.FNativeADO or (FProvider = 'SQLOLEDB') or (FProvider = 'JET') then
+ if FDatabase.FNativeADO then
  FCommand.Prepared := True
else
  RefreshFromOleDB;

je remonte l'info pour que ca soit pris en compte dans les prochains Build.

[Ph. B.]

Merci RDM !

Je regarde çà de suite...

[Ph. B.]

Je n'ai pas la même version de code que toi. J'ai fait la modif suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TDacAdoQuery.Prepare;
 
  procedure RefreshFromOleDB;
  ...
  end;
 
begin
  FRecordSet := nil;
  FProvider := UpperCase(FDatabase.FDatabase.ConnectionString);
  if Pos('MSDAORA', FProvider) > 0 then
    FProvider := 'MSDAORA'; // Used when setting string params for ORACLE
  if Pos('ORAOLEDB', FProvider) > 0 then
    FProvider := 'ORAOLEDB'; // Used when setting string params for ORACLE
  if Pos('SQLOLEDB', FProvider) > 0 then
    FProvider := 'SQLOLEDB';
  if Pos('JET.OLEDB', FProvider) > 0 then
    FProvider := 'JET';
  //if (FProvider = 'SQLOLEDB') or (FProvider = 'JET') then
  //  FCommand.Prepared := True
  //else
    RefreshFromOleDB;
  FCommand.CommandTimeOut := FDatabase.FDatabase.CommandTimeOut;
end;

J'ai remplacé la libDacAdo.dll dans c:\Winnt\system32.

[RDM]

J'ai remplacé la libDacAdo.dll dans c:\Winnt\system32.

le DacAdo est ompilé directement dans la DLL donc il suffit de recompiler ton appli normalement

[Ph. B.]

Merci RDM... :-)