DAOを使う

Delphi3からは BDEが Accessをサポートしたのでそっちを使えば簡単なんですが Delphi2.0の Desktopエディションは ODBCを使えないので Accessのデータベースを読むことが出来ません。しかし DAOの環境がある場合は OLEオートメーションを利用して DAOの機能を使うことが可能です。DAOのトップレベルのオブジェクトを生成できれば後は普通に DAOを使うのと同じです。(DAO3032.DLLが必要です。)

※Accessが一度もインストールされていない環境では動作しません。
※DAOに関しての詳細は Delphiの Helpme.txt をご覧ください。

■ DAO の使用例 
var
  objDBEngine  :  variant;
  objWorkspace :  variant;
  objDatabase  :  variant;
  objRecordset :  variant;
  strSQL       :  string;
begin
  objDBEngine    :=     CreateOleObject('DAO.DBEngine');
  objWorkspace   :=     objDBEngine.Workspaces[0];
  objDatabase    :=     objWorkspace.OpenDatabase('c:\sample.mdb',False, False); 
  strSQL         :=     'SELECT * FROM tbl_sample WHERE code = 0';
  objRecordset   :=     objDatabase.OpenRecoredset(strSQL);
  objRecordset.MoveFirst;
  while  not  objRecordset.EOF   do
  begin
    ListBox1.Add.Item(objRecordset.Fields['NAME'].Value;
    objRecordset.MoveNext;
  end;
  objRecordset.Close;
  objDatabase.Close;
end.