Discussion :

[MélanieS]

Je réfléchis encore...

J'ai utilisé ce que tu m'as proposé (je le modifierais en with...do begin dés qu'il fonctionnera totalement)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFmRecetteTrier.DBLbxTriDblClick(Sender: TObject);
var
 Fiche_Detail:TfmDetailRecette;
begin
  Fiche_Detail := TFmDetailRecette.Create(Self);
  Fiche_Detail.IDRecette := Integer(DBLbxTri.KeyValue);
  Fiche_Detail.ShowModal;
  Fiche_Detail.Release;
  //user := FmAccueil.edpseudo.text;
  //mdp := FmAccueil.edmdp.text;
end;

J'ai déclaré 3 query

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
procedure TFmDetailRecette.selection_detail_Recette(id:integer);
begin
 Query_Affichage_Recette.SQL.Clear;
 Query_Affichage_Recette.SQL.Add('SELECT NomRecette, Recette');
 Query_Affichage_Recette.SQL.Add('FROM trecettes');
 Query_Affichage_Recette.SQL.Add('WHERE idRecette=:idRecette');
 Query_Affichage_Recette.paramByName('idRecette').asInteger:=id;
 Query_Affichage_Recette.open;
end;
 
procedure TFmDetailRecette.selection_detail_Ingredients(id:integer);
begin
 Query_Affichage_Ingredient.SQL.Clear;
 Query_Affichage_Ingredient.SQL.Add('SELECT cont.Nombre, cont.genreproduit, ingr.NomIngredient');
 Query_Affichage_Ingredient.SQL.Add('FROM trecettes AS rec, tcontenir AS cont, tingredients AS ingr');
 Query_Affichage_Ingredient.SQL.Add('WHERE cont.idRecette=rec.idRecette');
 Query_Affichage_Ingredient.SQL.Add('AND ingr.idIngredient=cont.idIngredient');
 Query_Affichage_Ingredient.SQL.Add('AND rec.idRecette=:idRecette');
 Query_Affichage_Ingredient.paramByName('idRecette').asInteger:=id;
 Query_Affichage_Ingredient.open;
end;
 
procedure TFmDetailRecette.selection_detail_Commentaires(id:integer);
begin
 Query_Affichage_Commentaire.SQL.Clear;
 Query_Affichage_Commentaire.SQL.Add('SELECT com.Commentaire');
 Query_Affichage_Commentaire.SQL.Add('FROM trecettes AS rec, tcommentaires AS com');
 Query_Affichage_Commentaire.SQL.Add('WHERE com.idRecette=rec.idRecette');
 Query_Affichage_Commentaire.SQL.Add('AND rec.idRecette=:idRecette');
 Query_Affichage_Commentaire.paramByName('idRecette').asInteger:=id;
 Query_Affichage_Commentaire.open;
end;

Mais...le code que traîte tout cela, c'est à dire...

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
 
 
   selection_detail_Recette(IDRecette);
   selection_detail_Ingredients(IDRecette);
   selection_detail_Commentaires(IDRecette);
 
   DS_Affichage_Recette.DataSet:=Query_Affichage_Recette;
   DS_Affichage_Commentaire.DataSet:=Query_Affichage_Commentaire;
   DS_Affichage_Ingredient.DataSet:=Query_Affichage_Ingredient;
 
   DBMemDetailRecette.DataSource:=DS_Affichage_Recette;
   DBMemDetailRecette.DataField:='Recette';
 
 
   DBlbIngredients.DataSource:=DS_Affichage_Ingredient;
   DBlbIngredients.DataField:='Nombre;genreproduit;NomIngredient';
 
   DBLbxCommentaires.DataSource:=DS_Affichage_Commentaire;
   DBLbxCommentaires.DataField:='Commentaire';

J'essaye de le placer à divers endroits, et j'suis pas super inspirée, là.

[GoustiFruit]

Hmm, je vois... je ne suis pas à l'aise avec les composants "DB", d'habitude je préfère faire à la main, coder mes requêtes à la demande, récupérer les résultats, et gérer moi-même l'affichage dans des composants classiques (non DB).

As-tu essayé de placer la dernière partie du code dans le OnShow de la fiche ?
Aussi tu devrais y aller petit à petit, essaye d'abord avec "selection_detail_Recette" puis quand ça fonctionnera, ajoute les ingrédients et commentaires. Il y a sûrement des relations à établir entre les composants, toujours ces histoires de master/detail, tu devrais trouver des exemples sur le net, c'est assez courant comme traitement...

[MélanieS]

J'ai testé le OnShow, oui.

et j'ai la même erreur que si j'écris ce bout de code dans le create ou dans l'activate...

[SergioMaster]

Une erreur 'Classique' du BDE avec un OS VISTA ou + il faut configurer le BDE de façon a mettre sur un repertoire autre que C:\ pour ce qui est du fichier PDOXUSRS .

Autre piste : le fichier est ouvert (plus facile pour travailler avec l'EDI') et donc au moment du Create de la Form (ou du on Show) le programme tente l'ouverture et plante ....
J'ai pris l'habitude de vérifier que les Tables et Query soit fermés dans chaque Form avant compilation

[MélanieS]

Une erreur 'Classique' du BDE avec un OS VISTA ou + il faut configurer le BDE de façon a mettre sur un repertoire autre que C:\ pour ce qui est du fichier PDOXUSRS .

Je peux faire ça où ? Dans l'administrateur BDE ?

[SergioMaster]

Réponse : OUI

BDE/Configuration/Pilotes/natifs/paradox changer la Valeur de NET DIR

une recherche dans le forum Delphi t'aurait donné la réponse (elle a été maintes fois indiquée)

[GoustiFruit]

Si tu as un peu de temps pour tester une alternative, je te propose SQLite qui ne nécessite aucune configuration, aucune installation, un seul fichier "portable" qui peut être ouvert par une foultitude d'outils sur toutes les plateformes. Et avec Delphi j'utilise les composants Aducom pour y accéder.

[MélanieS]

euh, je vais mieux regarder parce que même après avoir mis sur la partition D, j'ai toujours la même erreur.

Je vais me renseigner sur internet....

[MadScratchy]

Bonsoir,

Pour le problème du fichier PDOXUSRS.NET, le BDE a la manie de le créer à la racine du disque dur. Pour déplacer ce fichier, il faut aller dans l'administrateur BDE : onglet configuration/Pilotes/Natif/Paradox et dans la liste de droite, modifier la première ligne "NET DIR" et changer le "C:\" en "C:\Program Files (x86)\Common Files\Borland Shared" ou "D:\temp", du moment que le répertoire cible est en lecture/écriture pour le groupe utilisateurs.

Bonne continuation pour votre programme !

PS : si vous êtes sur Vista, alors il y a des manip. en plus à faire.

[SergioMaster]

Ne pas oublier cette piste .

Autre piste : le fichier est ouvert (plus facile pour travailler avec l'EDI') et donc au moment du Create de la Form (ou du on Show) le programme tente l'ouverture et plante ....

Le message d'erreur BDE est peut être faux , cela m'est arrivé suffisamment de fois

[philnext]

Une idée serait de ne pas utiliser le BDE qui implique une installation sur chaque PC. Les alternatives sont ADO ou SQLite (déjà proposé).

[MélanieS]

Je ne vous ai pas oublié (désolée, d'autres examens à étudier, c'est la saison).

Le soucis est que ce programme, je l'ai fais chez moi, donc j'ai pu toucher un peu tout ce que je voulais.

Mais niveau professionnel, je ne peux pas être administratrice du poste.
Et il ne m'est pas possible de toucher la configuration BDE. (J'y travaille sur xp)

