日期:2014-05-16  浏览次数:20803 次

导出CListCtrl控件到Excel文件--出错问题
void ExportListToExcel(CListCtrl* pList, CString strTitle)
{

CString warningStr;
if (pList->GetItemCount ()>0) {
CDatabase database;
CString sDriver;
CString sExcelFile; 
CString sSql;
CString tableName = strTitle;

// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
sDriver = GetExcelDriver();
if (sDriver.IsEmpty())
{
// 没有发现Excel驱动
AfxMessageBox("没有安装Excel!\n请先安装Excel软件才能使用导出功能!");
return;
}

///默认文件名
if (!GetDefaultXlsFileName(sExcelFile))
return;

// 创建进行存取的字符串
sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, sExcelFile, sExcelFile);

// 创建数据库 (即Excel表格文件)
if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
{
// 创建表结构
int i;
LVCOLUMN columnData;
CString columnName;
int columnNum = 0;
CString strH;
CString strV;

sSql = "";
strH = "";
columnData.mask = LVCF_TEXT;
columnData.cchTextMax =11111;
columnData.pszText = columnName.GetBuffer (11111);
for(i=0;pList->GetColumn(i,&columnData);i++)
{
if (i!=0)
{
sSql = sSql + ", " ;
strH = strH + ", " ;
}
sSql = sSql + " " + columnData.pszText +" TEXT";
strH = strH + " " + columnData.pszText +" ";
}

columnName.ReleaseBuffer ();
columnNum = i;

sSql = "CREATE TABLE " + tableName + " ( " + sSql + " ) ";

database.ExecuteSQL(sSql);
// 插入数据项
int nItemIndex;
int last;

last = pList->GetItemCount();
for (nItemIndex=0;nItemIndex<last;nItemIndex++)
{
strV = "";
for(i=0;i<columnNum;i++)
{
if (i!=0)
{
strV = strV + ", " ;
}
strV = strV + " '" + pList->GetItemText(nItemIndex,i) +"' ";
}

sSql = "INSERT INTO "+ tableName 
+" ("+ strH + ")"
+" VALUES("+ strV + ")";

database.ExecuteSQL(sSql);
}
}


// 关闭数据库
database.Close();

warningStr.Format("导出文件保存于%s!",sExcelFile);
AfxMessageBox(warningStr);
}
}


程序调试运行到红色字体的时候提示:字段定义语法错误??这个到底是什么原因?

------解决方案--------------------
sSql 的实际内容是什么?