注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi用TADOconnect直接连接Excel的函数实例  

2014-09-21 07:25:50|  分类: delphixe7 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
作者:鑫淼梦园
Procedure TForm1.ExcelConnect(Excelconnet: TAdOconnection; ExcelFile: WideString; aAdoQuery: TADOQuery;
          aDs: TDataSource; bz: Integer); //bz = 0, 1, 2...
{
Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=data.mdb;
Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";
Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=你的密码;
Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;
Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
}
Var
 sTableName, ss: String;
 sl : TStringList;
const aText = 'Provider = Microsoft.Jet.OLEDB.4.0; Data Source=%s;Mode=Share Deny None;' +
            'Extended Properties = Excel 8.0;Persist Security Info = False';
begin
  If ExcelFile = '' Then
    Exit;
  sl := TStringList.Create;
  //DataModule1上放置ExcelConnection名称的TAdOconnection控件
  with Excelconnet do
  begin
    Connected := False;
    LoginPrompt := False;
    ss := Format(aText, [ExcelFile]);
    ConnectionString := ss;
    Connected := True;
    //sl是表名列表(Excel中可能有很多个sheet)
    GetTableNames(sl);
  end;
  //Excel表中可能有很多个sheet,可以循环,本程序只处理了第一个sheet(sl[0])
  {for i := 0 to sl.Count-1 Do
  begin
    sTableName := sl[i];
  end;}
  sTableName := sl[bz];
  If RightStr(sTableName, 1) = '$' Then
    sTableName := '[' + sTableName + ']';

  with aAdoQuery do
  begin
    Connection := Excelconnet;
    Close;
    SQL.Clear;
    SQL.Text := 'Select * from ' + sTableName;
    Open;
  end;
  aDs.DataSet := aAdoQuery;
  sl.Free;
end;
  评论这张
 
阅读(233)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017