Requête Sql Oracle 8i

Version imprimable

Bonjour tous le monde, j'ai une deux (02) requêtes que j'ai créer ou je voudrais savoir si est il possible de faire mieux en optimisation de temps à savoir que le temps d’exécution entre PlSql et sous Delphi sans différent PlSql plus rapide en exécution que Delphi.
SGBD utiliser :
Oracle8 Release 8.0.5.0.0 - Production
PL/SQL Release 8.0.5.0.0 - Production
CORE Version 4.0.5.0.0 - Production
TNS for 32-bit Windows: Version 8.0.5.0.0 - Production
NLSRTL Version 3.3.2.0.0 - Production
- Oracle Client 8 et 9i.
- Delphi XE2.

Code:

1
2
3
4
5
6
SELECT SubStr(t.Periode,5,' +
    '2)||SubStr(t.periode,1,4) Periode, t.nature, t.Periode Period, Sum(' +
    't.Debit) - Sum(t.Credit) Debit FROM Linc.Secu_Ecr t WHERE t.NumeroCot ='+
    QuotedStr(Copy(Employeur.Text,1,8))+ ' And t.periode=' + QuotedStr(Copy(
       ListBox1.Items[ListBox1.ItemIndex],3, 4) + Copy( ListBox1.Items[
       ListBox1.ItemIndex], 1, 2)) + ' Having Sum(t.Debit) - Sum(t.Credit) <> 0 Group By t.Periode, t.Nature

Code:

1
2
3
4
5
6
7
8
9
10
Select t.Periode, t.Nature, Decode(SubStr(t.Periode, 5, 2),'+
  '''T1'', Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(SubStr('+Jour_Chois+', 1, 6), ''YYYYMM''), To_Date(SubStr(t.Periode,1,4)||''01'',''YYYYMM''))+1)/100, 2),'+
  '''T2'', Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(SubStr('+Jour_Chois+', 1, 6), ''YYYYMM''), To_Date(SubStr(t.Periode,1,4)||''03'',''YYYYMM'')))/100, 2),'+
  '''T3'', Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(SubStr('+Jour_Chois+', 1, 6), ''YYYYMM''), To_Date(SubStr(t.Periode,1,4)||''09'',''YYYYMM''))+3)/100, 2),'+
  '''T4'', Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(SubStr('+Jour_Chois+', 1, 6), ''YYYYMM''), To_Date(SubStr(t.Periode,1,4)||''09'',''YYYYMM'')))/100, 2),'+
          'Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(SubStr('+Jour_Chois+', 1, 6), ''YYYYMM''), to_date(t.Periode, ''YYYYMM'')) + 3)/100, 2)) "Montant M.R" '+
  'From Linc.Secu_Ecr t Where t.NumeroCot = '+ QuotedStr(Copy(Employeur.Text,1, 8))+
  'And t.Nature IN (''R22'', ''R07'', ''R06'', ''C22'', ''R38'', ''C38'', ''R98'', ''C98'') ' +
  'And t.Periode ='+QuotedStr(DataModule_Ecr.AdoQuery_Ecriture.FieldByName('Period').Value) +
  'Group By t.Periode, t.Nature  Order By t.Periode, t.Nature

22/02/2017, 09h41
mnitu

J'avoue à ne pas avoir compris votre question.
22/02/2017, 15h00
masterdash

Salut et merci, Désolé, le temps d’exécution des requête avec delphi composant 'ADOQUERY' prennent plus de temps qu'avec PLSQL.
Alors j'ai poster les requêtes pour savoir si possible de faire mieux.
22/02/2017, 15h28
mnitu

OK j'ai mieux compris! Quand vous dite PL/SQL c'est quoi précisément: un block pl/sql qui exécute les mêmes requêts, Sql Developer ou ... ?
22/02/2017, 16h17
masterdash

PLSQL Developer un outils pour exécuter les requêtes SQL Oracle,
23/02/2017, 11h32
masterdash

Requête SQL Oracle 8i

Bonjour, Help please :ptdr::ptdr::ptdr:
23/02/2017, 15h55
mnitu

Pourriez-vous poster un exemple de la première requête que vous exécutez en PL/SQL pour que je puisse la comparer avec celle que vous avez posté ?
J'en suis presque certain que vos problèmes vont disparaitre si vous pouvez utiliser une base des données Oracle récente la 8.0 doit dater des années 1999 quand même!
Est-ce envisageable ?
Sinon il va falloir poster le paramétrage de votre optimiseur et pas mal des autres informations.

Il faux que m'expliquer un peu mieux se qu'il vous faux comme renseignement
pour Oracle 8 impossible de migre vers une version ultérieur pour l'instant.

Voici une de mes requêtes exécuter sur PLSQL

Code:

1
2
3
4
5
6
7
8
9
10
Select t.Periode, t.Nature, Decode(SubStr(t.Periode, 5, 2),
  'T1', Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(To_Char('201612', 'YYYYMM'), 'YYYYMM'), To_Date(SubStr(t.Periode,1,4)||'01','YYYYMM'))+1)/100, 2),
  'T2', Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(To_Char('201612', 'YYYYMM'), 'YYYYMM'), To_Date(SubStr(t.Periode,1,4)||'03','YYYYMM'))  )/100, 2),
  'T3', Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(To_Char('201612', 'YYYYMM'), 'YYYYMM'), To_Date(SubStr(t.Periode,1,4)||'09','YYYYMM'))+3)/100, 2),
  'T4', Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(To_Char('201612', 'YYYYMM'), 'YYYYMM'), To_Date(SubStr(t.Periode,1,4)||'09','YYYYMM'))  )/100, 2),
        Trunc((Sum(t.Debit)-Sum(t.Credit)) * (MONTHS_BETWEEN(To_Date(To_Char('201612', 'YYYYMM'), 'YYYYMM'), To_Date(t.Periode, 'YYYYMM')) + 3)/100, 2)) "Montant M.R" 
  From Linc.Secu_Ecr t Where t.NumeroCot ='27423610'
  And t.Nature IN ('R22', 'R07', 'R06', 'C22', 'R38', 'C38', 'R98', 'C98') 
  And t.Periode ='201610'
  Group By t.Periode, t.Nature  Order By t.Periode, t.Nature

est Merci.

27/02/2017, 08h22
masterdash

Oracle 8 et SQL

Bonjour à Tous, personne pour répondre à mon cas?
28/02/2017, 09h51
mnitu

Les deux requêtes, une exécutée dans PL/SQL Developer et l'autre dans l'appli sont similaires, c'est à dire qu'elles utilise des variables en dur et non pas des variables de liaison. Cela étant dit pourriez-vous exécuter deux ou trois foi ces requêtes avec les mêmes valeurs dans les deux cas et comparer les temps d'exécution qui doit être d'un même ordre?
Même valeurs veut dire mettre dans le texte de l'appli la valeur 27423610 pour le composant Delphi Employeur puis pareil pour les autres zones.
Vous devez exécuter 2 à trois fois chaque requête pour chauffer la base d'abord puis comparer les temps et nous faire état des valeurs obtenues.

Vous devez aussi faire appel à votre dba pour retrouver le paramètre qui indique le mode de fonctionnement de l'optimiseur: RULE, COST ou CHOSE. Le paramètre devrait s'appeler optimizer_goal je pense.