经过一段时间的学习,知道了我原来的连接access数据库的方法是不怎么好的,原来的贴的地址:
http://bbs.bc-cn.net/bbs/dispbbs.asp?BoardID=9&ID=50560&replyID=&skin=1

因为在属性里直接设置数据库的连接,当文件路径改变时,程序会找不到数据库,下面是我新学到的用程序来连接数据库的方法

procedure TFormMain.FormCreate(Sender: TObject);
var
FPath: string;
begin
FPath := Trim(ExtractFilePath(Paramstr(0))) + 'HQS2006.mdb';// 获得程序所在路径 + 数据库名

//ADO的连接字符串
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FPath
+ ';User ID=Admin;Jet OLEDB:Database Password=0000;Persist Security Info=False';

ADOConnection1.LoginPrompt := False; // 不出现密码提示窗口
ADOConnection1.Open;

//用 ADOTable1连接到表
ADOTable1.Connection := ADOConnection1;
ADOTable1.TableName := 'LogFile';//表名
ADOTable1.Open;
end;

Password=0000是你设置的access数据库的密码

用这个方法可以连接到有密码的数据库,而且数据库的路径问题也得到了解决

[此贴子已经被作者于2006-5-5 10:26:14编辑过]