Delete records in a database with OLE connection : OLE ADO « Database « Perl

1. Perl
2. Database
3. OLE ADO

Delete records in a database with OLE connection

   

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");

print "Content-type: text/html\n\n";

$conn->Open("address");

$conn->Execute("DELETE * FROM $table WHERE firstname='A'");

print "Record Deleted ...";

$rs->Close;
$conn->Close;

   
    
    
  

Related examples in the same category