Delphi变成小技巧——直接将excel当做表来显示

来源：http://apps.hi.baidu.com/share/detail/21513554#content

步骤：

1、添加ADOQuery1、DBGrid1、DataSource1，将DataSource1的Dataset设置为ADOQuery1，将DBGrid1的DataSource设置为DataSource1；

2、添加OpenDialog1、Edit1、Button1、Button2，将Button1的Caption改为：浏览...，将Button2的Caption改为：显示数据；

3、在Button1Click事件中的代码：（注意中英文符号）

procedure TForm1.Button1Click(Sender: TObject);
    begin
      OpenDialog1.DefaultExt := 'xls';
      OpenDialog1.Filter := 'Microsoft Excel 文件 (*.xls)|*.xls';
     if OpenDialog1.Execute then
     edit1.Text:=OpenDialog1.FileName;
    end;

4、在Button2Click事件中的代码：（注意中英文符号）

procedure TForm1.Button2Click(Sender: TObject);
var
str,path:string;
begin
   Try
   path:=ExtractFileDir(Application.ExeName);
   ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+'\001.mdb;Persist Security Info=False';
   str:='SELECT * FROM [excel 8.0;database='+edit1.Text+'].[sheet1$]';
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(str);
   ADOQuery1.Open;
   except
    showmessage('Excel链接出错!');
     exit;
    end;
end;

5、这时运行，点击按钮浏览...,就可以随意选择excel文件，但是一个关键问题是，会报错！

哈哈哈，拽一下，认真看的别生气。

6、报错的位置是：ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+'\001.mdb;Persist Security Info=False';

仔细看，这句里有一个问题是，有一个.mdb表，这是microsoft自带的Access数据库，需要安装完整版的microsoft Word，将Access装上就可以了，在你的工程文件夹中新建一个.mdb
数据库，改名为001.mdb；（也就是在你保存该工程的文件夹中新建一个Access数据库）

7、再次运行，嘿嘿嘿嘿，又出错了（不要打我哦~），报错：不正常的定义参数对象，呵呵，还差一步，就是将ADOQuery1的paramcheck属性设为FALSE；

8、再运行，成功！祝你离成功越来越近，哈哈哈哈

这样操作的好处在于，如果只需要查看数据就不必将大量数据导入数据库，可以任意显示用户的excel表。

Delphi变成小技巧——直接将excel当做表来显示相关推荐

delphi十个小技巧
delphi十个小技巧.... 1.判断一个字符串是否包含于另外一个字符串的方法例如:if pos('ab','abcd')<>0 then messagedlg('ab是包含于abcd ...
Latex小技巧：将Excel表格转换为Latex格式表格
参考: https://blog.csdn.net/LF21011501/article/details/89684798 Latex小技巧:将Excel表格转换为Latex格式表格 Latex作为 ...
宜搭小技巧｜维护Excel太麻烦？Excel一键转应用，为你的工作减负
简介:只需6步,轻松学会「Excel一键创建应用」! 在钉钉的聊天窗口中,每天都会流转数量巨大的Excel表格,用于信息收集和数据统计,但有时这些表格并不能很好地帮助到我们的工作,相反还会带来许多不便 ...
小技巧助你解决div+css网页内容显示不完整
今天调一个布局,调了老一会没调好,就是内容显示不全,然后突然看到这篇文章得到点启发,所以转发下支持下在测试网页效果时,你是否为网页在IE6版本的浏览器中能正常打开,网页显示完整.而在IE7及以上版 ...
左侧固定右侧自动填充_办公小技巧：解决Excel公式自动填充问题
在Excel表格中,利用公式可以大大提高计算效率,而通过自动填充的方式将公式应用于更多的单元格,则可以再让效率猛增.但在具体使用公式填充的过程中,也可能会遇到一些问题. 1. 向下填充公式时填充柄找不 ...
怎么用计算机绘制不规则表格,怎么绘制表格-Excel小技巧：快速制作工资表和不连续填充表格信息，人事必看...
小伙伴们,大家好!面对杂乱没有规律的工资内容,如何将它们转换成查阅方便的工资条是每个人事在月中或者月底进行工资核算和发放都会遇到的难题.如果将WORD中文字内容的工资明细,依次进行粘贴复制或者是手动输 ...
excel表格内容拆分_「职场百科书」—「实用小技巧」—（Excel表格拆分）
工作中我们经常会遇到这种情况,所有的数据都整合在一个Excel表格里面了,现在想按需求分别拆分成多个工作表,有什么好办法吗?利用透视表,我们就可以轻松解决. 如下图所示,从销售一部到销售七部的所有业绩 ...
delphi一些小技巧从别处看到
开发环境 -------- Delphi 7是一个很经典的版本,在Win2000/XP下推荐安装Delphi 7来开发软件,在Vista下推荐使用Delphi 2007开发软件.安装好Delp ...
两年数据对比柱形图_办公小技巧：让Excel图表对比更轻松
公司每天都对产品的生产按原计划.实际完成.差额这三项数据进行对比分析,利用普通的柱形图显示,效果不太明显.但如果将普通的堆积柱形图,通过在数据源的基础上添加数据,更改图表的系列重叠.分类间隔等系列设置 ...

Delphi变成小技巧——直接将excel当做表来显示

Delphi变成小技巧——直接将excel当做表来显示相关推荐

最新文章

热门文章