delphi ADOConnection1 连接excel表格读取数据

本文整理自网络，侵删。

 
uses ComObj;

procedure TForm1.Button6Click(Sender: TObject);
var
  Excel: OLEVariant;
  ExcelVersion: string;
  filename:string;
begin

filename:=ExtractFilePath(ParamStr(0))+'工作表.xlsx';
   try
      Excel := CreateOLEObject('EXCEL.Application');
      ExcelVersion := Excel.version;
   finally
      Excel.Quit;
      Excel := UnAssigned;
   end;
  ADOConnection1.Close;

  if ExcelVersion = '11.0' then
    //Excel2003及早期的版本
     ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                            filename+';Extended Properties=excel 8.0;'+
                            'Persist Security Info=false;'
  else //Excel2007及以后的版本
     ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+
                            filename+';Extended Properties=excel 12.0;'+
                             'Persist Security Info=True';//注意不能为false


    ADOConnection1.LoginPrompt:=false;
    ADOConnection1.Connected:=true;
    ADOQuery1.Connection:=ADOConnection1;
    ADOQuery1.close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.add('select * from [sheet1$]');
    ADOQuery1.Active:=true;


end;



Delphi Excel写入 ADOConnection
var
  sFileName: string;
begin
  sFileName := ExtractFilePath(Application.ExeName) + 'Book1.xls';
  con1.Connected := False;
  con1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=' + sFileName + ';Extended Properties=Excel 8.0;Persist Security Info=True';;
  con1.Connected := true;
  con1.Execute('create table Test(name varchar(20))');
  con1.Execute('insert into Test values (''AName'')');
end;

 

相关阅读 >>

Delphi把域名转换成ip

Delphi获取进程pid

Delphi ios 保持设备开机状态

Delphi webbrowser 加载html成web

Delphi makeuniquefilename 创建文件名如果已经存在自动更改文件名

Delphi mscomnn1 判断com口是否打开

Delphi xe5 中tmemo控件的应用――for android

Delphi 获取文件修改时间

Delphi edit 让密码变成点

Delphi 创建并调用 dll

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi ADOConnection1 连接excel表格读取数据