Dbeng50 -n<имя сервера> <имяБД>.

При запущенном сервере БД можно переходить к настройке БД с использованием программы Sql Central.

С помощью пункта меню Tools или панели инструментов создать соединение с БД - указав в качестве имени пользователя dba, пароль sql. Для продолжения работы создадим несколько таблиц пользуясь средствами Sql central(Add table внутри папки Tables) структуру таблиц определите самостоятельно.

После создания таблиц, для справочников необходимо определить первичные ключи, а для таблицы Test_lb внешние ключи для столбцов fam, name_, sndname, street.

Основные функции FOXPRO
используемые для доступа к БД через ОDBС.

SQLCONNECT(<имя источн.данных>, <имя пользователя>,<Пароль>)

Возращаемое значение:

SQLCONNECT( ) возвращает положительное число большее 0, если соединение с БД установлено. Вы должны сохранить этот указатель в переменной и использовать его в последующих запросах. SQLCONNECT( ) возращает –1 если соединение не может быть установлено.

Пример:

User_Name=‘dba’

User_Password=‘sql’

E1=SQLCONNECT('SQL Anywhere 5.0 Sample',User_Name,User_Password)

SQLEXEC(<номер соединения>, <Sql запрос>, <имя результирующего набора данных(курсора)>)

Возращаемое значение:

SQLEXEC( ) возвращает число результирующих наборов данных если их больше одного. SQLEXEC( ) возвращает 0 если запрос еще выполняется, возвращает 1 когда завешен. SQLEXEC( ) возвращает –1 если в процессе выполнения произошла ошибка.

Аргументы:

<Номер соединения> Указатель на источник данных возвращаемый SQLCONNECT( ).

<SQL запрос> Оператор SQL который передается серверу БД.

<Имя Курсора> Указыаетe имя курсора Visual FoxPro в который записываются результаты запроса. Если имя курсора не указано, Visual FoxPro использует имя по умолчанию SQLRESULT.

=SQLDISCONNECT(<номер соединения>)

Разрывает соединение с источником данных. Вызов этой функции должен завешать сеанс работы программы.

Пример:

E1=SQLCONNECT('SQL Anywhere 5.0 Sample',User_Name,User_Password)

If e1 > 0

b1=SQLEXEC(e1,"select * from dba.my_first_table ",'my_curs')

b1=SQLEXEC(e1,"UPDATE dba.my_first_table SET street=‘Тверская’")

Else

MessageBox('Ошибка соединения с базой данных !',48,'Ошибка входа в систему')

EndIf

rez=SQLDISCONNECT(e1)

Последовательность выполнения задания:

-создать БД с использованием dbinit ;

-настроить источник данных ODBC ;

-Создать таблицы используя Sql Central;

-заполнить таблицы соответствующей информацией командами INSERT и UPDATE из FOXPRO.

-Выполнить несколько запросов Select выбирающих данные из созданных таблиц.

-Отчет должен содержать описание структуры БД, запросы добавления и изменения записей в БД, и операторы выборки данных.

Задание по дополнительному совершенствованию созданной программы:

- модифицировать код созданной в лабораторной работе №1 программы для работы в архитектуре клиент - сервер

- создать новую процедуру поиска - по схеме “поле - условие - значение”.

- создать несколько видов отчетов по результатам выборки.