Delphi - cxGrid连接Access数据库

一、添加控件：

ADOConnection、ADOQuery和DataSource；

二、连接Access数据库；

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

 var
     I: Integer;
 begin
     ComboBox1.Text := '';
     try
         Screen.Cursor := crSQLWait;
         ChDir(ExtractFilePath(Application.ExeName));
         ChDir('..');
         SYS_DataXPath := GetCurrentDir + '\DataX\DataX.mdb';
         SYS_SkinPath := GetCurrentDir + '\Skins';
         SYS_TxtPath := GetCurrentDir + '\Txt';
         try //动态加载数据库
             MainForm.con_Main.Connected := False;
             MainForm.con_Main.ConnectionString := 'Provider=Microsoft.Jet.OlEDB.4.0;Data Source=' +
                 SYS_DataXPath + ';User ID=admin;Password=;Persist security Info=False';
             MainForm.con_Main.Connected := True;
             MainForm.con_Main.LoginPrompt := False;
             Screen.Cursor := crDefault;
         except
             Screen.Cursor := crDefault;
             MessageDlg('数据库连接失败，请确认！', mtError, [mbOK], );
         end;
         try //动态加载皮肤
             sSkinManager1.Active := False;
             sSkinManager1.SkinDirectory := SYS_SkinPath;
             sSkinManager1.SkinName := 'Notes Sport.asz';
             sSkinManager1.Active := True;
             Screen.Cursor := crDefault;
         except
             Screen.Cursor := crDefault;
             MessageDlg('皮肤加载失败，请确认！', mtError, [mbOK], );
         end;
         Screen.Cursor := crDefault;
         intLeft := ;
         //初始化数组
         for I :=  to intLeft do
             A[I] := I; //得到顺序的数组
         c3.Click;
     except
         MessageDlg('皮肤加载失败，请确认！', mtError, [mbOK], );
     end;
 end;

三、绑定连接cxGrid;

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

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。