Discussion :

[vodevil]

Lut, je cherche comment récupérer le code d'erreur de DBI , j'ai fait un script qui doit vérifier si une donnée existe ou pas dans Sql server voici mon sous prog

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
sub exist {
   my $url = shift;
   my $sth = $dbh->prepare(' SELECT * FROM sites WHERE site_url="$url" ');
      $sth->execute;
 
# Récupération du code d'erreur pour savoir si oui ou non le site existe dans la db
 
 
      $dbh->disconnect; 
}

merci de votre aide

[shwin]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub exist { 
 
   my $url = shift; 
   my $find;
   my $sth = $dbh->prepare(' SELECT count(site_url) FROM sites WHERE site_url="$url" '); 
      $sth->execute; 
   $sth->bind_columns(\$find);
  $sth->fetch();
  $sth->finish();
 
#0 = introuvable, 1 = trouvé
  return $find 
}

[Invité]

La propriété en question est errstr

Code :

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

1
2
3
4
$DBI::errstr
$dbh->errstr;
$sth->errstr;
etc...

Plus simplement tu fais :

Code :

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

1
2
 
$sth->execute or die "Erreur $sth->errstr";

[shwin]

Je te conseil de mettre les valeur de ta requete dans ton execute

CAD

Code :

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

1
2
my $sth = $dbh->prepare(' SELECT * FROM sites WHERE site_url=?'); 
      $sth->execute($url);

De cette facon, tu évite le SQLInjection

[vodevil]

Merci pour vitre aide