Delphi变成小技巧——直接将excel当做表来显示
来源:互联网 发布:爱福窝软件下载 编辑:程序博客网 时间:2024/05/17 07:19
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编程实用小技巧(四)——控制Excel表格
- Excel小技巧,记下来防止忘记
- visual studio 小技巧 将滚动条变成缩略图
- 怎么将html标签当做文本显示?
- EXCEL学习笔记——小技巧
- 神器 Brython —— 将 python 当做客户端脚本使用
- 如何快速将Excel单元格变成图片不需要截图直接换成图片
- 如果将应聘简历当做产品来做
- Delphi小技巧(六)——Des加密算法
- 将Select结果当做一个表
- Delphi小技巧
- delphi小技巧总汇
- Delphi小技巧
- Delphi小技巧
- Delphi小技巧
- delphi 数据库小技巧
- Delphi小技巧杂记
- 郭老师的道歉书(给力)
- Flash Builder4与Flash cs4 协同工作
- 聚类存储过程分析
- DM8168 openMax
- 跳过mysql主从同步错误
- Delphi变成小技巧——直接将excel当做表来显示
- elastix 和freePBX默认的密码
- vs2010 换背景
- 【Android2.2及以上】如何允许你的应用移动到SD卡?
- chrome源代码学习的路径
- LED驱动
- ios网络编程
- C中fread()函数的返回值
- 延迟加载--懒加载