Delphi

一、添加控件：

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 + 'DataXDataX.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], 0);
        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], 0);
        end;
        Screen.Cursor := crDefault;
        intLeft := 301;
        //初始化数组
        for I := 1 to intLeft do
            A[I] := I; //得到顺序的数组
        c3.Click;
    except
        MessageDlg('皮肤加载失败，请确认！', mtError, [mbOK], 0);
    end;
end;

三、绑定连接cxGrid;

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

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