访问ACCESS数据为何如此慢？(50分)

to lighttop:
1。同意你的看法
2、我所说的问题是我在ACCESS建库时已经建了相关表的外键关系，在这种情况下，DA仍然
无法自动的添加关键字段，我自己做了一个，它自带的例程也都一样，不行。
3、我用了一下DA，发布时需要在数据库文件路径的设定上要下点功夫，做一个文件拾取对
话框，以便在发布后重新定义数据库文件位置。

..

谢谢各位，给分了！
DA的路径指定是一个不好的地方，不方便发布，我加了一段东东大家一起讨论，欢迎大家
通过EMAIL和我交流：）特别是lighttop，希望能和你交流：）
procedure TDM.DataModuleCreate(Sender: TObject);
begin
database.Connected:=False;
database.DatabaseName:='';
database.DatabaseName:=extractfilepath(paramstr(0))+'data.mdb';
database.Connected:=True;;
tProducts.Active:=True;
end;

谢谢oceanwave给分：）

Diamond Access 中自动适应不同版本的DAO(如OFFICE 97与 OFFICE 2000 中的DAO)
注意在编译时，应将数据库控件的Connected 属性置FALSE 。
============================================================================
procedure TDailydata.DataModuleCreate(Sender: TObject);
begin
DailyDB.Close;
DailyDB.DatabaseName := ExtractFilePath(Application.ExeName) + 'daily.mdb';
try
DailyDB.DAOVersion := Dao36;
DailyDB.Open ;
except
try
DailyDB.DAOVersion := Dao35;
DailyDB.Open ;
except
MessageDlg('找不到数据库文件或没有数据库引擎。程序将终止运行。'+#13+#10+'请检查在程序目录下是否有data.mdb文件。', mtError, [mbOK], 0);
Application.Terminate ;
end;
end;
end;