Petit probleme avec DBI

**cryptorchild** · 21/11/2005, 07h21

Bonjur j'ai un probleme avec dbi je n'arrive pas a exécuté la requete

Code :

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

SELECT * FROM doc

voici mon code perl

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
#!/usr/bin/perl
use DBI;
 
 
my $DSN = 'driver={SQL Server};Server=*******; database=test; uid=sa;pwd=********;';
my $dbh = DBI->connect("dbi:ODBC:$DSN", { odbc_cursortype => DBI::SQL_CURSOR_DYNAMIC }) or die "$DBI::errstr\n";
 
 
 
 
  my $sth = $dbh->prepare('SELECT * FROM doc');
      $sth->execute;
 
 
  print "$sth\n";

Quand j'execute mon code j'obtient :

DBI::st=HASH(0x18302cc)

a la place de la chaine queje voudrais voir grace a

print "$sth\n";

**tfe** · 21/11/2005, 09h00

tu devrais avoir ta reponse via un
perldoc DBI

ca doit etre du coté de fetchrow_hashref je crois

**cryptorchild** · 22/11/2005, 17h01

Merci tfe pour ton aide c'est bien sa, mais j'ai encore un problème lorsque je fait mon

select *

je n'arrive pas a récupérer toutes les insertions sql mais seulement la première ligne

voici mon code

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
$dbh->{LongReadLen} = 100000000;
   $dbh->{LongTruncOk} = 1;
my $sth2 = $dbh->prepare("SELECT * FROM doc");
   $sth2->execute();
my @rows = $sth2->fetchrow_array;
 
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<meta http-equiv='content-type' content='text/html; charset=utf-8'>\n";
print "</head>\n";
print "<body>\n";
print "@rows\n";
print "========================\n";
print "<\/body>\n";
print "<\/html>\n";

Qu'el est le probleme

**tfe** · 22/11/2005, 20h00

Code :

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

1
2
3
4
while(my @rows = $sth2->fetchrow_array)
{
   print @rows;
}

a tester

**najat92** · 01/12/2005, 10h07

Bonjour
aprés avoir executer ta requete tu dois parcourir le résultat avec une boucle, tu peux le faire avec les hashs

Code :

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

1
2
3
4
5
 
while(my $rows = $sth->fetchrow_hashref())  
{
    print $row->{nom_de_la_colonne};
}

ou bien avec un tableau

Code :

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

1
2
3
4
5
 
while(my @rows = $sth->fetchrow_array())  
{
    print $row[0];
}

Petit probleme avec DBI

SGBD Perl

Discussions similaires

Partager

Partager