Mega Code Archive

 

Categories / Perl / Database

 

Use DBI to connect to a database

#!c:/perl/bin use DBI; $dbhandle = DBI->connect("dbi:ODBC:address"); $sqlstatement="SELECT firstname, lastname FROM employee"; print "Content-type: text/html \n\n"; $statementhandle = $dbhandle->prepare($sqlstatement); $statementhandle->execute || die "<br><br>Could not execute SQL statement ... <br>"; print "<br>Executed ...<br><br>"; while (@row=$statementhandle->fetchrow_array) {    print "@row <br>"; } $dbhandle->disconnect(); $statementhandle->finish();