Bonjour,
Je sais pas si je suis dans la bonne section du forum si pas je m'en excuse.
A partir d'un script php je me connecte en ODBC sur l'as400, mais j'ai un souci lors de l’exécution de mon script
script:
Le message d'erreur:
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 <html> <head> <title></title> </head> <body> <?PHP /*#######################*/ /*#CONNEXION A L'AS400 #*/ /*#######################*/ $dsn = "AS400CHHF"; /* Nom du lien ODBC mis dans le fichier de configuration odbc.ini */ $user = "****"; /* Votre nom dutilisateur AS400 */ $passwd = "****"; /* Mot de passé AS400 */ $connAs400 = odbc_connect($dsn,$user,$passwd ); if ($connAs400 <= 0) { echo "Erreur dans la connexion<BR>"; exit; } else { $query = "SELECT nompre as Nom_Prenom,datent as date_entree ,datope as date_ope,intlib as Intervention,case(cp) when ' ' then 'CC' else 'CP'end as Type_cham,pbdob as Date_nais,pbsex as sexe,nomm as Chirurgien,datent+nbrjrs days as Date_sortie, case dayofweek_iso(datent) when 1 then 'Lundi when 2 then 'Mardi' when 3 then 'Mercredi' when 4 then 'Jeudi' when 5 then 'Vendredi' when 6 then 'Samedi' else 'Dimanche' end as jour from sysibm.sysdummy1, program.zp5reser,medcpof.sptml0,medcpofb.smedec where pbmrn=dos7a and datent>=current_date and datent<=current_date + 15 days and meopen=nrpr" $result = odbc_exec($connAs400, $query); } odbc_close($connAs400); ?>
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Parse error: syntax error, unexpected T_VARIABLE in C:\Program Files\EasyPHP-5.3.8.1\www\LISTING_BLOC.php on line 38
La ligne 38 correspond à $result = odbc_exec($connAs400, $query);
Je ne trouve pas mon erreur !
Si j’exécute la même requête a partir de VB.net ça fonctionne
Si quelqu'un a une idée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Dim str_requete As String = "SELECT nompre as Nom_Prenom,datent as date_entree ,datope as date_ope,intlib as Intervention,case(cp) when ' ' then 'CC' else 'CP'end as Type_cham,pbdob as Date_nais,pbsex as sexe,nomm as Chirurgien,datent+nbrjrs days as Date_sortie, " & _ " case dayofweek_iso(datent)" & _ "when 1 then 'Lundi'" & _ "when 2 then 'Mardi'" & _ "when 3 then 'Mercredi'" & _ "when 4 then 'Jeudi'" & _ "when 5 then 'Vendredi'" & _ "when 6 then 'Samedi'" & _ "else 'Dimanche'" & _ "end as jour " & _ "from " & _ "sysibm.sysdummy1," & _ "program.zp5reser,medcpof.sptml0,medcpofb.smedec where pbmrn=dos7a and datent>=current_date and datent<=current_date + 15 days and meopen=nrpr"
D'avance merci
Partager