45fan.com - 路饭网

搜索: 您的位置主页 > 电脑频道 > 编程代码 > 阅读资讯:怎么样把EXCEL的数据导入数据库?

怎么样把EXCEL的数据导入数据库?

2016-08-26 15:01:03 来源:www.45fan.com 【

怎么样把EXCEL的数据导入数据库?

 

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


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

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

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

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

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

1。在Form_Load()事件中,加入以下代码:

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(当然,你也可以改变),


本文地址:http://www.45fan.com/bcdm/67988.html
Tags: 数据 导入 excel
编辑:路饭网
推广内容
推荐阅读
热门推荐
推荐文章
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部