Опыт использования ADO для доступа к базам данных форматов MS Access, xBase и Paradox

Delphi , Базы данных , ADO

Оформил: DeeCo

Автор: Иванов Денис Михайлович

1. Вышел MS Access 2000. BDE отказывается работать с этим форматом. Как мне удалось найти ответ после долгих поисков на сайте Inprise - Inprise не знает как производить коннект к этому формату. Цитата: 'Для доступа к данным MS Access мы используем DAO 2.5, который не может работать с форматом MS Access 2000. Если Вам необходим доступ к БД формата MS Access 2000, используйте, пожалуйста, компоненты ADO Delphi 5. По нашей (возможно неверной) информации причина здесь в отсутствии официальной документации от Microsoft.
2. 2. Была найдена интересная особенность поведения BLOB потоков под управлением Windows NT 4. Допустим, нам необходим доступ к BLOB полям таблиц в БД формата MS Access 97. Как произвести подключение через BDE к MS Access 97 я говорить не буду, т.к. многие знают, а кто не знает, тот легко найдет эту информацию. Итак, подключение произведено. Отлично. Вот фрагмент программы:

   var
     AStream: TBLOBStream;
     Data: Integer;
   
   begin
     // Открываем таблицу (обычный TTable)
     ATable.Open;
     // Создаем поток.
     AStream := TBLOBStream(ATable.CreateBLOBStream(ATable.FieldByName('Поле')));
     // Что-либо читаем из него.
     AStream.Read(Data, SizeOf(Data));
     // Освобождаем поток и закрываем таблицу.
     AStream.Free;
     ATable.Close;
   end;

   Казалось бы - абсолютно тривиальный код. НО! Строка, где производится чтение из потока, вызывает исключительную ситуацию - 'External error - EEFFACE'. И в исходных текстах VCL от Delphi 5 мы находим потрясающее объяснение - это, оказывается, 'C++ Exception'. Интересно, а при чем тут C++? Единственный ответ, какой я знаю, - Delphi написана на C++.
   Плюс ко всему, если вы запускаете эту программу из-под Delphi - ошибка не возникает, а если запускаете ее прямо в Windows - ошибка будет непременно. Я дошел в своих поисках до вызовов прямых вызовов BDE API - вот там-то ошибка и возникает, так что я думаю тут очередная ошибка BDE, хотя я использовал на тот момент самую последнюю версию с сайта Inprise - BDE 5.11.
   Так что, господа, если Вы используете нечто подобное в своих программах, то знайте, что под Windows NT 4.0/Windows 2000 Ваши программы работать не будут. Самое интересное, что компоненты из библиотеки VCL, которые используют подобный метод для получения данных (к примеру, TDBRichEdit) тоже не работают!

- Учитель, почему ты обманул меня? Ты сказал, что Вейдер предал и убил моего отца, а теперь оказалось, что он и есть мой отец!
- Твой отец… Его соблазнила темная сторона силы. Он больше не был Анекином Скайукером и стал Дартом Вейдером. Поэтому хороший человек, который был твоим отцом, был уничтожен. Так что, то, что я тебе сказал, было правдой… с определенной точки зрения…
- С определенной точки зрения?
- Люк… ты вот увидишь сам… что очень многие истины зависят от нашей точки зрения.
(Звездные войны. Эпизод 6.)

• Object_ID Integer - идентификатор объекта на карте
• Object_Description Text (50) - описание объекта на карте

Что здесь интересного? А то, что содержимое Internal_ID для всех этих записей равно нулю, хотя это автоинкрементное поле! И Table.Refresh здесь не помогает! Только закрытие и последующее открытие таблицы приводит к тому, что мы видим то, что и ожидалось.

'Recordset.Bookmark: Устанавливает или возвращает закладку, которая однозначно определяет текущую запись в Recordset. При создании или открытии объекта Recordset каждая из его записей получает уникальную закладку. Для того чтобы запомнить положение текущей записи, следует присвоить текущее значение свойства Bookmark переменной. Для быстрого возвращения к сохраненному в переменной указателю текущей записи в любое время после перехода на другую запись следует указать в значении свойства Bookmark объекта Recordset значение этой переменной'.

{'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;
Extended Properties = dBase 5.0;
Mode = Read|Write|Share Deny None;
Persist Security Info = True';}

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

CREATE INDEX имя_индекса on название_таблицы(название_поля)with PRIMARY.
  ALTER TABLE название_таблицы ADD CONSTRAINT имя_ограничения PRIMARY
    KEY(название_поля)

CREATE INDEX My_Index ON ExpTable (InternalID) WITH PRIMARY

CREATE INDEX ExpTable ON ExpTable (InternalID) WITH PRIMARY

1. Для того, чтобы Вы имели возможность производить действия по добавлению, удалению записей или редактированию данных в таблице, таблица должна иметь первичный ключ.
2. Первичный ключ должен быть определен для первых 'n' полей таблицы.
3. Вы не можете создавать для таблицы индексы, если для нее не определен первичный ключ.
4. Первый создаваемый для таблицы уникальный индекс будет создан как первичный ключ.
5. Первичный ключ может быть создан для таблицы только в том случае, если в ней нет ни одной записи.
6. Действия по добавлению или удаления полей в таблице должны быть произведены до того, как для нее создан первичный ключ.

SELECT поле_1[, поле_2[, ...]]INTO новаяТаблица[in внешняяБазаДанных]
FROM источник

SELECT * INTO[TestTable.DB] in 'D:\' FROM SourceTable

Нет, очередная ошибка. Вот, что мы видим.

SELECT * INTO[TestTable] in 'D:\ TestTable.DB' FROM SourceTable

Получим очередное сообщение об ошибке.

Ага, стало быть, файл для экспорта должен уже существовать? Ладно, не проблема, давайте создадим его и попробуем еще раз.

SELECT * INTO[Paradox 7. x; DATABASE = D: \]. [TestTable#0DB]FROMSourceTable

1. Материалы Королевства Delphi.
2. Справочные файлы Delphi 4 и Delphi 5.
3. Исходные коды VCL Delphi 4 и Delphi 5.
4. MS ADO SDK и примеры MS ADO SDK.
5. MS MSDN.
6. А.Я. Архангельский 'Язык SQL в Delphi 5'.

Опыт использования ADO для доступа к базам данных форматов MS Access, xBase и Paradox В статье автор делится своим опытом использования ActiveX Data Objects (ADO) для доступа к базам данных форматов MS Access, xBase и P

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ADO ::