Using an access database with DBI and DBD-ODBC, I am having the
strangest problem, and I can't seem to solve it.
The table has three fields, named available_hours1, available_hours2
and available_hours3. When I retrieve the data, the contents of
available_hours1 shows up when I say to print available_hours2.
Below is my code, which I have combed over and over. I can't find the
problem. I was hoping better eyes and wiser minds could figure out
where my problem may be:
my $dbh = DBI->connect('dbi:ODBC:greene_resource_providers') || die
DBI::errstr;
my $sth = $dbh->prepare("SELECT name, nickname, address1,
address2, address3, city, state,
zipcode, telephone1, telephone2, telephone3, private,
tollfree1, tollfree2, hotline1, hotline2, fax,
contact_name, contact_title, director_name, director_title, email1,
email2,
website, available_hours1, available_hours2, available_hours3,
eligibility1, eligibility2, eligibility3, eligibility4, eligibility5,
eligibility6, service1, service2, service3, service4,
service5, service6, service7, service8, service9,
service10, service11, service12, service13, service14,
service15, service16, service17, service18, service19,
service20, service21, service22, service23, service24,
service25, fee_structure1, fee_structure2, appointment,
required_documentation,
funding_source, service_code, legal_code, speaker, volunteer_use,
volunteer_need, volunteer_description, handicap_code, last_update,
tax1,
tax2,
tax3, tax4, tax5, tax6, tax7, tax8, tax9, tax10, tax11,
tax12,
tax13, tax14, tax15, tax16, tax17, tax8, tax19, tax20,
tax21,
tax22, tax23, tax24, tax25
FROM resource_providers
WHERE sid=?
");
$sth->execute("$in{'sid'}");
while (($name, $nickname, $address1, $address2, $address3, $city,
$state,
$zipcode, $telephone1, $telephone2, $telephone3,
$private,
$tollfree1, $tollfree2, $hotline1, $hotline2, $fax,
$contact_name, $contact_title, $director_name,
$director_title, $email1,
$email2, $available_hours1, $available_hours2,
$available_hours3,
$eligibility1, $eligibility2, $eligibility3, $eligibility4,
$eligibility5,
$eligibility6, $service1, $service2, $service3, $service4,
$service5, $service6, $service7, $service8, $service9,
$service10, $service11, $service12, $service13,
$service14,
$service15, $service16, $service17, $service18,
$service19,
$service20, $service21, $service22, $service23,
$service24,
$service25, $fee_structure1, $fee_structure2,
$appointment, $required_documentation,
$funding_source, $service_code, $legal_code,
$speaker, $volunteer_use,
$volunteer_need, $volunteer_description,
$handicap_code, $last_update, $tax1,
$tax2, $tax3, $tax4, $tax5, $tax6, $tax7, $tax8, $tax9,
$tax10, $tax11,
$tax12, $tax13, $tax14, $tax15, $tax16, $tax17, $tax18,
$tax19, $tax20,
$tax21, $tax22, $tax23, $tax24, $tax25)=$sth-
>fetchrow_array) { ........ code truncated here
Brad Smith
