ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Pavlov                         2:5012/31      11 May 2001  10:54:07
 To : All
 Subject : DBD::InterBase
 -------------------------------------------------------------------------------- 
 

 При запуске вот такого текста 
  $dbh=DBI->connect("dbi:InterBase:db=$dbname","user","pwd")||die DBI::errstr;
  $sth=$dbh->prepare("select idheading,name from heading where idupheading=0");
 
  $sth->execute;
 
  print "<center>";
  while (@row=$sth->fetchrow_array){
   print "<h3>$row[1]</h3>";
   $hand=$db->prepare("select idheading,name from heading where idupheading=?");
   $hand->execute($row[0]);
   print "<h5>";
   while (@row1=$hand->fetchrow_array){
    print "| $row1[1] |";
   };
   $hand->finish;
   print "</h5>";
  };
 
  $sth->finish;
 
  print "</center>";
 
  $dbh->disconnect||die DBI::errstr;
 
 падает с ошибкой
 
 DBD::InterBase::st fetchrow_array failed: Unknown cursor
 -Dynamic SQL Error
 -SQL error code = -504
 -Cursor unknown
 DBD::InterBase::st finish failed: The cursor identified in a FETCH or CLOSE
 statement is not open.
 -Dynamic SQL Error
 -SQL error code = -501
 -Attempt to reclose a closed cursor
 DBI::db=HASH(0x8188fb8)->disconnect invalidates 1 active statement
 handle (either destroy statement handles or call finish on them before
 disconnecting) at /home/httpd/cgi-bin/predselect.pl line 39.
 
 Для того что бы работало, приходится внутренний select вешать на другой
 коннект, имхо это кривовато. Можно это обойти другим способом?
 
 ЗЫ Заранее сенкс.
 -- 
 np: Гарик Сукачев - Это был ангел
 Vadim
 --- tin/1.5.8-20010221 ("Blue Water") (UNIX) (Linux/2.2.17 (i686))
  * Origin: ... пальцы мои параллельны рёбрам ... (с)Коммунизм (2:5012/31)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор