Discussion :

[AUZUR]

Euh.........oui............mais nan !

En faite j'ai un peu de mal la et je me retrouve un peu perdu, et je ne comprend pas très bien.
Voila ce que j'ai fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
i est un entier = 0
requête est une chaîne = ("SELECT TabDept.NomRegion, SUM(CADept) as total  FROM TabReg, TabDept  WHERE TabDept.NomRegion = TabReg.Nomregion  GROUP BY TabDept.NomRegion, TabReg.Nomregion ORDER BY TabReg.Nomregion ASC ")
 SQLExec(requête, "pat")
TANTQUE SQLAvance("pat")=0
i++
NomRegion[i]=SQLLitCol("pat", 1)
SUM(CADept)[i] = SQLLitCol("pat", 2)
 
UPDATE

Et après, ben je vois pas trop ce que vous voulez faire, parce que le update va certainement pas trop accepter ce que j'ai a lui dire.

[Raptor92]

Moi, je vois cela plutôt comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sgCADept est une chaîne (OU UN ENTIER)
 
 
sRequete est une chaîne="SELECT TR.NomRegion..........sum(CADept) WHERE ..........  ORDER BY ART_CODE DESC "
SI	SI SQLExec(sRequete,"REQ") ALORS
	SI	SQLAvance("REQ") = 0 ALORS
		variable=SQLLitCol("REQ", 1)
 
	UPDATE...........SET CADept LIKE '"+gsCADept+"%'
 
	FIN
	FIN

Raptor92

[AUZUR]

Et nan toujours pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sSgCADept est une chaîne
variable est une chaîne
sRequete est une chaîne=("SELECT TabDept.NomRegion, SUM(CADept) as total  FROM TabReg, TabDept  WHERE TabDept.NomRegion = TabReg.Nomregion  GROUP BY TabDept.NomRegion, TabReg.Nomregion ORDER BY TabReg.Nomregion ASC ")
	SI SQLExec(sRequete,"REQ") ALORS
	SI	SQLAvance("REQ") = 0 ALORS
		variable=SQLLitCol("REQ", 1)
 
		SQLExec("UPDATE TAbReg SET CAreg LIKE '"+sSgCADept+"%'")
 
	FIN
FIN

Il me dit: "Aucune syntaxe de SQLExec ne correspond.", pour la dernière ligne.
Ce que je comprend pas, c'est que la chose que je veux faire ne ma pas l'air compliqué mais que je n'arrive pas a trouver la solution.
Parce que si on résume, je veux récupérer les données de mon sum(que j'arrive à afficher), et les rentrer dans ma table TabReg.
Vois pas, vois pas, vois pas, vois pas...

[Raptor92]

Bon,

Un peut d'humour à ce stade ne fait pas de mal...............

..............Dés que l'on pense que cela est simple, c'est là que tout devient très compliqué.................

Dans ton cas, c'est en effet simple de récupérer une donnée d'une première table, mais tu dois récupérer ce résultat afin de faire un Update vers une autre table.

C'est pourquoi tu déclare ce résultat en tant que variable.

Par contre, mon code fonctionne sous windev, or je crois me souvenir que tu m'a dit développer uniquement sur ton server, et dans ce cas, je ne suis pas certain que mon code fonctionne.

Pour que tu comprennes un peut mieux, regarde le sujet que j'ai ouvert à propos de requête INsert, j'y ai mis mon code car j'ai un problème dans la génération de code barre, et tu verra qu'à l'aide de requêtes, je récupère des variables et les insèrent vers d'autres champs.

L'Update fonctionne sur le même principe

Raptor92

[AUZUR]

Non non non !
Je code sur Windev, y a pas de soucis la dessus.
Nan, si je t'ai dis l'autre jour que je codais sur mon serveur, c'était pour faire des test et avoir le résultat en temps réel(enfin un peu plus vite qu'avec WD).
Donc oui ton code m'intéresse, je vais regarder et essayer de comprendre.

[mogwai162]

C'est quelque chose comme ça qu'il faut faire

Code :

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

1
2
3
4
5
6
7
8
Si SQLExec()
    tantque SQLAvance()=0
        variable=SQLLitCol()
 
      UPDATE...................variable...
 
      FIN
FIN

[AUZUR]

Peut être pa finalement, il y a peut être encore plus simple.

J'ai tester ça sur mon serveur:

Code :

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

1
2
3
4
5
 
insert into TabReg(NomRegion, Population)
select NomRegion, sum(CADept) as total
from TabDept
group by NomRegion

