Discussion :

[zpliz]

Bonjour,

Je reviens vers vous pour une nouvelle demande. Je vais vous filer ci-dessous une requête que je tape en SQL Server et qui fonctionne très bien, mais je souhaiterais pouvoir l'adapter en Pascal dans un script de type "Begin ... end;"
Pouvez-vous m'aider en me filant la syntaxe que je dois obtenir ... merci d'avance.

Requête :

Code :

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

1
2
3
4
5
update TELEMENTBUDGETPERIODE set Caption=HB.Caption+'-'+P.code+'-'+CAST(MONTH(PE.dateDebut) as varchar(2))
from TELEMENTBUDGETPERIODE EB inner join TELEMENTBUDGETEXERCICE EBE on EBE.oid=EB.oidElementBudgetExercice
inner join TPOSTE P on P.oid=EBE.oidPosteBudgetaire
inner join THYPOTHESEBUDGETAIRE HB on HB.oid=EBE.oidHypotheseBudgetaire
inner join TPERIODE PE on PE.oid=EB.oidPeriode

Merci à tous pour votre aide

[Just-Soft]

Bonjour!

en gros voilà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var ch : string;
 
ch := 'update TELEMENTBUDGETPERIODE set Caption=HB.Caption+'-'+P.code+'-'+CAST(MONTH(PE.dateDebut) as varchar(2))
from TELEMENTBUDGETPERIODE EB inner join TELEMENTBUDGETEXERCICE EBE on EBE.oid=EB.oidElementBudgetExercice
inner join TPOSTE P on P.oid=EBE.oidPosteBudgetaire
inner join THYPOTHESEBUDGETAIRE HB on HB.oid=EBE.oidHypotheseBudgetaire
inner join TPERIODE PE on PE.oid=EB.oidPeriode';
Query1.close;
Query1.Clean;
Query1.SQL := ch;
Query1.open;

à toi de tester le code. Query1 et un composant TQuery.

Bonne chance.

[anapurna]

salut

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
24
 
Const 
  CstUpdate = ' update  %s set %s %s ';
...
var
 StrTable,StrField :  String;
 StrFrom :  String;
 ch :String;
...
Begin
  StrTable :=  'TELEMENTBUDGETPERIODE';
  StrField  :=  'Caption = ';
  StrField  := StrField +
  '+ HB.Caption+''-''+P.code+''-''+CAST(MONTH(PE.dateDebut) as varchar(2))' ;
 StrFrom :=  'from TELEMENTBUDGETPERIODE EB inner join TELEMENTBUDGETEXERCICE EBE on EBE.oid=EB.oidElementBudgetExercice
inner join TPOSTE P on P.oid=EBE.oidPosteBudgetaire
inner join THYPOTHESEBUDGETAIRE HB on HB.oid=EBE.oidHypotheseBudgetaire
inner join TPERIODE PE on PE.oid=EB.oidPeriode';
 
ch := Format(CstUpdate,[StrTable,StrField,StrFrom]) ;
Query1.close;
Query1.SQL.Clean;
Query1.SQL.TEXT := ch;
Query1.ExecSql;

@+ Phil

[zpliz]

Bonjour,

Désolé pour mon temps de réponse, mais je viens seulement de tester le code que vous avez mentionné ci-dessous.
J'ai un souci lors de la compilation du dit code, pour lequel, il ne comprendrait pas la partie de la constante ... Auriez-vous un tuyau ?

Merci encore

PS : apparemment j'aurais un souci sur la déclaration de la constante ...

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
24
 
Const 
  CstUpdate = ' update  %s set %s %s ';
...
var
 StrTable,StrField :  String;
 StrFrom :  String;
 ch :String;
...
Begin
  StrTable :=  'TELEMENTBUDGETPERIODE';
  StrField  :=  'Caption = ';
  StrField  := StrField +
  '+ HB.Caption+''-''+P.code+''-''+CAST(MONTH(PE.dateDebut) as varchar(2))' ;
 StrFrom :=  'from TELEMENTBUDGETPERIODE EB inner join TELEMENTBUDGETEXERCICE EBE on EBE.oid=EB.oidElementBudgetExercice
inner join TPOSTE P on P.oid=EBE.oidPosteBudgetaire
inner join THYPOTHESEBUDGETAIRE HB on HB.oid=EBE.oidHypotheseBudgetaire
inner join TPERIODE PE on PE.oid=EB.oidPeriode';
 
ch := Format(CstUpdate,[StrTable,StrField,StrFrom]) ;
Query1.close;
Query1.SQL.Clean;
Query1.SQL.TEXT := ch;
Query1.ExecSql;

@+ Phil[/QUOTE]

[anapurna]

salut

j'espere que tu as enlever les 3 petit point (...)
cela avait ete mis pour te dire que tu pouvait declarer d'autre elements

@+ Phil

[zpliz]

lol !!!

Je sais que je suis pas bon mais tout de même !!!

[anapurna]

salut
essai ce code :

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
24
 
Procedure TForm1.UpdateStr;
Const
  CstUpdate = ' update  %s set %s %s ';
var
  StrTable,StrField :  String;
  StrFrom :  String;
  ch :String;
Begin
  StrTable :=  'TELEMENTBUDGETPERIODE';
  StrField  :=  'Caption = ';
  StrField  := StrField +
  '+ HB.Caption+''-''+P.code+''-''+CAST(MONTH(PE.dateDebut) as varchar(2))' ;
  StrFrom :=  'from TELEMENTBUDGETPERIODE EB inner join TELEMENTBUDGETEXERCICE EBE on EBE.oid=EB.oidElementBudgetExercice '
  +' inner join TPOSTE P on P.oid=EBE.oidPosteBudgetaire '
  +' inner join THYPOTHESEBUDGETAIRE HB on HB.oid=EBE.oidHypotheseBudgetaire '
  +' inner join TPERIODE PE on PE.oid=EB.oidPeriode';
 
 ch := Format(CstUpdate,[StrTable,StrField,StrFrom]) ;
  Query1.close;
  Query1.SQL.Clear;
  Query1.SQL.TEXT := ch;
  Query1.ExecSql;
end;

chez moi cela passe a la compilation
@+ Phil