Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 2016
-
14 mars 2009 à 16:49
Delphinet27
Messages postés6Date d'inscriptionjeudi 12 mars 2009StatutMembreDernière intervention15 mars 2009
-
15 mars 2009 à 14:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Delphinet27
Messages postés6Date d'inscriptionjeudi 12 mars 2009StatutMembreDernière intervention15 mars 2009 15 mars 2009 à 14:42
Merci CANTADOR je vais voir ca.
Delphinet27
Messages postés6Date d'inscriptionjeudi 12 mars 2009StatutMembreDernière intervention15 mars 2009 15 mars 2009 à 14:29
Non je crois comprendre, j'ai fais 3 visualisations et validé 1 mise à jour.
Il y à du y avoir un bug.
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 15 mars 2009 à 14:27
bonjour,
je n'ai tout regardé..pas trop le temps en ce moment
juste ce détail:
ExecSQL;
Open;
seule Open est nécessaire
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 15 mars 2009 à 14:24
Faut croire que tu en as fait 3 ...
Cordialement, Bacterius !
Delphinet27
Messages postés6Date d'inscriptionjeudi 12 mars 2009StatutMembreDernière intervention15 mars 2009 15 mars 2009 à 14:15
15 mars 2009 14:07:39 :
Suppression des composants jcvl. Modifictation d'écriture.
15 mars 2009 14:10:17 :
Suppression des composants jvcl Modification de code
15 mars 2009 14:12:46 :
Suppression composants JVCL Correction de code
3 mise à jour à lors que j'en ai fais qu'une?!?
Delphinet27
Messages postés6Date d'inscriptionjeudi 12 mars 2009StatutMembreDernière intervention15 mars 2009 14 mars 2009 à 17:24
Il est vrai que les composants jvcl ne sont pas indispensable, c'étais pour le coté interface.
Merci pour :
with ADODelphi do
begin
CursorLocation := clUseServer;
SQL.Clear;
...
end;
Je modifie dès que je peux et je met à jour.
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 14 mars 2009 à 17:14
C'est pas mal écrit, juste quelques trucs qu'on peut améliorer :
ADOdelphi.CursorLocation := clUseServer;
ADOdelphi.LockType := ltPessimistic;
ADOdelphi.SQL.Clear;
ADOdelphi.sql.add('Select count(*) as nb from Delphi');
ADOdelphi.ExecSQL;
ADOdelphi.Open;
Compte:=ADOdelphi.Fieldbyname('nb').AsInteger;
ADOdelphi.SQL.Clear;
ADOdelphi.SQL.add('Select titre from Delphi');
ADOdelphi.ExecSQL;
ADOdelphi.Open;
Tu peux remplacer par :
with ADODelphi do
begin
CursorLocation := clUseServer;
SQL.Clear;
...
end;
Pareil avec les autres.
Et tu peux aussi renommer les composants c'est plus facile à la lecture.
Cordialement, Bacterius !
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 14 mars 2009 à 17:09
Ben tu vois elle n'était pas indispensable :)
Bon maintenant je n'ai pas les composants ADO, mais là tu n'y es pour rien. Je vais regarder le code, plutôt que me pencher sur la fonctionnalité (nul en BDD).
Cordialement, Bacterius !
Delphinet27
Messages postés6Date d'inscriptionjeudi 12 mars 2009StatutMembreDernière intervention15 mars 2009 14 mars 2009 à 17:05
Si tout à fais mais l'interface en serra moins beau.
Je vais donc modifier tout ca... Pas de problèmes.
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 14 mars 2009 à 17:01
Eh bien je n'ai pas la librairie JVCL, je ne peux pas l'installer et de toutes façons je ne veux pas l'installer. En général, on publie des sources qui utilisent des composants standard, ou alors les tiens (mais tu fais une création dynamique).
Tu ne peux vraiment pas te débarrasser de la JVCL ?.
Cordialement, Bacterius !
Delphinet27
Messages postés6Date d'inscriptionjeudi 12 mars 2009StatutMembreDernière intervention15 mars 2009 14 mars 2009 à 16:56
Tu n'as pas la librairie JVCL?
Que veux tu dire?
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 14 mars 2009 à 16:49
15 mars 2009 à 14:42
15 mars 2009 à 14:29
Il y à du y avoir un bug.
15 mars 2009 à 14:27
je n'ai tout regardé..pas trop le temps en ce moment
juste ce détail:
ExecSQL;
Open;
seule Open est nécessaire
15 mars 2009 à 14:24
Cordialement, Bacterius !
15 mars 2009 à 14:15
Suppression des composants jcvl. Modifictation d'écriture.
15 mars 2009 14:10:17 :
Suppression des composants jvcl Modification de code
15 mars 2009 14:12:46 :
Suppression composants JVCL Correction de code
3 mise à jour à lors que j'en ai fais qu'une?!?
14 mars 2009 à 17:24
Merci pour :
with ADODelphi do
begin
CursorLocation := clUseServer;
SQL.Clear;
...
end;
Je modifie dès que je peux et je met à jour.
14 mars 2009 à 17:14
ADOdelphi.CursorLocation := clUseServer;
ADOdelphi.LockType := ltPessimistic;
ADOdelphi.SQL.Clear;
ADOdelphi.sql.add('Select count(*) as nb from Delphi');
ADOdelphi.ExecSQL;
ADOdelphi.Open;
Compte:=ADOdelphi.Fieldbyname('nb').AsInteger;
ADOdelphi.SQL.Clear;
ADOdelphi.SQL.add('Select titre from Delphi');
ADOdelphi.ExecSQL;
ADOdelphi.Open;
Tu peux remplacer par :
with ADODelphi do
begin
CursorLocation := clUseServer;
SQL.Clear;
...
end;
Pareil avec les autres.
Et tu peux aussi renommer les composants c'est plus facile à la lecture.
Cordialement, Bacterius !
14 mars 2009 à 17:09
Bon maintenant je n'ai pas les composants ADO, mais là tu n'y es pour rien. Je vais regarder le code, plutôt que me pencher sur la fonctionnalité (nul en BDD).
Cordialement, Bacterius !
14 mars 2009 à 17:05
Je vais donc modifier tout ca... Pas de problèmes.
14 mars 2009 à 17:01
Tu ne peux vraiment pas te débarrasser de la JVCL ?.
Cordialement, Bacterius !
14 mars 2009 à 16:56
Que veux tu dire?
14 mars 2009 à 16:49
Tu viens de perdre un membre pour ce source.
Cordialement, Bacterius !