Hello,
I was trying to create a simple perl program, where my domains where listed
followed by there DNS records.
But It loops once, and then ends with error DBD::mysql::st fetch failed:
fetch() without execute() at test.cgi line 61.
I thougt this was the easyest way to do so. But no.. Does anyone have any
experience with these kind of sub-statements?
$dbh = DBI->connect("DBI:mysql:database=$db_database;host=$db_host",
$db_user, $db_pw) ||
&db_error("Databaseverbinding niet gemaakt: $DBI::errstr");
$sql = "select domain from bind_dns_header";
$sth = $dbh->prepare($sql)|| &error("Kan het statement niet voorbereiden:
$dbh->errstr");
$sth->execute || &error("Fout bij het communiceren met de database:
$DBI::errstr");
$sth->bind_columns(\$domain);
while ($sth->fetch()) { # line 61
print "$domain with the following records<br> \n";
$sql2 = "select dnsrecord_id from bind_dns_item where domain =
'$domain'";
$sth = $dbh->prepare($sql2)|| &error("Kan het statement niet voorbereiden:
$dbh->errstr");
$sth->execute || &error("Fout bij het communiceren met de database:
$DBI::errstr");
$sth->bind_columns(\$dnsrecord_id);
while ($sth->fetch()) {
print "Record: $dnsrecord_id \n";
}
}
$sth->finish();
Regards,
Almar
---------------------------------------------------------------------
Before posting, please check:
http://www.mysql.com/manual.php (the manual)
http://lists.mysql.com/ (the list archive)
To request this thread, e-mail <[EMAIL PROTECTED]>
To unsubscribe, e-mail <[EMAIL PROTECTED]>
Trouble unsubscribing? Try: http://lists.mysql.com/php/unsubscribe.php
