简单的PERL－ADO例子

简单的PERL－ADO例子

use Win32::ODBC;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';

...

my $Conn = Win32::OLE->new('ADODB.Connection'); # creates a connection object

$Conn->Open("DSN=CA_mdb;UID=;PWD=;DBNAME=beca.mdb"); # opens the database connection

if ($updateflag == 0){
$cmd = "INSERT INTO user_data (email,key,csr) VALUES ('$user','$key','$csr');";
}
else{
$cmd = "UPDATE user_data SET key='$key',csr='$csr' WHERE (email = '$user');";
}

......

my $rc = $Conn->Execute("$cmd");
if (Win32::OLE->LastError()){
}
else{
print $user,"success!",br,br;
}

$Conn->Close;