The following still reports nil records (I know they are there -
honest!!).
TIA - Francesco
#!/usr/bin/perl -w
#
# test script to query an mysql database
#
use strict;
use DBI;
my ($sql, $dbh, $sth, $field1, $value1, $field2, $value2, @rows, $counter);
print "Enter the first fieldname (field1) : "; chomp ($field1 = <>);
print "enter the value for field one (value1) : "; chomp ($value1 = <>);
print "Enter the second fieldname (field2) : "; chomp ($field2 = <>);
print "enter the value for field two (value2) : "; chomp ($value2 = <>);
$dbh = DBI -> connect ("DBI:mysql:ami","fgs") || die $DBI::errstr;
$sql = qq{SELECT * FROM testami WHERE ? = ? and ? = ?};
$sth = $dbh -> prepare($sql);
$sth -> execute($field1, $value1, $field2, $value2);
$sth -> execute();
$counter = "0";
while ( @rows = $sth -> fetchrow_array()) {
$counter++;
print "@rows\n";
}
print "Number of records = $counter\n\n";
$dbh -> disconnect;
