Базы данных. Пономарев А.А. - 61 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

$sth = $dbh->prepare($query);
$sth->execute();
$cols=$sth->{NUM_OF_FIELDS};
#Формирование таблицы результатов и наименования столбцов
print "<table width=70% align=center cellspacing=0 cellpadding=1
border=1>";
print "<tr valign=middle align=center>";
@fieldname=@{ $sth->{NAME}};
for($i=0;$i<$cols;$i++)
{
print "<td><b>$fieldname[$i]</b></td>\n";
}
print "</tr>";
#Заполняется содержимое таблицы
while (my $ref=$sth->fetchrow_arrayref())
{
print "<tr align=center>";
for($i=0;$i<$cols;$i++)
{
print "<td>",$ref->[$i],"</td>";
}
print "<tr>\n";
}
print "</table>";
#Отключение от базы
$rc = $sth->finish;
$rc = $dbh->disconnect;
Формирование ниспадающего списка
print "<SELECT name=column>\n";
# заполняем список таблиц
$sth = $dbh->prepare("show tables");
$sth->execute;
while (@line = $sth->fetchrow_array()) {
print " <OPTION>$line[0]</OPTION>\n";
}
$sth->finish;
print "</P>\n";
Файл mysql.pl.
В данном файле содержатся данные, необходимые для подключения к
базе данных. Вынесение их в отдельный файл позволяет при смене каких-
либо параметров подключения (например, смене пароля или имени базы
данных) сделать изменение только в одном файле:
#!/usr/local/perl/bin/perl
# Имя пользователя БД
61

Страницы