Discussion :

[wiski08000]

bonjours les amis, voici mon problème

j'aimerais transformer cette boucle en une requette sql (sql 2000) sous delphi 7 pour mettre un tquery

----debut de boucle -------------------

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
mdd.TPriseCharge.First;
while not mdd.TPriseCharge.Eof do
begin
    if ((mdd.TPriseChargenum_miss.Text=Prise_chargeF.edit42.Text)
    and (mdd.TPriseChargedate_pc.Text=Prise_chargeF.label1.caption)) then
    begin
     mdd.TPriseCharge.Edit;
     mdd.TPriseChargemont_dej.Value:=strtofloat(edit1.Text);
     mdd.TPriseChargemont_din.Value:=strtofloat(edit2.Text);
     mdd.TPriseChargemont_heber.Value:=strtofloat(edit3.Text);
     mdd.TPriseChargejour.Text:=label15.Caption;
     mdd.TPriseChargetype_pc.Text:=label11.Caption;
     mdd.TPriseChargetotal_indem.Value:=strtofloat(edit4.Text);
     mdd.TPriseChargergion.Text:=edit43.Text;
 
    end;
    mdd.TPriseCharge.Next;
    end;

----- fin de boucle --------

la première condition edit42 fixe.

sauf la c'est que la 2ème condition

Code :

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

1
2
3
4
5
6
7
mdd.TPriseChargedate_pc.Text=Prise_chargeF.label1.caption)) peut etre 
label2.caption 
label3.caption 
.
.
.
label10.caption

puisque j'utilise 10 CheckBox, (on check : alors 10 boucle de while not ) , chaque checkbox pour chaque label.caption

merci pour votre aide

[SergioMaster]

Bonjour,

