EXCEL/ACCESS数据转换

一 Excel to Access

SELECT * INTO tableFromExcel FROM [excel 8.0;database=F:/delphi/GetPersonData/NewManager4/data2.XLS].[XLS$]; 

 

二 Access to Excel

  ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
          ExtractFilePath(Application.ExeName) + 'LawyerData.XLS;' +
          'Extended Properties="Excel 8.0;";Persist Security Info=False';
  ADOCExcel.ConnectionString := ConStr;

  SqlStr := 'select * into '+ ExcelFileName +' from '+CurrentTable+ 
          ' in "' + ExtractFilePath(Application.ExeName)+'NewData.mdb"';

 ADOCExcel.Execute(SqlStr);