VPF::ADO + Access без использования компонентов

Dmitry_177

Дата 21.5.2011, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 418
Регистрация: 22.9.2006

Репутация: нет
Всего: нет

Подскажите как мне работать с базой данных Access без использования компонентов?

Создаю БД:

Код


 var
    cat: OLEVariant;
...
 
  if not FileExists(PChar(ExtractFilePath(Application.ExeName)) + 'work.mdb') then
    begin
      cat := CreateOleObject('ADOX.Catalog');
      cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password="123";Data Source=' + PChar(ExtractFilePath(Application.ExeName)) + 'work.mdb');
    end;

файл создается все ОК, но как теперь открыть ее для создания таблиц в SQL-е и т.д.?

Данкинг

Дата 21.5.2011, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Открыть базу и таблицу можно так:

Код


procedure TForm1.BitBtn1Click(Sender: TObject);
var cn,rd:variant;
begin
cn:=CREATEoleOBJECT('adodb.connection');
cn.Open('Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\work.mdb;Persist Security Info=False');
rd:=CREATEoleOBJECT('adodb.recordset');
 rd.open('base',cn,1,1);
 ....
 cn:=unassigned;
 rd:=unassigned;
end;

Подробнее ищи по работе с adodb.recordset. В частности, это используется в VBA на Access'е.

Это сообщение отредактировал(а) Данкинг - 21.5.2011, 21:04

--------------------

There's nothing left but silent epitaphs.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »