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

 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表。

已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页