Tout d'abord , merci d'utiliser les balises de code (le bouton #) pour une lecture plus agréable. Et le mieux serait quand même d'indiquer la structure de la table plutôt que d'avoir à la deviner !
indiquer aussi le type de composants utilisé BDE, DBExpress, ADO .....

un Edit est l'équivalent SQL de UPDATE
les if l'équivalent d'un WHERE

donc le SQL donnerait quelque chose comme

Code SQL :

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

1
2
3
4
5
6
 
UPDATE NOMTABLE SET Chargemont_dej=:CDEJ,Chargemont_din=:CDIN,
Chargemont_heber=:CHEBER,Chargejour=:JOUR,Chargetype_pc=:TPC,
Chargetotal_indem=:CT,Chargergion=:CREGION
WHERE Chargenum_miss=:MISSION
AND Chargedate_pc=:DATE

ce qui donnerait par la suite un code DELPHI

Code avec Query BDE :

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

1
2
3
4
5
6
7
8
9
10
Query.ParamByName('CDEJ').asFloat:=strtofloat(edit1.Text);
Query.ParamByName('CDIN').asFloat:=strtofloat(edit2.Text);
Query.ParamByName('CHEBER').asFloat:=strtofloat(edit3.Text);
Query.ParamByName('JOUR').asString:=label15.caption;
Query.ParamByName('TPC').asString:=label11.caption;
Query.ParamByName('CT').asFloat:=strtofloat(edit4.Text);
Query.ParamByName('CREGION').asString:=Edit43.Text;
Query.ParamByName('MISSION').asString:=label11.caption;
Query.ParamByName('DATE').asString:=Prise_chargeF.label1.caption;
Query.ExecSQL;

cependant , j'aimerais faire plusieurs suggestions :
sur les montants , il serait préférable d'utiliser un StrFloatDef
sur le Total - un champ de type calculé éviterait d'avaoir al le mettre à jour
- la somme des 3 montants serait peut être mieux
sur la date - la date en texte dans une BDD est une très mauvaise idée

[wiski08000]

je vais essayer et merci pour votre réponse

[wiski08000]

Bonjour,

Tout d'abord , merci d'utiliser les balises de code (le bouton #) pour une lecture plus agréable. Et le mieux serait quand même d'indiquer la structure de la table plutôt que d'avoir à la deviner !
indiquer aussi le type de composants utilisé BDE, DBExpress, ADO .....

un Edit est l'équivalent SQL de UPDATE
les if l'équivalent d'un WHERE

donc le SQL donnerait quelque chose comme

Code SQL :

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

1
2
3
4
5
6
 
UPDATE NOMTABLE SET Chargemont_dej=:CDEJ,Chargemont_din=:CDIN,
Chargemont_heber=:CHEBER,Chargejour=:JOUR,Chargetype_pc=:TPC,
Chargetotal_indem=:CT,Chargergion=:CREGION
WHERE Chargenum_miss=:MISSION
AND Chargedate_pc=:DATE

ce qui donnerait par la suite un code DELPHI

Code avec Query BDE :

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

1
2
3
4
5
6
7
8
9
10
Query.ParamByName('CDEJ').asFloat:=strtofloat(edit1.Text);
Query.ParamByName('CDIN').asFloat:=strtofloat(edit2.Text);
Query.ParamByName('CHEBER').asFloat:=strtofloat(edit3.Text);
Query.ParamByName('JOUR').asString:=label15.caption;
Query.ParamByName('TPC').asString:=label11.caption;
Query.ParamByName('CT').asFloat:=strtofloat(edit4.Text);
Query.ParamByName('CREGION').asString:=Edit43.Text;
Query.ParamByName('MISSION').asString:=label11.caption;
Query.ParamByName('DATE').asString:=Prise_chargeF.label1.caption;
Query.ExecSQL;

cependant , j'aimerais faire plusieurs suggestions :
sur les montants , il serait préférable d'utiliser un StrFloatDef
sur le Total - un champ de type calculé éviterait d'avaoir al le mettre à jour
- la somme des 3 montants serait peut être mieux
sur la date - la date en texte dans une BDD est une très mauvaise idée

comment je dois déclarer ('CDEJ'),('CDIN'),('CHEBER'),....
comme des variables ???

j'ai message erreur prisechargemont_dej:nom de colonne incorrect

voulez vous bien me diriger comment faire
merci

[SergioMaster]

comment je dois déclarer ('CDEJ'),('CDIN'),('CHEBER'),....
comme des variables ???

non , ce sont des paramètres de la requête

j'ai message erreur prisechargemont_dej:nom de colonne incorrect

ça c'est de votre faute . j'ai repris le code que vous aviez fourni en supposant que le nom des colonnes étaient correct.
vous m'auriez fourni ce que j'ai demandé , j'aurais peut être pu fournir le SQL correct

Et le mieux serait quand même d'indiquer la structure de la table plutôt que d'avoir à la deviner !
indiquer aussi le type de composants utilisé BDE, DBExpress, ADO .....

[wiski08000]

non , ce sont des paramètres de la requête


ça c'est de votre faute . j'ai repris le code que vous aviez fourni en supposant que le nom des colonnes étaient correct.
vous m'auriez fourni ce que j'ai demandé , j'aurais peut être pu fournir le SQL correct

le code sql je le met sur le tquery sql:tstring.??????

comment dois_je déclarer les parametres de la requette.

en ce qui concerne les noms de colonnes elles sont correctes.
pouviez vous svp me donner la requette sql complete
merci infiniment

[Rayek]

Je pense qu'un tour dans la section tutoriel serait un plus pour la compréhension de l'utilisation des query (Vu que sergio a donné la réponse pour la requête).
Particulièrement cette section

[SergioMaster]

merci Rayek

@wiski08000

j'ai déjà aussi répondu pour la déclaration des paramètres .
plutôt que nous fournir une image écran , la description de la table aurait été bien mieux

[wiski08000]

merci Rayek

@wiski08000

j'ai déjà aussi répondu pour la déclaration des paramètres .
plutôt que nous fournir une image écran , la description de la table aurait été bien mieux

merci pour votre aide mais n'oublier pas que jz suis un débutant pas un pros, merci quand meme

[tourlourou]

C'est justement parce que tu débutes qu'il vaut mieux suivre les conseils destinés à t'aider (ceci restant vrai même longtemps après les débuts), notamment les demandes de précisions !

[wiski08000]

C'est justement parce que tu débutes qu'il vaut mieux suivre les conseils destinés à t'aider (ceci restant vrai même longtemps après les débuts), notamment les demandes de précisions !

j'ai le message d’erreur suivant:
les données chaines ou binaires seront tronquées
allez les gas soyez sympa

[Rayek]

Je sais pourquoi je n'aime pas cette écriture mdd.TPriseChargemont_dej
Car en étudiant bien on remarque que c'est mdd.TPriseCharge le composant et mont_dej le champs ...
C'est quand même largement plus lisible comme cela

Code :

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

1
2
 
mdd.TPriseCharge.FieldByName('mont_dej').Value := ...

Donc dans l'update il faut virer les Charge qu'il y a devant tous les champs de la table.
Pour le reste ce n'est que de la manipulation de composants Query et de l'utilisation des paramètres qui ont été mainte fois expliqués sur le forum ou dans des tutoriels

[wiski08000]

Je sais pourquoi je n'aime pas cette écriture mdd.TPriseChargemont_dej
Car en étudiant bien on remarque que c'est mdd.TPriseCharge le composant et mont_dej le champs ...
C'est quand même largement plus lisible comme cela

Code :

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

1
2
 
mdd.TPriseCharge.FieldByName('mont_dej').Value := ...

Donc dans l'update il faut virer les Charge qu'il y a devant tous les champs de la table.
Pour le reste ce n'est que de la manipulation de composants Query et de l'utilisation des paramètres qui ont été mainte fois expliqués sur le forum ou dans des tutoriels

le mdd est le nom de mon module de donnée
tprisecharge est le nom de la table

[SergioMaster]

Bonjour,

Quant on utilise un UPDATE (donc une query) il faut indiquer dans le SQL les nom de colonnes de la table ainsi que le nom de la table bien sur . C'est pour cela que je demande depuis le début , la description de la table !

pour ce qui est de l'erreur

les données chaines ou binaires seront tronquées

il est évident que le problème vient des chaines , donc d'une de ces lignes

Query.ParamByName('JOUR').asString:=label15.caption;
Query.ParamByName('TPC').asString:=label11.caption;
Query.ParamByName('CREGION').asString:=Edit43.Text;
Query.ParamByName('MISSION').asString:=label11.caption;
** MENTION SPECIALE POUR LA DERNIERE QUI POUR MOI EST LA PIRE **
Query.ParamByName('DATE').asString:=Prise_chargeF.label1.caption;

où la valeur est trop longue pour la taille du champ (colonne)
un moyen de s'en sortir est de tronquer la valeur par la fonction COPY

Code :

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

1
2
Query.ParamByName('JOUR').asString:=Copy(label15.caption,1,<Taille du Champ>);

[wiski08000]

Bonjour,

Quant on utilise un UPDATE (donc une query) il faut indiquer dans le SQL les nom de colonnes de la table ainsi que le nom de la table bien sur . C'est pour cela que je demande depuis le début , la description de la table !

pour ce qui est de l'erreur

il est évident que le problème vient des chaines , donc d'une de ces lignes

où la valeur est trop longue pour la taille du champ (colonne)
un moyen de s'en sortir est de tronquer la valeur par la fonction COPY

Code :

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

1
2
Query.ParamByName('JOUR').asString:=Copy(label15.caption,1,<Taille du Champ>);

enfin j'ai réussi,et ca marche merci à tous pour votre aide
pour ce qui est de l'erreur c'était ParamByName('TPC').asString:=label11.caption; nbr de caractère .

voici la procédure:

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
procedure TPrise_chargeF.CheckBox1Click(Sender: TObject);
var requette : string;
begin
Requette:=
('UPDATE prisecharge  SET prisecharge.mont_dej=:CDEJ,mont_din=:CDIN,prisecharge.mont_heber=:CHEBER,prisecharge.jour=:JOUR,prisecharge.total_indem=:CT,prisecharge.region=:CREGION,type_pc=:TPC WHERE prisecharge.num_miss=:MISSION AND prisecharge.date_pc=:DATE ');
 Prise_chargeF.query1.sql.add(requette);
with Prise_chargeF.query1 do
begin
ParamByName('CDEJ').asFloat:=strtofloat(edit1.Text);
ParamByName('CDIN').asFloat:=strtofloat(edit2.Text);
ParamByName('CHEBER').asFloat:=strtofloat(edit3.Text);
ParamByName('JOUR').asString:=label15.caption;
ParamByName('TPC').asString:=label11.caption;
ParamByName('CT').asFloat:=strtofloat(edit4.Text);
ParamByName('CREGION').asString:=Edit43.Text;
ParamByName('MISSION').asString:=Edit42.Text;//label11.caption;
ParamByName('DATE').asString:=Prise_chargeF.label1.caption;
ExecSQL;
end;
    end;

[Rayek]

Merci de penser à utiliser le # pour mettre les balises de codes autour de code.

Sinon quelques remarques :

- Dans ton Update tu n'es pas obligé de remettre le nom de la table pour chaque champ.
- Il serait bien de renommer correctement tes composants (Label, Text, etc ...) car si quelqu'un ou bien toi doit revenir dans le code dans plusieurs mois cela sera surement un calvaire pour savoir qui correspond à quoi.


Sinon si le sujet est résolu merci de cliquer sur le bouton en bas du poste