Discussion :

[JPLAROCHE]

*Bonjour,*

Code :

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

1
2
3
4
5
"INSERT INTO TSTFCH.FRPFBLV "
"SELECT RFCSTD,RFCCND,RFCDPO,RFCGIM,RFCPRD,"
"VALUES (CAST(? AS double )<double> ,CAST(? AS double )<double> ),RFNUMC,RFQCND,RFZETQD,RFZETQF "
"FROM TSTFCH.FRFDOM "
"WHERE (RFNUMC=:xRFNUMC<double>)  "

j'utilise OTL il fonctionne très bien mais je ne sais pas

utiliser les cast je voudrais passer des variables

merci

[Mercure]

Avec OTL, je ne connais pas la syntaxe exacte mais je pense que ça devrait être qqchose dans ce goût-là :

Code :

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

1
2
3
4
5
6
7
STM = "INSERT INTO TSTFCH.FRPFBLV "
"SELECT RFCSTD,RFCCND,RFCDPO,RFCGIM,RFCPRD,"
"VALUES (CAST(? AS double )<double> ,CAST(? AS double )<double> ),RFNUMC,RFQCND,RFZETQD,RFZETQF "
"FROM TSTFCH.FRFDOM "
"WHERE (RFNUMC=RFNUMC<double>) "
 
Execute :STM Using :VAR1, :VAR2, etc,. dans l'ordre des CASTS.

[JPLAROCHE]

Avec OTL, je ne connais pas la syntaxe exacte mais je pense que ça devrait être qqchose dans ce goût-là :

Code :

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

1
2
3
4
5
6
7
STM = "INSERT INTO TSTFCH.FRPFBLV "
"SELECT RFCSTD,RFCCND,RFCDPO,RFCGIM,RFCPRD,"
"VALUES (CAST(? AS double )<double> ,CAST(? AS double )<double> ),RFNUMC,RFQCND,RFZETQD,RFZETQF "
"FROM TSTFCH.FRFDOM "
"WHERE (RFNUMC=RFNUMC<double>) "
 
Execute :STM Using :VAR1, :VAR2, etc,. dans l'ordre des CASTS.

bien déjà je suis sur la bonne voix

strmdb_FRPFBLV<<xRF999M<<xRONBL<<xRFNUMC;

mais il provque une erreur du style


OTL TRACE ==> otl_exception, code=-104, msg=[IBM][Pilote ODBC System i
> Access][D
> B2 for i5/OS]SQL0104 - ElÚment syntaxique < n'est pas correct.
> ElÚments possible

[Mercure]

Tu veux insérer dans DB2/i5 (AS400), n'est-ce pas ?

Alors, supprimes les "<double>" superflus pour faire comme ci-dessous.

Code :

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

1
2
3
4
5
STM = "INSERT INTO TSTFCH.FRPFBLV "
"SELECT RFCSTD,RFCCND,RFCDPO,RFCGIM,RFCPRD,"
"VALUES (CAST(? AS double ), CAST(? AS double ), RFNUMC, RFQCND, RFZETQD, RFZETQF )"
"FROM TSTFCH.FRFDOM "
"WHERE (RFNUMC=RFNUMC) "

Le prédicat dans clause WHERE m'échappe un peu

[K2R400]

Le prédicat dans clause WHERE m'échappe un peu

Philippe,

C'est courament utilisé, généralement.
Mon prédicat préféré c'est WHERE 1=1.
Ainsi quand on continue la fabrication de l'ordre SQL dynamique pas besoin de tester si c'est le premier AND que l'on va faire.
Une clause WHERE ajoutée donnerait

Code :

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

1
2
3
If not (par1 = *zeros);
SMT += ' AND NUM=' +%trim(Par1);
endif;

[Mercure]

Ok, oui, mais c'est un cas particulier, une ruse que j'ai en effet déjà employée dans les programmes, mais est-ce bien la raison pour laquelle l'OP JPLAROCHE a établi ce prédicat, ça ne saute pas aux yeux ?
Enfin, là n'est pas l'essentiel. Attendons si tu veux de voir ce qu'il va nous dire.

[JPLAROCHE]

Ok, oui, mais c'est un cas particulier, une ruse que j'ai en effet déjà employée dans les programmes, mais est-ce bien la raison pour laquelle l'OP JPLAROCHE a établi ce prédicat, ça ne saute pas aux yeux ?
Enfin, là n'est pas l'essentiel. Attendons si tu veux de voir ce qu'il va nous dire.

d'abord merci a tous pour votre aide

a) dans les DOC. IBM
il est stipulé que le CAST est INTERDIT avec INSERT INTO FROM TABLE

b) j'ai une parade autorisé mais peut si vous ne fait pas attention aux attributs
des champs votre requête seras rejeté.

c) j'ai eu aussi les concepteurs de OTL vos solutions convergeaient

d) dommage car cela ouvraient des portes

mon application porte

sur une lecture avec une douchette ( d'ailleurs j'ai réécris le driver )
puis encapsule dans des "map c++" et met à jour la base de donnée sur AS400 (stock suivi de BL ect....)



voici ma solution

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
bool update_FRPFBLV()
{

try{
wxSTRING wx_V;  // voir wxwidget 
 char * SQL_SMT ;
SQL_SMT  =  (char*) malloc(4096);




wx_V =  "INSERT INTO TSTFCH.FRPFBLV ";
wx_V += "SELECT RFCSTD, RFCCND, RFCDPO, RFCGIM, RFCPRD, ";
wx_V.Printf("%s%08.0f, %06.0f, ",wx_V.c_str(),xRO999M,xRONBL);  // ICI MON  PROBLEME
wx_V += "RFNUMC, RFQCND, RFZETQD, RFZETQF ";
wx_V += "FROM TSTFCH.FRFDOM WHERE (" ;
wx_V += " RFZAPL=:xRFZAPL<char[10]> AND ";
wx_V += " RFNUMC=:xRFNUMC<double> AND ";
wx_V += " RFCPRD=:xRFCPRD<char[2]> AND ";
wx_V += " RFCCND=:xRFCCND<char[2]> ) ";



sprintf(SQL_SMT,"%s%",wx_V.c_str());

 // buffer size mettre 1 sinon pas de transaction (commit rollback) possible  exemple  entete detail x art et pied de Bon de livraison mon cas

strmdb_FRPFBLV.open(1,
              SQL_SMT  // est obligatoirement un *CHAR  ou une constante "..." 
            ,
              db // connect object
             );
  return true;

} catch(otl_exception& p){ // intercept OTL exceptions 

// fonction  interne au programme 
F_Erreur(p,wxT("Erreur Fichier Write FRPFBLV  (5) appeler Service Informatique"));
strmdb_FRPFBLV.clean(1); // rollback ODBC
  return false ;
 }
}
........
// mise a jour  
        strmdb_FRPFBLV<<Vn_ZAPL<<xRFNUMC<<xRFCPRD<<xRFCCND;