Discussion :

[arnaud_verlaine]

Bonjour je réalise une appli en BCB5 avec connexion à une base MySQL. Mon problème est le suivant:
J'ajoute des "fiches" dans ma base de données MySQL. Chaque fiche contient 4 champs:date,intitule,entretien,nom dans ma Table 'Entretien'
jusque là tout va bien En fait quand j'ajoute pour la première fois, ca me crée les champs suivants: date1,intitule1,entretien1,nom1.Ensuite ca me crée quand j'ajoute pour la deuxième fois date2, intitule2,entretien2,nom2,...et ainsi de suite. Donc je crée à chaque nouvel ajout 4 nouveaux champs dans ma table.
Cela fonctionne très bien. Le problème est que je veux les visualiser via un QuickReport et voilà ce que je voudrais avoir comme affichage donc:

Code :

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

1
2
3
4
5
6
7
 
 
Date            Intitulé            Entretien                Nom
-----             --------           -----------               -------
date1           intitule1          entretien1             nom1
date2           intitule2          entretien2             nom2
 ...                 .....                 ......                    ........

mais je ne vois vraiment pas comment faire avec ma requete SQL pour arriver à ce résultat, vu que mes champs sont tous sur la meme 'ligne' dans ma base de données et que ici je dois les mettre en 'colonne'.
Quelqu'un aurait-til une idée???
Merci à vous tous

[arnaud_verlaine]

voilà j'y suis presque ...

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
 
EcranAccueil->RequeteEntretien->Close();
EcranAccueil->RequeteEntretien->SQL->Clear();
EcranAccueil->RequeteEntretien->SQL->Add("SELECT * FROM Entretien WHERE nom =:materiel");
EcranAccueil->RequeteEntretien->Prepare();
EcranAccueil->RequeteEntretien->ParamByName("materiel")->Value = nom;
EcranAccueil->RequeteEntretien->Open();
int NumeroColonne = EcranAccueil->RequeteEntretiencolonne->Value;
//C'est donc le numéro de colonne qui va nous indiquer le nombre de boucles à exécuter pour afficher les entretiens
 
 
//Définition du DataSet du QuickReport
FeuilleEntretienVehicule->RapportEntretien->DataSet=EcranAccueil->RequeteEntretien;
//Déclaration du caption des variables Label
FeuilleEntretienVehicule->QRDBText1->DataSet = EcranAccueil->RequeteEntretien;
FeuilleEntretienVehicule->QRDBText1->DataField = "date1";
FeuilleEntretienVehicule->QRDBText2->DataSet = EcranAccueil->RequeteEntretien;
FeuilleEntretienVehicule->QRDBText2->DataField = "intitule1";
FeuilleEntretienVehicule->QRDBText3->DataSet = EcranAccueil->RequeteEntretien;
FeuilleEntretienVehicule->QRDBText3->DataField = "organe1";
FeuilleEntretienVehicule->QRDBText4->DataSet = EcranAccueil->RequeteEntretien;
FeuilleEntretienVehicule->QRDBText4->DataField = "entretien1";
//On affiche la feuille d'entretien
FeuilleEntretienVehicule->RapportEntretien->Preview();

Je sélectionne donc d'abord tous mes champs et j'affiche alors les premiers champs dans mon QuickReport.(date1,intitulé1,organe1,entretien1)
J'aimerais bien connaitre comment faire pour passer à la ligne suivante dans mon quick report. Je pourrais alors y inscrire mes champs pour (date2,intitulé2,organe2,entretien2)
Je pourrais enfin faire une boucle pour voir le nombre de fois je dois passer à la ligne et le tour est joué!!
Quelqu'un saurait-il m'aider??
Merci à vous

[Inpri-V]

Difficile de comprendre ton problème.

Quel est la structure de ta table?

Que veux-tu dire par tous sur la même ligne?

[arnaud_verlaine]

