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