The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

<html>
<head>
<title>Embperl Examples - DBI access using Loops</title>
</head>
<body background="../images/jazzbkgd.gif">

<h1>Embperl Examples - DBI access using Loops</h1>
<hr><b>NOTE:</b><br>
You must set the database and table to something which exists on your system<br>
Maybe it's necessary to insert a PerlModule DBI into your srm.conf to get this working<br>

<hr>

[-

$DSN   = 'dbi:mysql:test' ;
$table = 'dbixrs1' ;

use DBI ;

# connect to database
 $dbh = DBI->connect($DSN) or die "Cannot connect to '$DSN'" ;

# prepare the sql select
 $sth = $dbh -> prepare ("SELECT * from $table")  or die "Cannot SELECT from '$table'" ;

# excute the query
 $sth -> execute  or die "Cannot execute SELECT from '$table'";

# get the fieldnames for the heading in $head
 $head = $sth -> {NAME} ;

-]

<table border=1>
	
	<tr>
	[$ foreach $h @$head $]
		<th>[+ $h +]</th>
	[$ endforeach $]
	</tr>

	[$ while $dat = $sth -> fetchrow_arrayref $]
		<tr>
			[$ foreach $v @$dat $]
				<td>[+ $v +]</td>
			[$ endforeach $]	
		</tr>
	[$ endwhile $]
</table>

<p><hr>

<small>HTML::Embperl (c) 1997-1998 G.Richter</small>


</body>
</html>