以下代码出自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()事件中，加入以下代码：
m18麦考林整站 for Ecshop v2.7.3 安装方法： 1，解压rar包上传到网站根目录 2，导入sql数据库文件，到你的数据库里，可以phpmyadmin等软件 3，修改data里config.php里面的数据库 用户名 密码等信息 为你自己的数据库信息 4，安装完毕之后的后台用户名密码为： 后台地址：域名/admin 用户名：admin 密码：admin123 模板使用教程： htt
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;jRecordCount;j++)
{
ADOQuery->Append();
for(int i=0;iFieldCount;i++) ADOQuery->FieldByName(DBFTable->FieldList->Strings[i])->AsString=DBFTable->FieldByName(DBFTable->FieldList->Strings[i])->AsString; ADOQuery->Post();
DBFTable->Next();
} ShowMessage("导入成功!"); }
说明:DBFTable使用来装载EXCEL另保存的数据，而程序本身装载数据用的是ADOQuery(当然，你也可以改变),
