首页 > 其他分享 >Delphi中使用ADO连接Excel

Delphi中使用ADO连接Excel

时间:2023-05-11 17:25:16浏览次数:32  
标签:Delphi Excel ADOTable Sheet1 设置 ADO 连接 属性

第一部分:

 

1. 设置ADOConnection的ConnectionString属性的OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider(这本来是用于连接Access数据库的驱动程序,但也可打开Excel文件),按 "下一步"按钮

2. 选择数据库名称。注意:Excel的扩展名是*.xls,而默认文件类型是Microsoft Access 数据库(*.mdb), 我们就选择"全部文件(*.*)"吧,接着选择我们要连接的Excel文件咯!!如果在当前路径,就直接填2007.xls。 这时先别慌按 "测试连接"按钮,不然会出现错误对话框的。可以试试看,了解一下 ^_^

3. 在"所有"选项卡中找到 "Extended Properties",双击它或者按"编辑值"按钮,设置Extended Properties为"Excel 8.0 "。

4. 我们返回"连接"选项卡,按 "测试连接"按钮。测试连接成功!!! ^_^

最后,设置完成后的ConnectionString中的各项参数为:

Provider=Microsoft.Jet.OLEDB.4.0

Data Source=2007.xls //因为在当前路径

Extended Properties=Excel 8.0

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。

标签:Delphi,Excel,ADOTable,Sheet1,设置,ADO,连接,属性
From: https://www.cnblogs.com/lucken2000/p/17391670.html

相关文章

  • Delphi 检测密码强度 规则(仿 google)
    一、密码长度:5分:小于等于4个字符10分:5到7字符25分:大于等于8个字符二、字母:0分:没有字母10分:全都是小(大)写字母20分:大小写混合字母三、数字:0分:没有数字10分:1个数字20分:大于等于3个数字四、符号:0分:没有符号10分:1......
  • EasyExcel-导入文件
    controller类@PostMapping("/importData")publicResultimportData(MultipartFilefile){dictService.importDictData(file);returnResult.ok();}servicepackagecom.atguigu.yygh.cmn.service;importcom.atguigu.yygh.model......
  • day3 Hadoop安装与使用-Hadoop安装篇【上】
    【os】因为最近没有带大数据实验那本书,这几篇使用的都是大数据原教材-大数据技术原理运用(第三版)。其实两本内容差不多,但是实验那本教材安装过程更详细一点。 【正文】2.Hadoop安装【Hadoop单机安装】Hadoop使用版本:3.1.3下载地址:https://archive.apache.org/dist/hadoop/co......
  • delphi 遍历枚举、获取枚举值的名称
    遍历枚举、获取枚举值的名称代码遍历枚举usesSystem.TypInfo;procedureTForm1.Button1Click(Sender:TObject);varI:TAlign;beginforI:=Low(TAlign)toHigh(TAlign)dobeginMemo1.Lines.Add('名称'+GetEnumName(TypeInfo(TAlign),Ord(I))+'值......
  • hadoop基础(二)
    JAVA客户端环境搭建创建Maven项目,添加Hadoop依赖.<dependencies><!--https://mvnrepository.com/artifact/mysql/mysql-connector-java--><dependency><groupId>mysql</groupId><artifactId>mysql-co......
  • Excel导入数据时出错
    一:c#后台使用"Provider=Microsoft.Jet.OLEDB.4.0;"+"DataSource="+filePath+";"+";ExtendedProperties=\"Excel8.0;HDR=YES;IMEX=1\""导入数据时出现:未在本地计算机上注册“Microsoft.Jet.OLEDB.4.0”提供程序。导入时的文件后缀为".xls&qu......
  • Android string.xml与Excel的互相转换
    Notice使用以下脚本需要安装openpyxl和lxml两个库。string.xml转成Excel文件"""将Androidstring.xml文件中的文本转换成Excel表格并保存到文件。使用方法:pythonandroid_string_to_excel.py-fstrings.xml[-ooutfile_name]-f:要处理的Androidstring.xml文件......
  • delphi执行外部程序并等待结束返回响应
    //写成函数需要引用ShellAPI单元;functionExecuteFileWait(ExecuteFile:string):Integer;//实现执行外部程序,并等待程序结束的函数,返回值为1varSEInfo:TShellExecuteInfo;ExitCode:DWORD;ParamString,StartInString:string;beginFillChar(SEInfo,S......
  • Excel 导出
    1.pom相关<dependency><groupId>cn.afterturn</groupId><artifactId>easypoi-spring-boot-starter</artifactId><version>4.1.0</version></dependency>......
  • Hadoop API使用 大坑
      这几天一直在困扰我pycurl版本和本机的版本不符合他连接又连接的自己自带的版本与系统不相同低级也会报错 https://blog.csdn.net/u010910682/article/details/89496550/?ops_request_misc=&request_id=&biz_id=102&utm_term=pycurl7.45.2%20%E6%90%AD%E9%85%8Dlibcu......