急！数据库查询导入excel速度太慢问题！

[qdrnocking]

使用ADO查询后导入到excel速度较慢，怎么能够快一些呢！？记录一般在数千条！
我是用的方法：

while(!ADOQuery1->Eof)
{
ExcelApp.OlePropertyGet("Rows",i+2).OlePropertySet("RowHeight",16);
for( int j=0;j<m;j++)
{
Sheet1.OlePropertyGet("Cells",i+2,j+1)
.OlePropertySet("Value",
ADOQuery1->FieldByName(
DBGrid1->Columns->Items[j]->FieldName)->AsString.c_str());
}
DataModule1->ADOQuery1->Next();

如何能够快速的导入到excel文件中！谢谢

[周药师]

XLSReadWrite操作excel很快的
你用XLSReadWrite控件试试

[zzbinfo]

用这种ole的就是慢,用第三方控件试试,如果数据量太大的话存成csv文件,各个字段用逗号格开

[BCBPLC]

最快的是导出文本格式的电子表格，既快又简单，唯一不足的是格式有点不好，
写一段供楼主参考：
void TDataModule1::MDB_Export(TADODataSet *dataset,String xls)
{
String tab=char(9);
String lf="\r\n";

TFileStream *fs=new TFileStream(xls,fmCreate);
for (int i=0;i<dataset->FieldCount;i++)
{
String fd=dataset->Fields->Fields[i]->FieldName;
fd="\""+fd+"\""+tab;
fs->Write((void *)fd.c_str(),fd.Length());
}
fs->Write((void *)lf.c_str(),lf.Length());

dataset->DisableControls();
void *SavePlace =dataset->GetBookmark();
dataset->First();
while (!dataset->Eof)
{
for (int i=0;i<dataset->FieldCount;i++)
{
String fd=dataset->Fields->Fields[i]->FieldName;
TField *zd=dataset->FieldByName(fd);
String zdv=zd->AsString+tab;
fs->Write((void *)zdv.c_str(),zdv.Length());
}
fs->Write((void *)lf.c_str(),lf.Length());
dataset->Next();
}
dataset->GotoBookmark(SavePlace);
dataset->FreeBookmark(SavePlace);
dataset->EnableControls();
delete fs;
}

[BCBPLC]

把无用的语句去掉更短,把数据库的表dataset，导出文件名为xls的文件
速度极快，算法简单
void TDataModule1::dataset_Export(TADODataSet *dataset,String xls)
{
String tab=char(9); // 格与格之间的分隔符
String lf="\r\n"; // 下一行

TFileStream *fs=new TFileStream(xls,fmCreate);
for (int i=0;i<dataset->FieldCount;i++)
{
String fd=dataset->Fields->Fields[i]->FieldName;
fd="\""+fd+"\""+tab;
fs->Write((void *)fd.c_str(),fd.Length());
}
fs->Write((void *)lf.c_str(),lf.Length());

dataset->First();
while (!dataset->Eof)
{
for (int i=0;i<dataset->FieldCount;i++)
{
String fd=dataset->Fields->Fields[i]->FieldName;
TField *zd=dataset->FieldByName(fd);
String zdv=zd->AsString+tab;
fs->Write((void *)zdv.c_str(),zdv.Length());
}
fs->Write((void *)lf.c_str(),lf.Length());
dataset->Next();
}
delete fs;
}

[BCBPLC]

该程序有通用性

[GoAwayZ]

[Quote=引用 8 楼 bcbplc 的回复:]
该程序有通用性
[/Quote]

[ddllyt19890617]

我是菜鸟，膜拜大神

[xjq2003]

Ole速度确实很慢，
用些文件的方法导出excel比Ole快100倍。
文件名保存为.csv格式
数据格式为：
1，2，3
4，5，6
……
就可以了

[xuanyanlan]

XLSReadWrite比CX还快
我下个试下

[qdrnocking]

XLSReadWrite 怎么使用？
好像在BCB6上无法安装吧！

[BCBPLC]

我做的程序，导出功能全是这样做的，
代码简单，速度快，何乐不为

[BCBPLC]

我做的程序，导出功能全是这样做的，
代码简单，速度快，何乐不为

[qdrnocking]

To BCBPLC
谢谢，我刚回来，等晚上试一下！
现在给分！