Delphi编程将数据库数据快速导入Excel

转载 2006年05月20日 23:54:00

在开发数据库应用程序中,经常要将数据集中的数据导出来,放到Excel文件中,利用EXCEL强大的编辑功能,对数据作进一步的加工处理

 

开发数据库应用程序中,经常要将类型相同的数据导出来,放到Excel文件中,利用Excel强大的编辑功能,对数据作进一步的加工处理。这有许多的方法,我们可以使用OLE技术,在Delphi中创建一个自动化对象,通过该对象来传送数据。也可以使用ADO,通过与Excel数据存储建立连接,使用ADO这种独立于数据库后端的技术来导出数据集的数据。

  可这两种技术都有一个共同的缺点,那就是慢,数据量少还好,用户不会有太多的感觉,可一旦数据量大,比如,超过1千条,速度就让人难以忍受了,那么有没有更好的办法,既可以快速地导出数据,又不用安装附加的软件。也许好多人都想到了剪贴板的方式,这种方式速度是快,可也有不好的一面,那就是数据量大占用内存也大,并且在Excel中调用PASTE方法时,需要锁定输入,这使用起来,就有点不方便了

  这里我为大家介始一种比较好的方法,使用文件流的方式,通过TfileStream直接写入Excel文件。我写了一个函数,通过它可将数据集中的数据直接导入到Excel文件中。我测试了一下,1M的数据,不到十秒就完成了。附源程序

  首先在你的程序中定义以下几个数组:

arXlsBegin: array[0..5] of Word = ($809, 8, 0, $10, 0, 0);

arXlsEnd: array[0..1] of Word = ($0A, 00);

arXlsString: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);

arXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0);

arXlsInteger: array[0..4] of Word = ($27E, 10, 0, 0, 0);

arXlsBlank: array[0..4] of Word = ($201, 6, 0, 0, $17);

  接着调用下面的函数。

Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet);
var
 i, j: integer;
 Col, row: word;
 ABookMark: TBookMark;
 aFileStream: TFileStream;
 procedure incColRow; //增加行列号
begin
 if Col = ADataSet.FieldCount - 1 then
 begin
  Inc(Row);
  Col :=0;
 end
 else
  Inc(Col);
 end;

procedure WriteStringCell(AValue: string);//写字符串数据
var
 L: Word;
begin
 L := Length(AValue);
 arXlsString[1] := 8 + L;
 arXlsString[2] := Row;
 arXlsString[3] := Col;
 arXlsString[5] := L;
 aFileStream.WriteBuffer(arXlsString, SizeOf(arXlsString));
 aFileStream.WriteBuffer(Pointer(AValue)^, L);
 IncColRow;
end;

procedure WriteIntegerCell(AValue: integer);//写整数
var
 V: Integer;
begin
 arXlsInteger[2] := Row;
 arXlsInteger[3] := Col;
 aFileStream.WriteBuffer(arXlsInteger, SizeOf(arXlsInteger));
 V := (AValue shl 2) or 2;
 aFileStream.WriteBuffer(V, 4);
 IncColRow;
end;

procedure WriteFloatCell(AValue: double);//写浮点数
begin
 arXlsNumber[2] := Row;
 arXlsNumber[3] := Col;
 aFileStream.WriteBuffer(arXlsNumber, SizeOf(arXlsNumber));
 aFileStream.WriteBuffer(AValue, 8);
 IncColRow;
end;

begin
if FileExists(FileName) then DeleteFile(FileName); //文件存在,先删除
 aFileStream := TFileStream.Create(FileName, fmCreate);
 Try
  //写文件头
  aFileStream.WriteBuffer(arXlsBegin, SizeOf(arXlsBegin));
  //写列头
  Col := 0; Row := 0;
  if bWriteTitle then
  begin
   for i := 0 to aDataSet.FieldCount - 1 do
    WriteStringCell(aDataSet.Fields[i].FieldName);
   end;
   //写数据集中的数据
   aDataSet.DisableControls;
   ABookMark := aDataSet.GetBookmark;
   aDataSet.First;
   while not aDataSet.Eof do
   begin
    for i := 0 to aDataSet.FieldCount - 1 do
     case ADataSet.Fields[i].DataType of
      ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes:
      WriteIntegerCell(aDataSet.Fields[i].AsInteger);
      ftFloat, ftCurrency, ftBCD:
      WriteFloatCell(aDataSet.Fields[i].AsFloat)
     else
      WriteStringCell(aDataSet.Fields[i].AsString);
     end;
     aDataSet.Next;
    end;
    //写文件尾
    AFileStream.WriteBuffer(arXlsEnd, SizeOf(arXlsEnd));
    if ADataSet.BookmarkValid(ABookMark) then aDataSet.GotoBookmark(ABookMark);
    Finally
     AFileStream.Free;
    ADataSet.EnableControls;
   end;
 end;

  以上程序,在DELPHI6中通过测试!

