Delphi cxGrid连接Access数据库

一、添加控件：

ADOConnection、ADOQuery和DataSource；

二、连接Access数据库；

这里一般采用动态方式进行连接，工程文件放在了CodeDemo文件夹中，Access数据库放在了DATa X文件夹中，动态连接代码如下（动态加载皮肤的部分可忽略）：

 1 var
 2     I: Integer;
 3 begin
 4     ComboBox1.Text := '';
 5     try
 6         Screen.Cursor := crSQLWait;
 7         ChDir(ExtractFilePath(Application.ExeName));
 8         ChDir('..');
 9         SYS_DataXPath := GetCurrentDir + '\DataX\DataX.mdb';
10         SYS_SkinPath := GetCurrentDir + '\Skins';
11         SYS_TxtPath := GetCurrentDir + '\Txt';
12         try //动态加载数据库
13             MainForm.con_Main.Connected := False;
14             MainForm.con_Main.ConnectionString := 'Provider=Microsoft.Jet.OlEDB.4.0;Data Source=' +
15                 SYS_DataXPath + ';User ID=admin;Password=;Persist security Info=False';
16             MainForm.con_Main.Connected := True;
17             MainForm.con_Main.LoginPrompt := False;
18             Screen.Cursor := crDefault;
19         except
20             Screen.Cursor := crDefault;
21             MessageDlg('数据库连接失败，请确认！', mtError, [mbOK], 0);
22         end;
23         try //动态加载皮肤
24             sSkinManager1.Active := False;
25             sSkinManager1.SkinDirectory := SYS_SkinPath;
26             sSkinManager1.SkinName := 'Notes Sport.asz';
27             sSkinManager1.Active := True;
28             Screen.Cursor := crDefault;
29         except
30             Screen.Cursor := crDefault;
31             MessageDlg('皮肤加载失败，请确认！', mtError, [mbOK], 0);
32         end;
33         Screen.Cursor := crDefault;
34         intLeft := 301;
35         //初始化数组
36         for I := 1 to intLeft do
37             A[I] := I; //得到顺序的数组
38         c3.Click;
39     except
40         MessageDlg('皮肤加载失败，请确认！', mtError, [mbOK], 0);
41     end;
42 end;

View Code

三、绑定连接cxGrid;

绑定方法参考cxGrid连接Oracle数据库。

来源：https://www.cnblogs.com/jeremywucnblog/p/11397820.html

标签

access

Delphi

access数据库