Need help pulling data from DB (Perl DBI)

[ChaosSlayerZ]

I am pretty sure DBI is connecting but not pulling anything from DB could anyone take a look at this?



sub EVENT_SAY

{

if ($text =~/read/i)
{

### Read from DB
#if(!$connect){ $connect = plugin::LoadMysql(); }

$connect = plugin::LoadMysql();
$query = "SELECT
data_buckets.key
data_buckets.value
FROM
peq.data_buckets";
$query_handle = $connect->prepare($query);
$query_handle->execute();

my $key_name;
my $key_value;

while(($key_name,$key_value) = $query_handle->fetchrow())
{
quest::say(" babling $key_name,$key_value");
}


}
}



thank you!

[NatedogEZ]

Try this

sub EVENT_SAY {
if ($text =~/read/i) {
$connect = plugin::LoadMysql();
$query = "SELECT key, value FROM data_buckets";
$query_handle = $connect->prepare($query);
$query_handle->execute();

while(@row = $query_handle->fetchrow_array()) {
quest::say(" babling $row[0],$row[1]");
}
}
}

[ChaosSlayerZ]

Thanks, I actually got it working yesterday thanks to TurmoilToad - he spotted missing ( ; ) in the query line it needs to be:

$query = "SELECT key, value FROM data_buckets;";


But I will utilize this part from you =)

while(@row = $query_handle->fetchrow_array()) {
quest::say(" babling $row[0],$row[1]");

[NatedogEZ]

Well the original post is also missing a "," between data_buckets.key data_buckets.value

Also you don't need to put ";" at the end in DBI :P