delphi动态连接Access数据库

1，新建一个窗口工程

2，添加“ADOConnection”组件图标

3，Form窗体，执行Onshow

5，加入一个Panel类控件

6，输入代码

procedure TForm1.FormShow(Sender: TObject);
begin
    // 动态连接Access数据库
    try
        Screen.Cursor := crSQLWait;
        ChDir(ExtractFilePath(Application.ExeName));
        ChDir('..');
        try //动态加载数据库
            ADOConnection1.Connected := False;
            ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OlEDB.4.0;Data Source=' + GetCurrentDir + '1dataceshi.mdb' + ';User ID=admin;Password=;Persist security Info=False';
            ADOConnection1.Connected := True;
            ADOConnection1.LoginPrompt := False;
            RzPanel1.Caption := '数据库已连接'; //状态栏控件statusPane
            Screen.Cursor := crDefault;
        except
            Screen.Cursor := crDefault;
            RzPanel1.Caption := '数据库未连接';
            MessageDlg('数据库连接失败，请确认！', mtError, [mbOK], 0);
        end;
        Screen.Cursor := crDefault;
    except
        MessageDlg('数据库连接失败，请确认！', mtError, [mbOK], 0);
    end;
end;

这里的数据库位置和工程在同一个位置。

7，运行测试