[Firebird] Quel est le code le plus rapide ?

Version imprimable

Bonjour,
J'hésite entre deux posibilités pour faire mes enregistrements dans une base de données Firebird. :bug:
Voilà, j'ai mon TIBQuery (PROPRIO) de chargé avec la requête :

Code:

SELECT * FROM Proprietaire

Pour ajouter un enregistrement j'hésite donc entre :
Code:

1 2 3 4 5 6 7 PROPRIO.Last(); PROPRIO.Insert(); PROPRIO.FieldByName('IDUSAGER').AsInteger := IDUSAGER; PROPRIO.FieldByName('QUALDEM').AsInteger := QUALDEM; PROPRIO.FieldByName('NOMDEM').AsString := NOMDEM; PROPRIO.FieldByName('PREDEM').AsString := PREDEM; PROPRIO.Post();
Et la méthode par SQL :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 var Requete, OldRequete: String; begin OldRequete := PROPRIO.SQL.Text; Requete := ' INSERT INTO PROPRIETAIRE'#13#10 + ' (IDUSAGER, QUALDEM, NOMDEM, PREDEM)'#13#10 + IntToStr(IDUSAGER) + ','#13#10 + IntToStr(QUALDEM) + ','#13#10 + QuotedStr(NOMDEM) + ','#13#10 + QuotedStr(PREDEM) + ')'#13#10 PROPRIO.Close(); PROPRIO.SQL.Clear(); PROPRIO.SQL.Add(Requete); PROPRIO.ExecSQL(); PROPRIO.Close(); PROPRIO.SQL.Clear(); PROPRIO.SQL.Add(OldRequete); PROPRIO.ExecSQL(); end;
Quelle est selon vous la méthode la plus rapide, sachant que j'ai dans les 1000 enregistrements à inserer.
Merci ;)

21/10/2009, 18h57
SergioMaster

Salut,
je ne comprends pas bien l'objectif ?

dans la proposition 1 , que vient faire le last ? si c'est pour se positionner en fin de fichier un APPEND à la place du insert fait l'affaire

dans la proposition 2 , première remarque dans le SQL les sauts de lignes sont inutiles pour peu de bien faire attention aux espaces
mais surtout , oldrequete est égale a quoi ? et a quoi sert-elle

Quel est l'objectif réel , parce que je pense que le problème posé a été (trop) simplifié

C'est vrai que j'ai un peu trop simplifié mes explications :roll:.
En fait, avant de faire mon insertion dans la table PROPRIO, je fait un Locate pour vérifier que le propriétaire n'existe pas déjà. D'où l'utilisation de OldRequete, qui enregistre la requête contenue dans le TIBQuery avant d'exécuter la requête d'insertion.
Ça donne quelque chose commen ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
if not PROPRIO.Locate('NOMDEM;PREDEM;ADRESSE',
  VarArrayOf([NOMDEM, PREDEM, ADRESSE]), [loCaseInsensitive]) then
begin
  // Créer le propriétaire
  PROPRIO.Append();
  PROPRIO.FieldByName('IDUSAGER').AsInteger := IDUSAGER;
  PROPRIO.FieldByName('QUALDEM').AsInteger := QUALDEM;
  PROPRIO.FieldByName('NOMDEM').AsString := NOMDEM;
  PROPRIO.FieldByName('PREDEM').AsString := PREDEM;
  PROPRIO.FieldByName('ADRESSE').AsInteger := ADRESSE;
  PROPRIO.Post();
end;

Ou avec le SQL :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
if not PROPRIO.Locate('NOMDEM;PREDEM;ADRESSE',
  VarArrayOf([NOMDEM, PREDEM, ADRESSE]), [loCaseInsensitive]) then
begin
  // Créer le propriétaire
  Requete := '  INSERT INTO PROPRIETAIRE'#13#10
           + '    (IDUSAGER, QUALDEM, NOMDEM, PREDEM, ADRESSE)'#13#10
           + '  VALUES('#13#10
           + IntToStr(IDUSAGER) + ','#13#10
           + IntToStr(QUALDEM) + ','#13#10
           + QuotedStr(NOMDEM) + ','#13#10
           + QuotedStr(PREDEM) + ','#13#10
           + QuotedStr(ADRESSE) + ')';
  PROPRIO.Close();
  PROPRIO.SQL.Clear();
  PROPRIO.SQL.Add(Requete);
  PROPRIO.ExecSQL();
  PROPRIO.Close();
  PROPRIO.SQL.Clear();
  PROPRIO.SQL.Add(OldRequete);
  PROPRIO.ExecSQL();           
