Perl

updating fields in MS Access

Please support our Perl advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jan 2006

Posts: 237

Reputation: katharnakh is an unknown quantity at this point

Solved Threads: 33

katharnakh katharnakh is offline

Offline

Posting Whiz in Training

updating fields in MS Access

Feb 27th, 2007

hi,

I am having problem in updating tables in MS Access. The field which I
want to update is of DATE type.

here is the code..

#! C:\Perl\bin\perl.exe

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
use Win32::ODBC;
 
my $db = new Win32::ODBC('ServerStatistics');
 
$q="select distinct(build_date) from wdf_history";
$db->Sql($q);
while($db->FetchRow)
{
        $s = $db->Data();
        print $s;
 
}
 
$q = "select * from wdf_history where build_date='$s'";
 
while($db->FetchRow)
{
        $s = $db->Data();
        print $s;
 
}
 
$q="update wdf_history set build_date='2007-02-27' where
build_date='$s'";
$db->Sql($q);
 
$q = "select * from wdf_history where build_date='$s'";
 
while($db->FetchRow)
{
        $s = $db->Data();
        print $s;
 
}
use Win32::ODBC;

my $db = new Win32::ODBC('ServerStatistics');

$q="select distinct(build_date) from wdf_history";
$db->Sql($q);
while($db->FetchRow)
{
        $s = $db->Data();
        print $s;

}

$q = "select * from wdf_history where build_date='$s'";

while($db->FetchRow)
{
        $s = $db->Data();
        print $s;

}

$q="update wdf_history set build_date='2007-02-27' where
build_date='$s'";
$db->Sql($q);

$q = "select * from wdf_history where build_date='$s'";

while($db->FetchRow)
{
        $s = $db->Data();
        print $s;

}