Cependant, j'ai remarqué un petit truc...

J'ai tenté, juste pour voir si ça marcherait, de mettre mon code destiné à afficher le détail des recettes, dans la page du tri, ainsi :

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
procedure TFmRecetteTriee.DBLbxTriDblClick(Sender: TObject);
var
  Fiche_Detail:TfmDetailRecette;
begin
  Fiche_Detail := TFmDetailRecette.Create(Self);
 
  with Fiche_Detail  do begin
   IDRecette := Integer(TFmRecetteTriee.DBLbxTri.KeyValue);
   LbidRecette.caption := IntToStr(IDRecette);
 
 //requête query qui sélectionne la bonne recette
   selection_detail_Recette(IDRecette);  
 
 //Affectation du query à mon DataSource
   DS_Affichage_Recette.DataSet:=Query_Affichage_Recette;
 
 //Affectation du DS à mon composant Mémo
   DBMemDetailRecette.DataSource:=DS_Affichage_Recette; 
 
 //Récupération de ma recette
   DBMemDetailRecette.DataField:='Recette';
 
  ShowModal;
  Release;
 end;
 
  user := FmAccueil.edpseudo.text;
  mdp := FmAccueil.edmdp.text;
end;

C'est pourtant bien les bonnes étapes :

1. Création de la table
2. Récupération des données
3. Affichage

