18 lines
451 B
Perl
18 lines
451 B
Perl
|
#!c:/perl/bin
|
||
|
|
|
||
|
|
use DBI;
|
||
|
|
|
||
|
|
$dbhandlle = DBI->connect("dbi:ODBC:address");
|
||
|
|
|
||
|
|
$sqlstatement="INSERT INTO emp (firstname, lastname, address)VALUES ('A', 'T', 'I')";
|
||
|
|
|
||
|
|
print "Content-type: text/html \n\n";
|
||
|
|
|
||
|
|
$statementhandle = $dbhandlle->prepare($sqlstatement);
|
||
|
|
|
||
|
|
$statementhandle->execute || die "<br><br>Could not execute SQL statement ... <br>";
|
||
|
|
print "<br>Executed ...<br><br>";
|
||
|
|
|
||
|
|
$dbhandlleandle->disconnect();
|
||
|
|
$statementhandle->finish();
|