car en regardant un cours sur internet, cette solution est possible apparemment.
Mon seul problème est que je ne peut pas inserer les valeurs dans ma table, car NomRegion est la clé primaire et que ça bloque.
Donc il faudrait que je mette une colonne "ID" qui s'incrémenterait automatiquement, mais la je sais pas du tout comment faire.
Vous avez une idée ?

[mogwai162]

Ben non désolé... c'est bien pour ça que je m'evertue a te donner la solution ci haut...

[vmolines]

Faîtes un

Code :

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

DELETE FROM TabReg

avant le

Code :

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

1
2
3
4
insert into TabReg(NomRegion, Population)
select NomRegion, sum(CADept) as total
from TabDept
group by NomRegion

sinon la contrainte d'intégrité définie par la clé primaire <NomRegion> est violée.

[AUZUR]

Ok mogwai, mais j'ai essayer ta solution, mais ça ne marche pas, tout du moins, je narive pas a la faire marcher. Regarde un peu plus haut j'ai mis ce que j'avais fait et l'erreur que ça m'avais retourner.

[mogwai162]

Ton erreur vient de là :

Code :

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

SQLExec("UPDATE TAbReg SET CAreg LIKE '"+sSgCADept+"%'")

En effet, le nom de la requête n'est pas optionel, il faut donc écrire :

Code :

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

SQLExec("UPDATE TAbReg SET CAreg LIKE '"+sSgCADept+"%'","REQ2")

[AUZUR]

VICTORY !!

Merci vmolines, c'était bien ça.
Pour clore ce sujet, je mets donc le code au final:

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
sResInfo est une chaîne
ResSQL est une chaîne
RESS est une chaîne
IdFichier est un entier
Reslecture est une chaîne
requete est une chaîne
 
sDel est une chaîne = "DELETE FROM TabInfo"
 
SI SQLExec(sDel,"req" ) ALORS
	Info("Données mise a jour")
SINON 
	ErreurInfo()
FIN
 
 
// Indication du chemin d'ouverture d'un fichier externe
//SQLConnecte("Windev","wesco","")
IdFichier = fOuvre("C:\GEO\chiffrefrance.txt",foLectureEcriture)
 
SI IdFichier <> -1 ALORS
	// Lecture d'une ligne dans ce fichier
	Reslecture = fLitLigne(IdFichier)
	TANTQUE Reslecture <> EOT
		//Requête d'insertion dans al table de la base de données
		requete="INSERT INTO TabInfo (NumDept, CADept) VALUES "+...
		"('"+ExtraitChaîne(Reslecture,1,";")+"', '"+ExtraitChaîne(Reslecture,2, ";")+"')"
		//exécution de la requête
		SQLExec(requete,"REQ1")
		//Connexion à la base de données
		Reslecture = fLitLigne(IdFichier)
 
	FIN
FIN
IdFichier=fFerme(IdFichier)
 
 
 
 
sResInfo = SQLExec("SELECT * FROM TabInfo", "resi")
SI sResInfo <> "" ALORS
	SQLTable("resi", TABLE_Table3)
	// Calcule le nombre d'enreg. résultat
	nNbenr est un entier = TableOccurrence("TABLE_Table3")
SINON
	ErreurInfo()
FIN
SQLFerme("resi")
 
 
sMise est une chaîne = ("UPDATE TabDept SET  CADept = ( SELECT  CADept FROM TabInfo WHERE TabDept.NumDept = TabInfo.NumDept)")
SQLExec(sMise, "reso")
 
ResSQL = SQLExec("SELECT * FROM TabDept", "res")
SI ResSQL <> "" ALORS
	SQLTable("res", TABLE_Table1)
	// Calcule le nombre d'enreg. résultat
	nNbenr = TableOccurrence("TABLE_Table1")
SINON
	ErreurInfo()
FIN
SQLFerme("res")
 
sMise2 est une chaîne = ("DELETE FROM TAbReg ")
sMise3 est une chaîne = ("INSERT INTO TabReg(NomRegion, Population) SELECT NomRegion, sum(CADept) as total FROM TabDept GROUP BY NomRegion")
 
SQLExec(sMise2,"tap")
SQLExec(sMise3,"tape")
 
 
RESS = SQLExec("select * from TabReg", "resu" )
SI RESS <> "" ALORS
	SQLTable("resu", TABLE_Table2)
	nNbenr = TableOccurrence("TABLE_Table2")
SINON
	ErreurInfo()
 
FIN
SQLFerme("resu")

Voila, merci a tous de m'avoir aider.
Bonne chance pour la suite.

[Raptor92]

Et bien félicitations mon chère et à très bientôt

Raptor92