Database Perl

  1. Home
  2. Perl
  3. Database
  4. Update record with OLE connection
#!c:/perl/bin
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
$table = "addresstable";
$conn = Win32::OLE->new("ADODB.Connection");
$rs   = Win32::OLE->new("ADODB.Recordset");
$conn->Open("address");
$conn->Execute("UPDATE $table SET address='A' WHERE firstname='A'");
print "Content-type: text/html\n\n";
print "Record Updated ...";
$rs->Close;
$conn->Close;