end;

J'espère que c'est un peu plus compréhensible comme ça :).

pourquoi faire compliqué quand on peut faire simple ?
il suffi de créer un index sur la table proprio

à la volée et sans contrôler
Code:

1 2 CREATE UNIQUE INDEX PROPRIO_INDEX ON PROPRIETAIRE(NOMDEM,PREDEM,ADRESSE)
et de gérer l'exception par un bloc try ... except end;

de plus la méthode locate est lourde , cela veut dire que toute la table doit être chargée . je vote sans hésitation pour une méthode 2 améliorée grâce à l'index
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 begin // Créer le propriétaire Requete := ' INSERT INTO PROPRIETAIRE' + ' (IDUSAGER, QUALDEM, NOMDEM, PREDEM, ADRESSE)' + ' VALUES(' + IntToStr(IDUSAGER) + ',' + IntToStr(QUALDEM) + ',' + QuotedStr(NOMDEM) + ',' + QuotedStr(PREDEM) + ',' + QuotedStr(ADRESSE) + ')'; PROPRIO.SQL.Text:=Requete; try PROPRIO.ExecSQL; except // gestion du doublon end; end;
ou mieux encore avec des paramètres
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 const requete='INSERT INTO PROPRIETAIRE (IDUSAGER, QUALDEM,NOMDEM, PREDEM, ADRESSE) VALUES(:I,:Q,:N,:P,:A)'; ...... PROPRIO.SQL.Text:=requete; // une seule fois begin PROPRIO.ParamByName('I').asInteger:=IDUSAGER; PROPRIO.ParamByName('Q').asInteger:=QUALDEM; PROPRIO.ParamByName('N').asString:=NOMDEM; // etc... try PROPRIO.ExecSQL; except // gestion doublon end; end;
et si comme je le pense les données viennent d'une source différente , le bon nom des paramètres (=nom de la source) et l'affectation de la propriété datasource à proprio évitera même l'utilisation des lignes parambyname ;)

je préfére cella:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const requete='INSERT INTO PROPRIETAIRE  (IDUSAGER, QUALDEM,NOMDEM, PREDEM, ADRESSE)  VALUES(:I,:Q,:N,:P,:A)';
......
begin
 
with TIBSQL.creat(nil) do
try
   Transaction:=Datamodul.IBTRansact;
   sql.text:=requete
   ParamByName('I').asInteger:=IDUSAGER;
   ParamByName('Q').asInteger:=QUALDEM;
   ParamByName('N').asString:=NOMDEM;
 //  etc...
   try
     ExecSQL;
 
finally
   free;
     // gestion doublon
  end; 
end;

autre chose, si tu veux pas que sergiMaster s'enerve à prpos des ForeinKey, utilise les vites et avant lis ce doc :mouarf:

24/10/2009, 08h12
SergioMaster

Citation:

Envoyé par edam

autre chose, si tu veux pas que sergioMaster s'enerve à propos des ForeignKey, utilise les vite et avant lis ce doc :mouarf:

Rectificatif , ce n'est pas une Foreign Key mais un Index
Je m'énerve pas j'explique

@Edam attends que je me pointe a Casa (ce qui se dessine) et tu pourras voir ce que ça donne quand je m'enerve :mouarf::mouarf::mouarf:
24/10/2009, 13h16
edam

Citation:

Envoyé par SergioMaster

Rectificatif , ce n'est pas une Foreign Key mais un Index

Citation:

Envoyé par SergioMaster

Je m'énerve pas j'explique

non, je parle de Foreign key car je crois que si il a relier ces table avec, il n'aura pas besoin d'index,, non?? :koi:
pour

Citation:

Envoyé par SergioMaster

Je m'énerve pas j'explique

je parle de notre descution, que tu as supprimer :D

Citation:

Envoyé par SergioMaster

@Edam attends que je me pointe a Casa (ce qui se dessine) et tu pourras voir ce que ça donne quand je m'enerve :mouarf::mouarf::mouarf:

vraiment tu viens au Maroc?, mais tu es le bien venu, :lahola:

je suis plus à casa, actuellement je suis à Fès, ma ville natal,
26/10/2009, 11h45
ILP

J'aurai bien mis des indexes et des foreign keys dans la base de données Firebird, mais ce n'est pas moi qui la créée, et le créateur ne veux pas mettre de contraintes :calim2:.
26/10/2009, 13h01
SergioMaster

un index n'est pas une contrainte , plutôt une optimisation de recherche
quant au 'créateur' de la BDD il ferais bien de lire le doc indiqué par @Edam