• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

今天在Delphi7中使用AADOConnection连接Excel

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

//--2003及一下版本
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Excel 8.0'
//--2007
'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties= Excel 12.0;Persist Security Info=True';

%s表示文件的路径

Persist Security Info=False第二部分:接着就用ADOTable,ADODataSet和ADOQuery连接到刚才的ADOConnection,当然你可以直接设置ADOTable,ADODataSet或ADOQuery的ConnectionString属性。1. ADOTable设置:a. ADOTable的TableName属性值:系统自动生成Excel的Sheet1$,Sheet2$和Sheet3$。直接Active设置成true,系统会报告SQL语句格式错误等信息。b. 找到TableDirect属性,设置为True。因为,访问Excel文件是直接的数据文件访问,不是通过SQL语句来操作游标访问的。接着将Active设置成true。成功了!! ^_^c. 可以不使用TableDirect属性,将TableName属性中的Sheet1$,Sheet2$和Sheet3$分别改成[Sheet1$],[Sheet2$]和[Sheet3$]。对,就是加"[]"就行了。2. ADODataSet设置:a. 只需要将CommandType属性设置为cmdTableDirect,选择工作表,Active设置成true就成功了。b. 也可以将CommandType属性设置为cmdTable,将CommandText属性中改成[Sheet1$],[Sheet2$]和[Sheet3$]。3. ADOQuery设置:SQL属性如下:

 

select * from [sheet1$]总结:复习以前所学的,尝试新的连接方法,有益于加深记忆。我发现工作表名后面都要多加一个$符号,还有就是打开ADOTable,ADODataSet或者ADOQuery以后,它们的CursorType自动变成ctStatic。 


获取Excel版本

[delphi]
  1. const 
  2.   Wordversion97 = 8;  
  3.   Wordversion2000 = 9;  
  4.   WordversionXP = 10;  
  5.   Wordversion2003 = 11;  
  6.   Wordversion2007 = 12;  
  7. }   
  8.   
  9. function GetInstalledWordVersion: Integer;  
  10. var   
  11.   Excel: OLEVariant;  
  12. begin  
  13.   try  
  14.     Excel:=CreateOLEObject('Excel.Application');  
  15.   except  
  16.     ShowMessage('Error...');  
  17.     Exit;  
  18.   end;  
  19.   result := Excel.version;  
  20.   Excel.Quit;  
  21.   Excel := UnAssigned;  
  22. end;   

转自:http://blog.csdn.net/love3s/article/details/6973761

 

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi学习网址发布时间:2022-07-18
下一篇:
Delphi 的接口(1) - 前言发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap