VC:用ADO方式实现把CListCtrl数据写成Excel文件
2007-07-17 14:22
633 查看
ADODB::_ConnectionPtr mcon;
mcon.CreateInstance("ADODB.Connection");
CString constr;
constr="Provider=Microsoft.Jet.OLEDB.4.0;/
Data Source=C://du-XIAO.xls;/
Extended Properties = Excel 8.0";
mcon->Open(_bstr_t(LPCTSTR(constr)),"","",ADODB::adModeUnknown);
// 创建表结构
int i;
LVCOLUMN columnData;
CString columnName;
int columnNum = 0;
CString strH , sSql;
CString strV;
CString tableName = "客户销量"; //SHEET
sSql = "";
strH = "";
columnData.mask = LVCF_TEXT;
columnData.cchTextMax =100;
columnData.pszText = columnName.GetBuffer (100);
for(i=0;m_list.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 + " ) ";
mcon->Execute(_bstr_t(LPCTSTR(sSql)), NULL, ADODB::adCmdText);
// 插入数据项
int nItemIndex;
for (nItemIndex=0; nItemIndex < m_list.GetItemCount ();nItemIndex++){
strV = "";
for(i=0;i<columnNum;i++)
{
if (i!=0)
{
strV = strV + ", " ;
}
strV = strV + " '" + m_list.GetItemText(nItemIndex,i) +"' ";
}
sSql = "INSERT INTO "+ tableName
+" ("+ strH + ")"
+" VALUES("+ strV + ")";
mcon->Execute(_bstr_t(LPCTSTR(sSql)), NULL, ADODB::adCmdText);
}
mcon->Close();
AfxMessageBox("写入成功!");
mcon.CreateInstance("ADODB.Connection");
CString constr;
constr="Provider=Microsoft.Jet.OLEDB.4.0;/
Data Source=C://du-XIAO.xls;/
Extended Properties = Excel 8.0";
mcon->Open(_bstr_t(LPCTSTR(constr)),"","",ADODB::adModeUnknown);
// 创建表结构
int i;
LVCOLUMN columnData;
CString columnName;
int columnNum = 0;
CString strH , sSql;
CString strV;
CString tableName = "客户销量"; //SHEET
sSql = "";
strH = "";
columnData.mask = LVCF_TEXT;
columnData.cchTextMax =100;
columnData.pszText = columnName.GetBuffer (100);
for(i=0;m_list.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 + " ) ";
mcon->Execute(_bstr_t(LPCTSTR(sSql)), NULL, ADODB::adCmdText);
// 插入数据项
int nItemIndex;
for (nItemIndex=0; nItemIndex < m_list.GetItemCount ();nItemIndex++){
strV = "";
for(i=0;i<columnNum;i++)
{
if (i!=0)
{
strV = strV + ", " ;
}
strV = strV + " '" + m_list.GetItemText(nItemIndex,i) +"' ";
}
sSql = "INSERT INTO "+ tableName
+" ("+ strH + ")"
+" VALUES("+ strV + ")";
mcon->Execute(_bstr_t(LPCTSTR(sSql)), NULL, ADODB::adCmdText);
}
mcon->Close();
AfxMessageBox("写入成功!");
相关文章推荐
- 使用ADO实现vc中二进制文件数据的存取
- 将Table数据导出至Excel文件(中国移动实现的方式)
- 将Table数据导出至Excel文件(中国移动实现的方式)
- 将Table数据导出至Excel文件(中国移动实现的方式)
- 使用ADO实现vc中二进制文件数据的存取(以图像在数据库中的存取为例)
- 将Table数据导出至Excel文件(中国移动实现的方式)
- 使用ADO实现vc中二进制文件数据的存取(以图像在数据库中的存取为例)
- 【代码实现】PHP导入Excel和导出数据为Excel文件
- C# 实现 Excel文件的数据导入
- ADO 读取Excel文件数据, 丢失数据或数据错误问题。
- Java导出页面数据或数据库数据至Excel文件并下载,采用JXL技术,小demo(servlet实现)
- 发布一个vc的clistctrl的数据写到excel的方法
- 自己用awt实现界面输入数据保存到Excel文件中
- [小技巧]提交数据并下载文件的实现方式
- Python实现数据处理——每隔一段时间把数据写入excel文件中
- JAVA WEB 实现文件数据导入(CSV、TXT、excel)
- 使用proc文件映射的方式实现用户态跟内核态的数据交互
- iframe实现无刷新上传文件并在当前页面返回数据php处理方式
- 以XML的方式读取Excel文件数据
- 实现poi方式生成excel文件和web类根据路径生成java实例的反射技术的springmvc方法的方法