Discussion :

[GEDY971]

Bonsoir,
J'ai besoin d'aide pour faire fonctionner un bout de code tcl et mettre à jour une base de données sqlite.
La base de données contient deux tables : maj et chemin
les champs en cause ici sont maj.m_path et chemin.c_id, chemin.c_path
La table chemin existe et est vide lorsque je lance le script.
le code que j'ai écris doit
faire
lire une ligne de la table maj
je recupère le champ m_path dans la variable $m_path
je récupèrer c_id dans la table chemin si chemin.c_path = maj.m_path
si c_id existe pas
il faut saisir un nouvel enregistrement dans la table chemin ayant c_id et m_path
boucler sur ligne suivante.

Voici ce script :

package require sqlite3

# Recherche du fichier de la BDD
set f "bdd/partitions.db"
if { ![file exists $f]} {
puts stderr "Erreur accès à la base partitions."
exit 1
}
# Ouverture de la BDD
sqlite3 db1 $f
# Itération de mise à jour table chemin
set idc 1
db1 eval {SELECT * FROM maj} {
puts "maj : $m_path"
db1 eval {SELECT * FROM chemin WHERE c_path = $m_path} {
puts "chemin $m_path"
if {$c_id eq ""} {
puts "chemin vide"
db1 eval {INSERT INTO chemin($idc, c_path) VALUES($Idc, $m_path)}
incr idc
} else {
puts "chemin existant: $c_id"
}
}
}

J'ai placé des puts dans mon code...et a aucun moment je passe dans les puts notés chemin.
Merci pour votre aide.

[GEDY971]

Bonjour,
Je pense avoir trouvé mon erreur .
J'ai une requête SQL imbriquée dans une autre. A mon avis c'est cela qui plait pas.
J'ai donc modifié mon script pour éviter cela

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
 
set f "bdd/partitions.db"
if { ![file exists $f]} {
    puts stderr "Erreur accès à la base partitions."
    exit 1
}
# Ouverture de la BDD
sqlite3 db1 $f
# Variable clé primaire table chemin
set idc 1
# Nb lignes dans la table maj
set Nb [db1 eval {SELECT count(m_path) FROM maj}]
puts "Nb Enr : $Nb"
for {set ligne 1} {$ligne <= $Nb} {incr ligne} {
	# Lecture de la table maj 
	set Ch [db1 eval {SELECT m_path FROM maj LIMIT $ligne, 1}] 
	puts "maj : ligne : $ligne, m_path : $Ch"
	# Requête sur la table chemin
	set Prim [db1 eval {SELECT c_id FROM chemin WHERE c_path = $Ch}]
	puts "chemin $Prim"
	# Itération de mise à jour table chemin
	if {$Prim eq ""} {
		puts "chemin vide"
		db1 eval {INSERT INTO chemin(c_id, c_path) VALUES($idc, $Ch)}
		incr idc
	} else {
	puts "chemin existant: $Prim"
	}
}

Merci !