en fait le problème est maintenant plus simple.. J'ai bien avancé mais il faudrait que je sache comment "aller à la ligne" dans un QuickReport et là j'aurais presque fini.Auriez vous une idée?

Ma table est constituée d'un nombre non défini de champs puisqu'ils sont construits de manière dynamique..mais pour exemple elle ressemble à cela:

Code :

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

1
2
3
 
 
num | nom | rubrique | colonne | date1 | entretien1 | intitule1 | date2 | entretien2 | intitule2 | date3 | entretien3 | intitule3 | ......

J'arrive bien à afficher ma première ligne dans mon quick report.Ca rerssemble donc à ceci:

Code :

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

1
2
3
4
 
Date            Intitulé            Entretien                Nom 
-----             --------           -----------                 ------- 
date1           intitule1          entretien1               nom1

Mes composants QRDBText sont imlplémentés comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
FeuilleEntretienVehicule->QRDBText1->DataSet = EcranAccueil->RequeteEntretien; 
FeuilleEntretienVehicule->QRDBText1->DataField = "date1"; 
FeuilleEntretienVehicule->QRDBText2->DataSet = EcranAccueil->RequeteEntretien; 
FeuilleEntretienVehicule->QRDBText2->DataField = "intitule1"; 
FeuilleEntretienVehicule->QRDBText3->DataSet = EcranAccueil->RequeteEntretien; 
FeuilleEntretienVehicule->QRDBText3->DataField = "organe1"; 
FeuilleEntretienVehicule->QRDBText4->DataSet = EcranAccueil->RequeteEntretien; 
FeuilleEntretienVehicule->QRDBText4->DataField = "entretien1";

Jusque là ca marche très bien!! Mais j'aimerais maintenant "Passer à la ligne " dans mon QuickREport pour pouvoir faire pareil avec les champs Date2,entretien2,intitule2 et avoir donc qqchose comme ceci:

Code :

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

1
2
3
4
5
 
Date            Intitulé            Entretien                Nom 
-----             --------           -----------               ------- 
date1           intitule1          entretien1               nom1 
date2           intitule2          entretien2               nom2

J'aimerais donc y insérer le code pour passer à la ligne pour pouvoir ensuite implémenter mes QRDBText et les afficher comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
FeuilleEntretienVehicule->QRDBText1->DataSet = EcranAccueil->RequeteEntretien; 
FeuilleEntretienVehicule->QRDBText1->DataField = "date2"; 
FeuilleEntretienVehicule->QRDBText2->DataSet = EcranAccueil->RequeteEntretien; 
FeuilleEntretienVehicule->QRDBText2->DataField = "intitule2"; 
FeuilleEntretienVehicule->QRDBText3->DataSet = EcranAccueil->RequeteEntretien; 
FeuilleEntretienVehicule->QRDBText3->DataField = "organe2"; 
FeuilleEntretienVehicule->QRDBText4->DataSet = EcranAccueil->RequeteEntretien; 
FeuilleEntretienVehicule->QRDBText4->DataField = "entretien2";

Quand on prend simplement une base de données et une simple requete,il "passe à la ligne" tout seul après chaque enregistrement et va meme à la page tout seul. Il ya surement bien moyen de passer à la ligne de manière Statique. Mais je ne sais pas comment faire.
HELP me please!!

[Inpri-V]

As-tu mis les champs dans la section "Detail" du rapport?

[arnaud_verlaine]

oui bien sûr mais ce que j'aimerais savoir c'est comment passer d'une ligne à une autre de facon manuelle et non automatique ..

[Inpri-V]

Aucune idée!
Sauf utiliser un Canvas et générer toi-même ton rapport.

[Flint]

Je ne suis pas très sur du coup, et d'ailleurs, il y a le tag résolu donc tu dois avoir trouvé.
Mais perso, je serai passé par une étape intermédiaire, j'aurai reconstruit un DataSet qui aurait la structure voulue et j'aura dit que le DataSet de mon report c'est le nouveau que je viens de construire....