programming-examples/perl/CGI/Sample Database Query.pl
2019-11-15 12:59:38 +01:00

65 lines
1.3 KiB
Perl

<HTML>
<HEAD>
<TITLE>Sample Database Query</TITLE>
</HEAD>
<BODY>
<STRONG>Querying an ODBC database.</STRONG>
<FORM METHOD = "POST" ACTION = "index.pl">
<INPUT TYPE = "TEXT" NAME = "QUERY" SIZE = 40 VALUE = "SELECT * FROM Authors"><BR><BR>
<INPUT TYPE = "SUBMIT" VALUE = "Send Query">
</FORM>
</BODY>
</HTML>
#!perl
use Win32::ODBC;
use CGI qw( :standard );
$queryString = param( "QUERY" );
$dataSourceName = "Products";
print header, start_html( "Search Results" );
if ( !( $data = new Win32::ODBC( $dataSourceName ) ) )
{
print "Error connecting to $dataSourceName: ";
print Win32::ODBC::Error();
exit;
}
if ( $data->Sql( $queryString ) )
{
print "SQL failed. Error: ", $data->Error();
$data->Close();
exit;
}
print "Search Results";
print "<TABLE>";
for ( $counter = 0; $data->FetchRow(); $counter++ )
{
%rowHash = $data->DataHash();
print <<End_Row;
<TR>
<TD>$rowHash{'ID'}</TD>
<TD>$rowHash{'FirstName'}</TD>
<TD>$rowHash{'LastName'}</TD>
<TD>$rowHash{'Phone'}</TD>
</TR>
End_Row
}
print <<End_Results;
</TABLE>
<BR>Your search yielded <B>$counter</B> results.<BR><BR>
<FONT SIZE = 2>
Please email comments to
<A href = "mailto:d\@d.com">Associates, Inc.</A>.
End_Results
print end_html;
$data->Close();