把EXCEL的数据导入数据库(ACCESS、MSSQL等)

以下代码出自http://blog.csdn.net/hellogv/,引用请注明出处！ 首先，本文面向有数据库开发经验的朋友。如果你自认功力深厚或者觉得本文对你没有什么帮助，那么请不要见笑，以下小弟写的代码。 在把EXCEL的数据导入数据库之前，先进行一些简单的准备工作： 1

以下代码出自http://blog.csdn.net/hellogv/,引用请注明出处！

首先，本文面向有数据库开发经验的朋友。如果你自认“功力深厚”或者觉得本文对你没有什么帮助，那么请不要见笑，以下小弟写的代码。

在把EXCEL的数据导入数据库之前，先进行一些简单的准备工作：

1。把数据所在的EXCEL表另保存为DBF 4格式。

2。打开BCB，添加AdoTable(改名为DBFTable)和DataSource这两个控件

OK，准备工作，到此结束，剩下的就是打代码了

1。在Form_Load()事件中，加入以下代码：

汉潮社区团购系统

汉潮社区团购拼团系统以社区/农村/商业区基本单位，通过招募社区团长，通过微信群等社交工具进行开团销售，把相同一社区人群的日常所需商品交由平台+商家+团长+平台配送员集中管理运营的一种新型社区消费模式，为您提供一套完整的社区团购运营方案，帮助您快速构建运营管理体系，降低前期投入成本。系统从用户体验到供应链管理模块环环相扣，简单易懂，让您轻松玩转社区团购/拼团！安装步骤：一、配置数据库文件，修改数据库

0

查看详情

AnsiString filepath=ExtractFilePath(FileName); //FileName为DBF文件名 AnsiString tablename=ExtractFileName(FileName).SubString(0,ExtractFileName(FileName).Length()-4);//去除文件的扩展名

//--------------------用于连接DBF文件--------------------------------    DBFTable->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Password=/"/";Data Source=/""+filepath+"/";Extended Properties=dbase 5.0;Persist Security Info=True";    DBFTable->TableName=tablename;    DBFTable->Open();

2。新建一个类的成员函数void __fastcall ExcelToDB(TADOQuery *ADOQuery);

以下是函数的具体实现：

void __fastcall TDBFToDBForm::ExcelToDB(TADOQuery *ADOQuery)

 {//实现很简单，只是把DBFTable的数据逐项添加的本地的数据库    

 DBFTable->First();   

 for(int j=0;j<DBFTable->RecordCount;j++)  

  {    

  ADOQuery->Append();     

 for(int i=0;i<DBFTable->FieldCount;i++)      ADOQuery->FieldByName(DBFTable->FieldList->Strings[i])->AsString=DBFTable->FieldByName(DBFTable->FieldList->Strings[i])->AsString;      ADOQuery->Post();     

 DBFTable->Next();   

  } ShowMessage("导入成功!"); }

说明:DBFTable使用来装载EXCEL另保存的数据，而程序本身装载数据用的是ADOQuery(当然，你也可以改变),