Je ne comprend pas pourquoi l'erreur est toujours la même et pourquoi il y a cette erreur.

Car je configure la récupération des données avant l'affichage de la page ?

J'ai pourtant bien récupéré l'id de la recette

Code :

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

 IDRecette := Integer(TFmRecetteTriee.DBLbxTri.KeyValue);

Je peux même l'afficher dans un label créé sur la page du détail pour le test

Code :

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

1
2
// ça marche
 LbidRecette.caption := IntToStr(IDRecette);

Alors je ne vois pas pourquoi il refuse d'aller dans ma requête récupérer ma recette pour me l'afficher

[GoustiFruit]

De quelle erreur tu parles, toujours le "EDBEngineError" ? Si c'est ça, je ne peux pas aider, je n'utilise pas... sinon, merci de préciser.

A vue de nez, je m'y prendrais autrement pour l'affichage des données: d'abord affectation des composants (lien entre le TQuery/Datasource/Memo) et ensuite activation de la requête par Query_Affichage_Recette.Open ou Query_Affichage_Recette.Active := True !? (dans le OnShow probablement)

[MélanieS]

Toujours cette même erreur-là



le OnShow me fait la même erreur, le create et l'activate aussi.
Mais je fais peut-être les choses dans le désordre, je vais regarder.

[MélanieS]

Je me rend compte que cette erreur est partout dans mon code..

J'ai tenter d'afficher les données de l'utilisateur connecté (ses recettes, ses favoris et ses commentaires).
Mais j'ai exactement la même erreur, en fait.

En gros : Garder le pseudo de la personne, récupérer ses recettes, ses commentaires et ses favoris d'après ce pseudo, afficher les données dans une autre form.

J'ai la même chose pour l'ajout des commentaires et l'ajout du favoris

Je m'y prend peut-être à l'envers partout.

[GoustiFruit]

Ce qui est certain c'est que cette erreur n'a rien à voir avec le fait de mettre ton code dans un événement ou un autre de la fiche. C'est un problème avec la BDD... Mauvaise utilisation ? Mauvaise configuration ? Tu devrais faire des essais sur des petits bouts de code, valider le fonctionnement et ensuite passer à plus compliqué.
Ex.: depuis ta fiche "Fiche_Detail", dans le OnShow, essaye une requête minimale à la BDD, genre "SELECT ID WHERE param = val" et voit si tu peux débugger...

[MélanieS]

J'ai essayé ce que tu m'as dit.
Et l'erreur persiste.

J'ai essayé la partie 1 uniquement, puis la partie 1 et 2

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
procedure TFmDetailRecette.FormShow(Sender: TObject);
begin
 
// -------------------- PARTIE 1 --------------------------
 
 Query_Test_OnShow.SQL.Clear;
 Query_Test_OnShow.SQL.Add('SELECT NomPersonne');
 Query_Test_OnShow.SQL.Add('FROM tpersonnes');
 Query_Test_OnShow.SQL.Add('WHERE idPersonne=1');
 Query_Test_OnShow.open;
 
