Delphi ADO 连接Excel数据源

佛系卡卡

于 2021-02-07 17:34:29 发布

阅读量1.3k

点赞数

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/solo_1108/article/details/113744709

版权

将一个Excel表格当作是一个数据库，利用ADO组件实现获取Excel中的数据显示到界面中，代码如下

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids,ComObj;

type
  TForm1 = class(TForm)
    con1: TADOConnection;
    dbgrd1: TDBGrid;
    ds1: TDataSource;
    qry1: TADOQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Excel: OLEVariant;
  ExcelVersion: string;
  filename,sheet1: string;
  rs,rs1,rs2: _Recordset  ;
begin
  filename:='C:\Users\liangcc34589\Desktop\测试文件夹\导出学生信息.xls';
  sheet1:= 'Sheet1';
  //Excel2003及早期的版本
  con1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                          filename+';Extended Properties&#