Подключение к MSSQL Server 2000 с использованием ADO. Редактирование таблицы с иерархической структу
Заинтересовал CursorAdapter и ADO, впрочем как и MSSQL Server. Данный пример показывает, как можно использовать ADO-подключение для редактирования данных. Кстати, при построении CursorAdapter-a я воспользовался стандартным builder-ом, в последствии подправив немного Init (установил маленькие TimeOut-ы). В форме для авторизации используется класс для чтения/записи в INI файлы, взятый из примеров VFP8, т.е. в последствии Вам нужно будет набирать только пароль.
Транзакции можно и не использовать, а проверять TABLEUPDATE(.t.)=.t., однако вставку и удаление я все таки провожу в начатой
Thisform.browser_de.ent_structure.DataSource.ActiveConnection.Be
ginTrans()
insert...
IF TABLEUPDATE(.t.)
Thisform.browser_de.ent_structure.DataSource.ActiveConnection.CommitTrans()
...
транзакции.
Подключение к MSSQL Server 2000 с использованием ADO. Редактирование таблицы с иерархической
структурой с использованием ActiveX TreeView, поиск, вставка, рекурсивное удаление и др. VFP8
SP1
1). Внимание! Вам потребуется mscomctl.ocx для выполнения проекта (содержит ActiveX TreeView
control и ImageList control). Я использовал 6-ые версии. Если будет вылетать ошибка, попробуйте
скопировать mscomctl.ocx из \SYSTEM32\ в SQL_ADO_TEST\ActiveX\ и зарегистрировать его там при
помощи regsvr32 (Win2k - XP)
2). На MSSQL Server 2000 создайте любую базу. Создайте в ней таблицу с именем ent_structure и с
3-мя полями:
nkey numeric 9
nparent numeric 9
name char 254
создайте уникальный индекс (constraint) по полю nkey (значения в поле не повторяются)
3)Занесите в таблицу 2 строки:
nkey=1, nparent=0, name=СЛУЖЕБНАЯ ПАПКА
nkey=2, nparent=0, name=ПРЕДПРИЯТИЕ
4) При необходимости создайте Юзера с правами записи/чтения на базу
5) В настройках ODBC создайте системный DSN подключения к созданной БД.
6) Открывайте проект и запускайте autorization_form.