Encore une gestion d'exception
Résolu
codial
Messages postés
265
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
5 mai 2015
-
6 févr. 2006 à 17:22
codial Messages postés 265 Date d'inscription mercredi 14 avril 2004 Statut Membre Dernière intervention 5 mai 2015 - 8 févr. 2006 à 14:10
codial Messages postés 265 Date d'inscription mercredi 14 avril 2004 Statut Membre Dernière intervention 5 mai 2015 - 8 févr. 2006 à 14:10
8 réponses
codial
Messages postés
265
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
5 mai 2015
1
7 févr. 2006 à 09:23
7 févr. 2006 à 09:23
Après pas mal de galère hier, en me levant ce matin j'ai trouvé !!!!
le try except n'est pas au bon endroit !!!
try
DM.tbl_ParcTemp.Post;
except
on EDataBaseError do DM.tbl_ParcTemp.Cancel;
end;
Cordialement
Codial
le try except n'est pas au bon endroit !!!
try
DM.tbl_ParcTemp.Post;
except
on EDataBaseError do DM.tbl_ParcTemp.Cancel;
end;
Cordialement
Codial
DeltaFX
Messages postés
449
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
8 avril 2009
2
7 févr. 2006 à 10:16
7 févr. 2006 à 10:16
Ce qui m'echappe, c'est pourquoi attendre que la table acces te balance une erreur si tu tentes decharger un "domaine" avec une chaine vide, alors que tester la longuer de strValeur est tout a fait possible dans le 1 de ton "case of" du genre.
1: begin
if Length(strValeur) <> 0 then
DM.tbl_ParcTemp.fieldbyName('Domaine').asstring:=strValeur;
Et en plus, je vois pas trop l'interet d'un case of alors que la valeur de a -ton compteur- est incrémentée. Crées toi un array[1..12] of string en constante que tu précharge avec les différent fieldNames dans le bon ordre, apres tu réécris ta boucle avec
if Lenght(MaFeuille.Cells.Item[ii,1].Value)>0 then
begin
DM.tbl_ParcTemp.Edit; //Mettre à jour la nouvelle ligne
for a:=1 to NbreColonne do
DM.tbl_ParcTemp.fieldbyName(MyFieldName[a]).asstring:=
MaFeuille.Cells.Item[ii,a].Value;
end;
M'enfin je dis ca, je dis rien....
1: begin
if Length(strValeur) <> 0 then
DM.tbl_ParcTemp.fieldbyName('Domaine').asstring:=strValeur;
Et en plus, je vois pas trop l'interet d'un case of alors que la valeur de a -ton compteur- est incrémentée. Crées toi un array[1..12] of string en constante que tu précharge avec les différent fieldNames dans le bon ordre, apres tu réécris ta boucle avec
if Lenght(MaFeuille.Cells.Item[ii,1].Value)>0 then
begin
DM.tbl_ParcTemp.Edit; //Mettre à jour la nouvelle ligne
for a:=1 to NbreColonne do
DM.tbl_ParcTemp.fieldbyName(MyFieldName[a]).asstring:=
MaFeuille.Cells.Item[ii,a].Value;
end;
M'enfin je dis ca, je dis rien....
codial
Messages postés
265
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
5 mai 2015
1
7 févr. 2006 à 16:36
7 févr. 2006 à 16:36
Bonjour,
j'ai bien pris tes remarque en compte et j'ai modifié mon code en conséquence. En fait je reprends sous Delphi 7 une appli que j'ai développé sous Access justement pour améliorer mes connaissances du language Delphi et naturellement je suis preneur de toutes les remarques relatives à mon code.
J'ai donc fait:
var
strChamp:array[1..12] of string;
.....
begin
//---------------------
strChamp[1]:='Domaine';
strChamp[2]:='Détenteur';
strChamp[3]:='Formation';
strChamp[4]:='PAa';
strChamp[5]:='Comptable';
strChamp[6]:='Clair_Comptable';
strChamp[7]:='Immatr';
strChamp[8]:='idCivil';
strChamp[9]:='Emat8';
strChamp[10]:='Clair_Emat8';
strChamp[11]:='NumChâs';
strChamp[12]:='DateImmatr';
//=======================
......
//Lire chaque ligne de la feuille
//=======================
for ii:= 2 to NbreLigne do
begin
DM.tbl_ParcTemp.insert; // Insérer une nouvelle ligne
//===================================
//Lire chaque colonne de la feuille
//===================================
DM.tbl_ParcTemp.Edit; //Mettre à jour la nouvelle ligne
if Length(MaFeuille.Cells.Item[ii,1].Value)>0 then
begin
DM.tbl_ParcTemp.Edit; //Mettre à jour la nouvelle ligne
for a:=1 to NbreColonne do
DM.tbl_ParcTemp.fieldbyName(strChamp[a]).asstring:= MaFeuille.Cells.Item[ii,a].Value;
try
DM.tbl_ParcTemp.Post;
except
on EDataBaseError do
begin
WriteLn(F,MaFeuille.Cells.Item[ii,2].Value + ' ' +MaFeuille.Cells.Item[ii,7].Value);
DM.tbl_ParcTemp.Cancel;
end;
end;
end;
progressbar1.Position:=progressbar1.Position+1 ;
end;
showmessage('Importation terminée..');
//Fermer Excel
ExcelApplication1.quit;
WriteLn(F,'End Of File');
WriteLn(F,'-----------');
CloseFile(F);
ProgressBar1.Position := 0;
Progressbar1.Visible := false;
-----
c'est ce que tu voulais dire ?
Cordialement
Codial
j'ai bien pris tes remarque en compte et j'ai modifié mon code en conséquence. En fait je reprends sous Delphi 7 une appli que j'ai développé sous Access justement pour améliorer mes connaissances du language Delphi et naturellement je suis preneur de toutes les remarques relatives à mon code.
J'ai donc fait:
var
strChamp:array[1..12] of string;
.....
begin
//---------------------
strChamp[1]:='Domaine';
strChamp[2]:='Détenteur';
strChamp[3]:='Formation';
strChamp[4]:='PAa';
strChamp[5]:='Comptable';
strChamp[6]:='Clair_Comptable';
strChamp[7]:='Immatr';
strChamp[8]:='idCivil';
strChamp[9]:='Emat8';
strChamp[10]:='Clair_Emat8';
strChamp[11]:='NumChâs';
strChamp[12]:='DateImmatr';
//=======================
......
//Lire chaque ligne de la feuille
//=======================
for ii:= 2 to NbreLigne do
begin
DM.tbl_ParcTemp.insert; // Insérer une nouvelle ligne
//===================================
//Lire chaque colonne de la feuille
//===================================
DM.tbl_ParcTemp.Edit; //Mettre à jour la nouvelle ligne
if Length(MaFeuille.Cells.Item[ii,1].Value)>0 then
begin
DM.tbl_ParcTemp.Edit; //Mettre à jour la nouvelle ligne
for a:=1 to NbreColonne do
DM.tbl_ParcTemp.fieldbyName(strChamp[a]).asstring:= MaFeuille.Cells.Item[ii,a].Value;
try
DM.tbl_ParcTemp.Post;
except
on EDataBaseError do
begin
WriteLn(F,MaFeuille.Cells.Item[ii,2].Value + ' ' +MaFeuille.Cells.Item[ii,7].Value);
DM.tbl_ParcTemp.Cancel;
end;
end;
end;
progressbar1.Position:=progressbar1.Position+1 ;
end;
showmessage('Importation terminée..');
//Fermer Excel
ExcelApplication1.quit;
WriteLn(F,'End Of File');
WriteLn(F,'-----------');
CloseFile(F);
ProgressBar1.Position := 0;
Progressbar1.Visible := false;
-----
c'est ce que tu voulais dire ?
Cordialement
Codial
DeltaFX
Messages postés
449
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
8 avril 2009
2
7 févr. 2006 à 23:35
7 févr. 2006 à 23:35
Bah en gros oui. Ca marche ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
codial
Messages postés
265
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
5 mai 2015
1
8 févr. 2006 à 09:43
8 févr. 2006 à 09:43
Bonjour,
oui ça marche mais je n'ai pas vu de gain de rapidité dans mon importation qui dure quand même 5mn pour 20379 enregistrements (Sous Access c'est un peu plus rapide!)
Cordialement
Codial
oui ça marche mais je n'ai pas vu de gain de rapidité dans mon importation qui dure quand même 5mn pour 20379 enregistrements (Sous Access c'est un peu plus rapide!)
Cordialement
Codial
DeltaFX
Messages postés
449
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
8 avril 2009
2
8 févr. 2006 à 10:12
8 févr. 2006 à 10:12
Euh, heheheh ... ahem ma remarque a propos du case of n'a pas accéléré des masses ton traitement, et c'est normal. Ca concernait seulement le fait qu'un case of n'était pas à sa place dans ce cas précis vu que les infos arrivaient toujous dans le meme ordre. Le test de la premiere cellule n'avait pour but que de t'eviter une gestion d'exception supplémentaire.
Ce qui fait que ton truc est lent (relativement parlant), c'est d'acceder a chaque cellule, puis une fois que la ligne de ta table est construite, de la soumettre a la DB, qui elle refait une bardée de tests. 20379 en 5 mn, ca fait quand meme 68 enregistrement à la seconde, c'est pas mal du tout hein.
Tchô.
Ce qui fait que ton truc est lent (relativement parlant), c'est d'acceder a chaque cellule, puis une fois que la ligne de ta table est construite, de la soumettre a la DB, qui elle refait une bardée de tests. 20379 en 5 mn, ca fait quand meme 68 enregistrement à la seconde, c'est pas mal du tout hein.
Tchô.
DeltaFX
Messages postés
449
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
8 avril 2009
2
8 févr. 2006 à 10:16
8 févr. 2006 à 10:16
Arf, si tu veux grapiller quelques nanosecondes, cette ecriture est pas bonne :
progressbar1.Position:=progressbar1.Position+1 ;
Inc(progressbar1.Position) est plus rapide (un micropoil plus rapide)
progressbar1.Position:=progressbar1.Position+1 ;
Inc(progressbar1.Position) est plus rapide (un micropoil plus rapide)
codial
Messages postés
265
Date d'inscription
mercredi 14 avril 2004
Statut
Membre
Dernière intervention
5 mai 2015
1
8 févr. 2006 à 14:10
8 févr. 2006 à 14:10
Bonjour,
ta remarque me rassure dans la mesure ou le code n'est pas trop nul !!!! car en fait je ne maitrise pas encore parfaitement Delphi. Mais ça viendra !!!
Le test de la premiere cellule pour éviter une gestion d'exception a été le bien venu car j'avais déja essayé mais sans vraiment trouver la bonne syntaxe.
Comme je l'ai dit je suis preneur de toute critique constructive!!!
Cordialement
Codial
ta remarque me rassure dans la mesure ou le code n'est pas trop nul !!!! car en fait je ne maitrise pas encore parfaitement Delphi. Mais ça viendra !!!
Le test de la premiere cellule pour éviter une gestion d'exception a été le bien venu car j'avais déja essayé mais sans vraiment trouver la bonne syntaxe.
Comme je l'ai dit je suis preneur de toute critique constructive!!!
Cordialement
Codial
