数据库(sqlserver,oracle等,二层,三层均可)与excel交换数据

Function TForm1.ConnectExcel:Boolean;
var vFileName:String;
begin
  if OpenDialog1.Execute then
     vFileName:=OpenDialog1.FileName;

    ADOConnexcel.Connected:=False;
    ADOConnexcel.Close ;

    try
      with ADOConnexcel do
      begin
        ADOConnexcel.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+vFileName+';Mode=Share Deny None;Extended Properties="Excel 8.0;"';
        ADOConnexcel.Open;
      end;
      Result:=True;
    except
      Result:=False;
      ADOConnexcel.Close;
      ADOConnexcel.Free;
    end;
end;

procedure TForm1.ToolButton10Click(Sender: TObject);
begin  //打开某个excel文件.
  if ConnectExcel then
  begin
    ADOEXCEL.close;
    ADOEXCEL.SQL.Clear ;
    ADOEXCEL.SQL.Text :='select *  from [Sheet1$]';