Discussion :

[bambou]

Bonjour,

J'essaye d'insere des tuples dans une base de donnees, pour cela j'utilise DBI..

Je souhaiterai savoir si je suis oblige de faire un SELECT avant mon INSERT pour verifier si le tuple exite ou non, ou si je peux passer par les messages d'erreurs renvoyes par la BD pour verifier ca...Sachant que l'autocommit est a 0
et de meme il y a t il un moyen de recuperer la cle primaire apres l'insertion d'un tupple sans avoir a repasser par un SELECT dans le cas d'une table avec une cle primaire en integer auto-incremente?

Merci,

Je vous laisse mon code...qui ne marche pas

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
eval{
  $db = DBI -> connect($dsn,$dbUser,$dbPwd, { RaiseError => 1, AutoCommit => 0,PrintError=>1 });
 };
 
if($DBI::state != undef){
  push(@errors, [$DBI::state, $DBI::errstr, " Connexion Error"]);
}
 
 eval{
    $req = $db->prepare("INSERT INTO Organisation (Name) values(\'$organisation\')");
    $req->execute();
  };
  if($DBI::state != '23505' && $DBI::state != undef && $DBI::state != '25P02'){ 
    push(@errors, [$DBI::state, $DBI::errstr, "INSERT INTO Organisation (Name) values(\'$organisation\')"]);
  }
 
  if(@errors > 0){
    my $j;
    for($j=0;$j<scalar(@errors);$j++){
      print LOG_FILE "count=".@errors."\n";
      print LOG_FILE "--------------------------------------------------\n";
      print LOG_FILE "Error Code : ".$errors[$j][0]."\n";
      print LOG_FILE "Error : ".$errors[$j][1]."\n";
      print LOG_FILE "Remark : ".$errors[$j][2]."\n";
      print LOG_FILE "--------------------------------------------------\n";
    }
    if($db){
      $db->rollback;
      $req->finish();
      $db->disconnect(); 
      exit_ui(0);
    }
  }else{
    $db->commit;
    $req->finish();
    $db->disconnect(); 
  }

$DBI::state != '23505' => Duplicate key
$DBI::state != '25P02' => Operation aborded (renvoye quand on essaye de passer une requete et qu'une erreur s'est produite sur une requete precedante, les requetes suivant l'erreurs sont "aborded" en mode autocommit a 0

voila, ce code est un test pour eviter de faire des Select count(*) avant pour tester si le tupple a inserer exite...je le trouve pas tres joli et i marche pas de toute facon, parce que postgre annule systematiquement toutes les requetes suivant celle qui a une cle primaire deja existante...

j'espere avoir etait comprehensible...

Merci pour votre aide!

[Gamdwin]

Pour commencer, l'appel de finish() ne se fait que dans des conditions particulières :

finish

$rc = $sth->finish;

Indicates that no more data will be fetched from this
statement handle before it is either executed again or
destroyed. The finish method is rarely needed, but can
sometimes be helpful in very specific situations to
allow the server to free up resources (such as sort
buffers).

When all the data has been fetched from a SELECT
statement, the driver should automatically call finish
for you. So you should not normally need to call it
explicitly except when you know that you've not fetched
all the data from a statement handle. The most common
example is when you only want to fetch one row, but in
that case the selectrow_* methods may be better anyway.

Ensuite, pense à bannir les for() à la sauce langage C, ils ne sont utiles que dans certains cas particuliers en PERL, et sont plus illisibles que la syntaxe :

Code :

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

1
2
3
foreach my $j ( 0..scalar(@errors) )
{
}

(ici le scalar est inutile en plus, puisque @errors est déjà utilisé dans un contexte scalaire )

En plus je ne vois pas l'intérêt de tous ces "eval"...

Sinon, pour ton problème de clef primaire, je ne connais pas d'autre manière que le select, qui te retournera si la clef existe déjà en table ou non.
C'est normalement une requête à l'exécution très rapide, puisqu'il y a, enfin j'espère, un index sur l'ensemble des champs formant la clef.

Tu mets cette requête dans une fonction qui retourne 1 ou 0 selon que la clef existe ou non, et le tour est joué.
Ce qui ne t'empêche pas de vérifier les résultats de l'insertion...

Dernière chose, j'assume que ton script ne comprend qu'une seule connexion+déconnexion. Si ce n'est pas le cas, tu devrais : la connexion est une étape coûteuse...

Là, comme ça vite fait, j'écrirais ça comme ça :

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
my $db = DBI->connect($dsn,$dbUser,$dbPwd, { RaiseError => 1, AutoCommit => 0,PrintError=>1 });
 
if ( defined($db) )
{
   my @clef_exists = $db->selectrow_array("select count(*) from Organisation where <clef primaire machin>");
 
   if ( $clef_exists[0] == 0 )
   {
      $db->do("INSERT INTO Organisation (Name) values(\'$organisation\')");
      # ...tu peux toujours vérifier que ça s'est bien passé ici ...
 
      $db->commit();
   }
   else
   {
       # Ca, ou alors recommencer avec une autre clef...
       push(@errors, "Clef déja existante");
   }
 
   $db->disconnect(); 
}
else
{
    push(@errors, [$DBI::state, $DBI::errstr, " Connexion Error"]);
}
 
 
if ( @errors > 0 )
{
   print LOG_FILE "count=".@errors."\n";
 
   foreach my $j ( 0..@errors )
   {
      print LOG_FILE "--------------------------------------------------\n";
      print LOG_FILE "Error Code : ".$errors[$j][0]."\n";
      print LOG_FILE "Error : ".$errors[$j][1]."\n";
      print LOG_FILE "Remark : ".$errors[$j][2]."\n";
      print LOG_FILE "--------------------------------------------------\n";
   }
}

[Arioch]

En plus je ne vois pas l'intérêt de tous ces "eval"...

Ben, un eval n'a d'intérêt que si l'on pense à tester derrière ce qu'il retourne dans $@. Sinon, effectivement...

[bambou]

Ok merci, c'est deja un peu plus clair sur le principe...

Pour le eval je fesais un test sur le $@, mais je l'ai enleve hier pour le remplacer par le test sur le DBI::state, donc je vais enlever tout ce bouzin et refaire un truc plus propre

merci a tous les deux!