// -------------------- PARTIE 2 --------------------------
 
 DS_Test_OnShow.dataset:=Query_Test_OnShow;
 EditNomPersonne.datasource:=DS_Test_OnShow;
 EditNomPersonne.datafield:='NomPersonne';
end;

Cette fois, l'erreur est la suivante :

Le projet Project1.exe a provoqué une classe d'exception EDBEngineError avec le message 'La table n'existe pas...

...La liste de mes fichiers en cause...

Processus stoppé.

Mais je vérifie encore que ce n'est pas une erreur venue de moi avant de dire que c'est la faute au programme ^^

[GoustiFruit]

Hmm...

1- as-tu bien connecté le fichier de base de données au composant DB ?
2- as-tu vérifié que la table sur laquelle tu fais la requête existe bien ?

[MélanieS]

Bonjour GoustiFruit,

Oui, oui, j'ai tout vérifié et tout était correct.
Mais ce matin, pour voir où est le problème, j'ai recommencé le programme de A à Z. (et j'y suis encore...)

Je suis arrivée à la conclusion qu'il faut passer par une étape intermédiaire avant d'afficher les données.

Je m'explique :

Page Tri :

1. Récupération de l'id
2. Envoi de l'id sur la page Détail

Page Détail :

1. Affichage d'une confirmation (Affichage de l'id pour que l'utilisateur confirme avec un bouton)
2. Affichage des données d'après l'id confirmé par l'utilisateur.

C'est la seule solution qui marche.

[MélanieS]

Voilà ce que j'ai fais....


mais...il n'y a que la partie en rose, qui fonctionne...
Le reste me met la même erreur du "je trouves pas ce que tu me met"

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
46
47
48
49
50
51
52
53
54
55
procedure TFmDetailRecette.Detail_BtConfirmerClick(Sender: TObject);
begin

// Réglage taille de la fiche
 clientWidth:=LARGEURRECETTE;
 clientHeight:= HAUTEURRECETTE;

// Affichage du panel du détail
 Detail_Panel_Confirmation.visible:=false;
 Detail_PanelAffichageRecette.visible:=true;



//----------------------------------------------------------------------------//
// Affichage du détail de la recette

 Detail_DSAffichageRecettes.DataSet:=Query_Affichage_Recette;
 selection_detail_Recette(IDRecette);

 Detail_DBTxtTitre.DataSource:=Detail_DSAffichageRecettes;
 Detail_DBTxtTitre.DataField:='NomRecette';

 Detail_LbAffichageNbrePersonnes.DataSource:=Detail_DSAffichageRecettes;
 Detail_LbAffichageNbrePersonnes.DataField:='NbrePersonne';

 Detail_LbAffichageBudget.DataSource:=Detail_DSAffichageRecettes;
 Detail_LbAffichageBudget.DataField:='Prix';

 Detail_LbAffichageDifficulte.DataSource:=Detail_DSAffichageRecettes;
 Detail_LbAffichageDifficulte.DataField:='Difficulte';

 Detail_LbAffichageTemps.DataSource:=Detail_DSAffichageRecettes;
 Detail_LbAffichageTemps.DataField:='Temps';

//----------------------------------------------------------------------------//
// Affichage de l'origine

 Detail_DSAffichageOrigines.DataSet:=Query_Affichage_Origine;
 selection_detail_Origine(IDRecette);

 Detail_LbAffichageOrigine.DataSource:=Detail_DSAffichageOrigines;
 Detail_LbAffichageOrigine.DataField:='NomOrigine';

//----------------------------------------------------------------------------//
// Affichage des ingrédients

 {Detail_DSAffichageIngredients.DataSet:=Query_Affichage_Ingredient;
 selection_detail_Ingredients(IDRecette);

 DBLookupListBox1.ListSource:=Detail_DSAffichageIngredients;
 DBLookupListBox1.DataField:='Nombre; genreProduit; NomIngredient';}

//----------------------------------------------------------------------------//
// Affichage des commentaires
end;