DBI/PERL Tutorial over the Web

Click to go to the PREVIOUS page. Click to go to the INDEX page. Click to go to the NEXT page.

SLIDE #8 DISPLAY TABLE RECORDS


In this eighth slide, we display the table records.

1. DISPLAY TABLE RECORDS:

#Display Table records
        while (@row=$sth->fetchrow_array)
        {
                print "\n<tr>";
                print "\n<td>$row[0]<td>";
                print "\n<td>$row[1]<td>";
                print "\n<td>$row[2]<td>";
                print "\n<td>$row[3]<td>";
                print "\n<tr>";
        }
        print "\n<table>";

2. FORM DESCRIPTION:

The first and second lines open a loop, assigning to array @row the values of 
the next record.

The third line opens a new row of data,

The fourth, fifth, sixth and seventh lines display each data value

The eithth line closes the row of data

The nineth line closes the loop.

The tenth line closes the table.

The fifth, sixth, seven and eighth lines display the table headers

The nineth line closes the table row of headers.


© Copyright 2002 International Customized Software Co.