demande requête sql sous delphi 7

Version imprimable

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:

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:

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

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:

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:

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

16/12/2013, 11h02
wiski08000

je vais essayer et merci pour votre réponse

Citation:
Envoyé par 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:

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:

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

16/12/2013, 14h23
SergioMaster

Citation:

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

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

Citation:

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

Citation:

Envoyé par sergiomaster

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 .....
16/12/2013, 14h54
wiski08000

1 pièce(s) jointe(s)

Citation:

Envoyé par SergioMaster

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
16/12/2013, 15h49
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
16/12/2013, 16h35
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
16/12/2013, 18h51
wiski08000

Citation:

Envoyé par 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

merci pour votre aide mais n'oublier pas que jz suis un débutant pas un pros, merci quand meme
16/12/2013, 19h12
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 !
16/12/2013, 21h03
wiski08000

Citation:

Envoyé par 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 !

j'ai le message d’erreur suivant:
les données chaines ou binaires seront tronquées
allez les gas soyez sympa
17/12/2013, 10h50
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 ...:roll:
C'est quand même largement plus lisible comme cela
Code:

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
17/12/2013, 11h17
wiski08000
Citation:
Envoyé par 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 ...:roll:
C'est quand même largement plus lisible comme cela

Code:

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
17/12/2013, 11h35
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

Citation:

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

Citation:

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:

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

Citation:
Envoyé par 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

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:

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:

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;

17/12/2013, 16h44
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 :resolu: en bas du poste