请教 DBGRID 显示EXCEL 的问题

Question

窗体控件：dbgrid 、[ADOConnection 、ADODataSet：已经设置并测试连接成功] 、texcelWorkbook 、texcelWorksheet 、texcelapplication
请问我想把excel文件“导入.xls”显示到“dbgrid”控件中，并能够实现通过更改dbgrid内的数据来修改excel文件“导入.xls”的数据。。
应该如何实现，麻烦指点一下。。谢谢。（问题可能有点大，分数也不多，希望多少给点意见）

Answer 1

为什么我的DBGRID的属性：datasource的属性都是空的？

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  str:='select * from ' +
       'opendatasource(''microsoft.jet.oledb.4.0'',''text;hdr=no;database=d:\soft'')...[44#txt]';
  with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add(str);
      open;
    end;
  dbgrid1.Columns[0].Width :=80;
  dbgrid1.Columns[1].Width :=80;
  dbgrid1.Columns[2].Width :=80;
  dbgrid1.Columns[3].Width :=80;
end;end.
//以上是显示文本文件的，EXCEL也一样可以用 opendatasource

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  str:='select * from ' +
       'opendatasource(''Microsoft.jet.oledb.4.0'',''data source=文件路径;user id=admin;password=;extend properties=excel 5.0'')[sheet1$]';
  with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add(str);
      open;
    end;
  dbgrid1.Columns[0].Width :=80;
  dbgrid1.Columns[1].Width :=80;
  dbgrid1.Columns[2].Width :=80;
  dbgrid1.Columns[3].Width :=80;
end;end.

Answer 4

为什么提示“From子句语法错误？”
str:='select 记录序号 from ' +
       'opendatasource(''Microsoft.jet.oledb.4.0'',''data source=E:\hwk\作业\delphi程序修改\两网互通dzdr\dzdr\导入.xls;user id=admin;password=;extend properties=excel 8.0'')[sheet1$]';
properties=excel 8.0  改成5.0也是这样的错误

Answer 5

而且EXCEL没有设置帐号和密码，运行后会出现输入帐号和密码的提示框

Answer 6

还是SQL语句不对吧
要不先把Excel导入到其他表中

Answer 7

select * from 
opendatasource('Microsoft.jet.oledb.4.0','data source="文件名";user id=admin;password=;extended properties=excel 5.0 ')...[sheet1$]
--这是标准的SQL语句，把它放在delphi中要这样写var
  v_str:string;
begin
  v_str:='select * from ' +
         'opendatasource(''Microsoft.jet.oledb.4.0'',''data source="文件名";user id=admin;password=;extended properties=excel 5.0'')...[sheet1$]'; 
end;

Answer 8

恩，谢谢啦对了，顺便问个小问题，如果我在把DBGRID控件的第一列第一行赋“abc”的值要如何写？怎么我老提示错误！

Answer 9

select abc,* from opendatasource(...)...

Answer 10

不是啦，我是想把值“abc”显示到DBGRID控件的第一列第一行；dbgrid1.Columns[0].PickList[0]：='123';语句不知道错哪里。。刚开始学，可能问得很傻麻烦看下。。谢谢啦！

Answer 11

就是要修改dbgrid左上方第一单元格的值吧
可以直接更新的

Answer 12

var
  str:string;
begin
    str:='select A from '+'opendatasource(''Microsoft.jet.oledb.4.0'',''data source=c:\a.xls;user id=admin;password=;extend properties=excel 5.0'')[sheet1$]';  with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add(str);
      open;
    end;
  dbgrid1.Columns[0].Width :=80;
end;
===============================请问是哪里错啦。怎么还提示“From子句语法错误”？

Answer 13

var
  str:string;
begin
  str:='select * from ' +
       'opendatasource("Microsoft.jet.oledb.4.0","data source=c:\a.xls;user id=admin;password=;extend properties=excel 8.0")...[sheet1$]';//不跟三个点“...”也是报这样的问题！
  with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add(str);
      open;
    end;
  dbgrid1.Columns[0].Width :=80;
end;
=========================为什么还是提示“From子句语法错误”？