如安在C++中将数据库数据分行和列生存到Excel中

副标题#e#

如安在C++中将数据库数据分行和列生存到Excel中？ 措施中的数据在StringGrid控件中显示的，那如何凭据StringGrid显示的名目分行排列生存到Excel表格呢？请看如下两种要领的实现：

第一种要领：回收的一格一格填凑数据

Variant ExcelApp,WorkBook1,WorkSheet1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

AnsiString FileName = ExtractFileDir(Application->ExeName )+　 "\\a.xls";
try
{
ExcelApp=Variant::CreateObject("Excel.Application");
}
catch(...)
{
ShowMessage("Sorry!Excel cannot be launched");
return;
}
ExcelApp.OlePropertySet("Visible",true);
ExcelApp.OlePropertyGet("WorkBooks").OleProcedure("Open",FileName.c_str());
WorkBook1=ExcelApp.OlePropertyGet("ActiveWorkBook");
WorkSheet1=WorkBook1.OlePropertyGet("ActiveSheet");

for(int i=0;i<StringGrid1->RowCount;i++)
{
for(int j=0;j<StringGrid1->ColCount;j++)
{
WorkSheet1.OlePropertyGet("Cells", i+1 , j+1 )
.OlePropertySet("Value",StringGrid1->Cells[j][i].c_str() ) ;
}
}

ExcelApp.OlePropertyGet("ActiveWorkbook")
.OleFunction("SaveAs", FileName.c_str());
ExcelApp.OleFunction("Quit");
WorkSheet1 = Unassigned;
WorkBook1 = Unassigned;
ExcelApp = Unassigned;

}

#p#副标题#e#

第二种要领：直接从ADO把数据导出来

Variant ExcelApp;
Variant WorkBook1;
Variant Sheet1;
Variant Range;
Variant Table;
Variant QueryTables;
int Count;
AnsiString ITemp,IStr;
AnsiString sSQL,sSQLHj, sWhere, sStartDate, sEndDate, sDate;
try
{
ExcelApp=CreateOleObject ("Excel.Application");
}
catch(...)
{
ShowMessage("运行堕落，请确认装了Excel");
return;
}
ExcelApp.OlePropertyGet("WorkBooks").OleFunction("Add");
ExcelApp.OlePropertyGet("workbooks").OleFunction("Add", "E:\\Lxrb6.xls");
WorkBook1=ExcelApp.OlePropertyGet("ActiveWorkBook");
Sheet1 = WorkBook1.OlePropertyGet("ActiveSheet");
WorkBook1.OlePropertyGet("Sheets", 1).OleProcedure("Select");
Sheet1.OlePropertySet("name","小热报6");
Range=Sheet1.OlePropertyGet("Range","A9");
QueryTables=Sheet1.OlePropertyGet("QueryTables");
sSQL="select * from Table" //这里的数据许多，我随便简化下！
qryTmp->Active=false;
qryTmp->SQL->Clear();
qryTmp->SQL->Add(sSQL);
qryTmp->Active=true;
Count=qryTmp->RecordCount+12;
IStr="A9:M"+IntToStr(Count);
Table=QueryTables.OleFunction("Add",qryTmp->Recordset,Range);
Table.OlePropertySet("FieldNames",false);
Range=Sheet1.OlePropertyGet("Range", IStr.c_str());
Sheet1.OlePropertyGet("Range", "A:K").OlePropertyGet("Columns").OleProcedure("AutoFit"); //自动列宽
Table.OleProcedure("Refresh",true);
WorkBook1.OleFunction("SaveAs", "E:\\6.xls");
ShowMessage("导出完毕，请查抄");
qryTmp->Active=false;
ExcelApp.Exec(Procedure("Quit"));
ExcelApp = Unassigned;

看看哪种符合，就用哪种吧，嘻嘻！