bonjour à tous,
j’ai un problème avec mon bouton rechercher.suite à la lecture des différents tutorial, je n'arrive pas à faire une requête avec plusieurs tables. Voici mon code exporté en sql :
J’ai fait le bouton avec WHEN-BUTTON-PRESSED puis j’ai écris le code sql qui est :
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 create table BIEN ( CODE_BIEN varchar2(10) constraint pk_CODE_BIEN primary key, NOM_BIEN varchar2(10), TYPE_BIEN varchar2(10), DESCRIPTION_BIEN varchar2(10), NUMERO_SERIE varchar2(10), ); create table BON_ENTRE ( NUM_BON_ENTRE varchar2(10) constraint pk_NUM_BON_ENTRE primary key, NOM_SERVICE varchar2(10) ); create table BON_DE_SORTIE ( NUM_BON_ENTRE varchar2(10) constraint pk_NUM_BON_ENTRE primary key, NOM_SERVICE varchar2(10) ); create table FIGURE ( CODE_FIGURE varchar2(10) constraint pk_CODE_FIGURE primary key, DATE_SORTIE date, QTE_SORTIE number(20), PRIX_SORTIE number(20), CODE_BIEN constraint FK_CODE_BIEN_FIGURE references BIEN(CODE_BIEN) NUM_BON_SORTIE constraint FK_NUM_BON_SORTIE_FIGURE references BIEN(CODE_BIEN) ); create table EXSISTER ( CODE_EXSISTER varchar2(10) constraint pk_CODE_EXSISTER primary key, DATE_ENTRE date, QTE_ENTRE number(20), PRIX_ENTRE number(20), CODE_BIEN constraint FK_CODE_BIEN_EXSISTER references BIEN(CODE_BIEN) NUM_BON_ENTRE constraint FK_NUM_BON_SORTIE_EXSISTER references BIEN(CODE_BIEN));NB : Apres avoir écris le script lorsqu’on clique sur compile machine ne montre pas d’erreurs, mais si compile le forms et qu’on donne un numéro déjà saisie dans le zone de texte code_bien et puis on clique sur le bouton rechercher il n’afficher rien.Select BIEN.CODE_BIEN, NOM_BIEN, EXSISTER.NUM_BON_ENTRE, DATE_ENTRE, QTE_ENTRE,FIGURER.NUM_BON_SORTIE,QTE_SORTIE,DATE_SORTIE
INTO :BIEN.CODE_BIEN, :BIEN.NOM_BIEN, :EXSISTER.NUM_BON_ENTRE, :EXSISTER.DATE_ENTRE, :EXSISTER.QTE_ENTRE,:FIGURER.NUM_BON_SORTIE,:FIGURER.QTE_SORTIE,:FIGURER.DATE_SORTIE
FROM BIEN, EXSISTER,FIGURER
where BIEN.CODE_BIEN = EXSISTER.CODE_BIEN
AND BIEN.CODE_BIEN = FIGURER.CODE_BIEN
AND BIEN.CODE_BIEN like :BIEN.CODE_BIEN;
Partager