Delphi编程将数据库数据用流快速导入Excel

      在开发数据库应用程序中, 经常要将类型相同的数据导出来,放到Excel文件中,利用Excel强大的编辑功能,对数据作进一步的加工处理。这有许多的方法,我们可以使用OLE技 术,在Delp...
  • lee576
  • lee576
  • 2008年02月22日 11:06
  • 1680

Delphi Excel导入 的通用程序

Delphi Excel导入 的通用程序 . 分类: delphi 2012-09-24 18:20 257人阅读 评论(0) 收藏 举报  exceldelphiinteger数据库c步骤: ...
  • wozengcong
  • wozengcong
  • 2014年08月30日 09:49
  • 1549

(Delphi)Excel的快速导入

//怎样可以提高EXCEL的导出速度?uses ADODB,excel97,adoint;function TForm1.ExportToExcel: Boolean;var  xlApp,xlBoo...
  • LuckyJan
  • LuckyJan
  • 2003年06月13日 12:01
  • 3758

多种方法实现Excel批量导入数据库

Excel批量导入数据库是用到批量导入系统的一个难题,特别是需要批量导入的Excel表比较复杂,或者这张Excel表需要多表插入的时候,批量导入就变得复杂起来。其实了解了批量导入的原理之后,批量导入也...
  • u013038861
  • u013038861
  • 2015年11月27日 23:24
  • 5887

Delphi 导出、导入Excel的一个快速方法

The quickest way is to use an array of Variant,and just pass the entire array to Excel: var     xls,...
  • lcfeng1982
  • lcfeng1982
  • 2015年02月13日 11:03
  • 3502

Delphi编程将数据库数据快速导入Excel

在开发数据库应用程序中,经常要将类型相同的数据导出来,放到Excel文件中,利用Excel强大的编辑功能,对数据作进一步的加工处理。这有许多 的方法,我们可以使用OLE技术,在Delphi中创建一个自...
  • fantast
  • fantast
  • 2007年04月19日 11:21
  • 451

Delphi编程将数据库数据快速导入Excel

在开发数据库应用程序中,经常要将类型相同的数据导出来,放到excel文件中,利用excel强大的编辑功能,对数据作进一步的加工处理。这有许多的方法,我们可以使用ole技术,在delphi中创建一个自动...
  • xxz1314
  • xxz1314
  • 2007年11月26日 10:03
  • 310

大数据量高效导入数据库(以excel导入sqlserver为例)

最近正在做一个项目,要把excel中的数据导入到sqlserver数据库中,首先想到的就是insert,采用连接Excel对象的Microsoft.ACE.OLEDB.12.0接口引擎连接到excel...
  • u014180504
  • u014180504
  • 2015年09月21日 21:25
  • 6212

delphi 导入Excel到数据库

delphi 导入Excel到数据库转载来源:http://gaowenjie7758.blog.163.com/blog/static/5946788920095951348322/procedur...
  • chelen_jak
  • chelen_jak
  • 2011年03月01日 18:05
  • 6028

如何在DELPHI中将EXCEL中的数据导入到SQL数据库

 var  s1:string;begin  screen.Cursor:=crSQLWait;  s1:='insert into table_bus '+      ' (BS_NO,BS_TYP...
  • ddv_9527
  • ddv_9527
  • 2010年08月30日 06:59
  • 3325
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi编程将数据库数据快速导入Excel
举报原因:
原因补充:

(最多只允许输入30个字)