Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > ADO + Access без использования компонентов

Автор: Dmitry_177 21.5.2011, 19:43

Подскажите как мне работать с базой данных 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

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

Код


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'е.