ExcelWithOdbc控件的使用

浏览数：25 / 时间：2015年06月12日

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExcelWithOdbc, StdCtrls, DB, ADODB;

type
TForm1 = class(TForm)
    Button1: TButton;
    ExcelWithOdbc1: TExcelWithOdbc;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Add(‘SELECT TOP 100 * FROM T1‘);
ADOQuery1.Active := True;

with ExcelWithOdbc1 do
begin
    DataItems.Add;
    AutoGetFileName := true ;
    AutoOpen := True ;

    DataItems.Items[0].DataSet := adoquery1 ;
    DataItems.Items[0].OnlySelect := false ;
    DataItems.Items[0].SelectFields := false ;
    DataItems.Items[0].SheetName := ‘100条数据;

Execute;
end;
end;

end.

本文出自 “畅想天空” 博客，请务必保留此出处http://kinwar.blog.51cto.com/3723399/1615468

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

ExcelWithOdbc控件的使用