I am trying to update an Access database table field with a increment
number.  I cant seem to place the update piece in the right place.
Is this the right path to take?

Snip
#!/usr/bin/perl

use Win32::ODBC;

$DSN = "KIDSN";
$Dir = "E:/kimcon/conv/";
$DBase = "Ki720.mdb";
$Driver = "Microsoft Access Driver (*.mdb)";

 Win32::ODBC::ConfigDSN(ODBC_ADD_SYS_DSN,
                                $Driver,
                                "DSN=$DSN",
                                "Description=KI DSN",
                                "DBQ=$Dir\\$DBase",
                                "DEFAULTDIR=$Dir",
                                "UID=" );
  
$db = new Win32::ODBC( "KIDSN" );
 
$out="e:/kimcon/conv/cntrl.txt";
open OUT, ">$out" or die "cant open it :$!";
if ( $db->Sql( "SELECT * FROM HISTHDR" ))
{
print "Error" . $db->Error() . "\n";
}
else
{

while($db->FetchRow() )

{
 my(%Data) = $db->DataHash();
  $iRow++;
 print OUT "$Data{INVOICE_NUMBER}", ";", "$Data{CUSTOMER_NUMBER}", ";",
$iRow, ";";
 print OUT "\n";
}
}

$db->Close();


Instead of writing t a file (OUT), I want to just update the field called
$Data{ESTIMATE_NUMBER}

TIA

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to