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();

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("导入成功!"); }