Использование технологий WWW для доступа к базам данных


Обработка файлов формата DBF - часть 2


противоположном случае.

Чтобы перейти на следующую запись есть метод go_next:

$database->go_next;

Эквивалентно команде skip 1, которая передвигает курсор на следующую запись.

Чтобы перейти на предыдущую запись есть метод go_prev:

$database->go_prev;

Эквивалентно команде skip -1, которая передвигает курсор на предыдущую запись.

Есть возможность осуществить поиск по заданному ключу:

$stat=$database->seek($keyvalue);

Эта команда устанавливает курсор на первую запись, соответствующую данному

ключу. Но в данном случае база данных должна быть открыта с соответствующим

индексом, в противоположном случае будет выдано сообщение об ошибке и исполнение

прекратиться. Возвращается значение, содержащее информацию о том, был ключ найден

или нет.

Чтобы узнать номер записи, на которой стоит курсор можно использовать следующую

команду:

$current_rec=$database->recno;

Метод bof возвращает значение true, если курсор находится в самом начале файла.

if ($database->bof) {

print " At the very top of the file \n";

}

Аналогично действует метод eof:

if ($database->eof) {

print " At the very end of the file \n";

}

Чтобы прочитать содержимое какого-либо поля записи можно поступить так:

print $database->get_field("NAME");

Возвращает строку с содержимым поля. Если данная запись помечена для удаления, то

использует псевдоимя поля _DELETED.

Чтобы прочитать значения полей записи в массив можно поступить так:

@fields = $database->get_record;

В массиве они будут располагаться в такой же последовательности, как и в базе

данных.

Для закрытия базы данных используется метод close_dbf.

$database->close_dbf;

Закрывает файл с базой данных, индексами и комментариями. В завершение приведем

небольшой пример программы, которая распечатывает статус базы данных и индексного

файла, а также дату последнего обновления и количество записей в базе данных.

#!/usr/bin/perl

use Xbase;

# подключение модуля

$database = new Xbase;

# создание объекта

$d = "/home/smit/employee.dbf";

# имя файла с базой

$i = "/home/smit/employee.cdx";

# имя индексного файла

$database->open_dbf($d,$i);

# открываем базу данных

$database->dbf_stat;

# печатаем статус и структуру

# базы данных

$database->idx_stat;

# печатаем статус и структуру

# индексов

@fields = $database->get_record;

print @fields,"\n";

# печатаем содержимое текущей записи

print $database->last_update, "\n";

# печатаем дату последнего обновления

$end = $database->lastrec;

print $end;

#печатаем номер последней записи

Полная спецификация языка Perl приводиться в Приложении к отчету.

[]

[]

[]




Начало  Назад  Вперед



Книжный магазин