You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
97 lines
2.0 KiB
97 lines
2.0 KiB
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#define size_t long
|
|
|
|
EXEC SQL INCLUDE SQLCA.H;
|
|
EXEC SQL INCLUDE SQLDA.H;
|
|
EXEC SQL INCLUDE ORACA.H;
|
|
|
|
|
|
char vid[4];
|
|
int vnum;
|
|
char vunCar[2];
|
|
varchar vchaine[10];
|
|
varchar vuneDate[10];
|
|
|
|
void connexion()
|
|
{ VARCHAR uid[50];
|
|
char login[20];
|
|
char passwd[20];
|
|
printf("\n");
|
|
strcpy(uid.arr,"mfservaj");
|
|
strcat(uid.arr,"/");
|
|
strcat(uid.arr,"marif044");
|
|
strcat(uid.arr,"@kirov");
|
|
uid.len=strlen(uid.arr);
|
|
EXEC SQL CONNECT :uid;
|
|
if (sqlca.sqlcode==0)
|
|
printf(" Connexion réussie avec succès.\n\n");
|
|
else
|
|
{
|
|
printf ("Problème à la connexion.\n\n");
|
|
exit(1);
|
|
}
|
|
}
|
|
void deconnexion(int validation)
|
|
{
|
|
if (validation == 1)
|
|
{
|
|
EXEC SQL COMMIT WORK RELEASE;
|
|
}
|
|
else
|
|
{
|
|
EXEC SQL ROLLBACK WORK RELEASE;
|
|
}
|
|
printf("\nDéconnexion sans problème.\n");
|
|
}
|
|
|
|
|
|
void sql_error(char *msg)
|
|
{
|
|
char err_msg[128];
|
|
long buf_len, msg_len;
|
|
EXEC SQL WHENEVER SQLERROR CONTINUE;
|
|
printf("%s\n", msg);
|
|
buf_len = sizeof (err_msg);
|
|
sqlglm(err_msg, &buf_len, &msg_len);
|
|
if (msg_len > buf_len)
|
|
msg_len = buf_len;
|
|
printf("%.*s\n", msg_len, err_msg);
|
|
deconnexion(0);
|
|
exit(1);
|
|
}
|
|
|
|
|
|
void traitErreur(char *msg)
|
|
{
|
|
EXEC SQL WHENEVER SQLERROR CONTINUE;
|
|
printf("%s\n", msg);
|
|
deconnexion(0);
|
|
exit(1);
|
|
}
|
|
|
|
|
|
int main(int argc, char** argv)
|
|
{
|
|
|
|
EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle error\n");
|
|
printf("\n Appel de la fonction connexion");
|
|
connexion();
|
|
printf("\n Appel de la fonction deconnexion");
|
|
|
|
/*----------------------------------lecture----------------------------*/
|
|
EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle error\n");
|
|
EXEC SQL SELECT id, num, unCar, chaine, uneDate INTO :vid, :vnum,:vunCar, :vchaine, :vuneDate FROM tessai1 where id='T01';
|
|
vchaine.len=strlen(vchaine.arr);
|
|
vid[3]='\0';
|
|
vunCar[1]='\0';
|
|
vuneDate.len=strlen(vuneDate.arr);
|
|
printf("\n\n%s %d %s %.*s %.*s\n",vid, vnum, vunCar, vchaine.len, vchaine.arr, vuneDate.len, vuneDate.arr);
|
|
|
|
deconnexion(1);
|
|
return(0);
|
|
}
|
|
|
|
|