Fórum Importação de arquivos #468169

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, Buttons,
  ComCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    ADOQuery1: TADOQuery;
    Edit2: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    StatusBar1: TStatusBar;
    Label3: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);


  private
    procedure FetchData;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

{ TForm1 }


procedure TForm1.FetchData;
begin
  if not AdoConnection1.Connected then
    Begin
      ShowMessage('Primeiro abra uma planilha !');
    end
    else
  if Edit2.Text = 'Digite a planilha desejada aqui' then
    begin
      ShowMessage('Digite uma planilha no Campo : Planilha ');
    end;
    
  StatusBar1.SimpleText:='';
  AdoQuery1.Close;
  AdoQuery1.SQL.Text:='SELECT * FROM ['+Edit2.Text+']';
  AdoQuery1.Open;
  
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  FetchData;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdoConnection1.LoginPrompt:=False;
  AdoQuery1.Connection:=AdoConnection1;
  DataSource1.DataSet:=AdoQuery1;
  DBGrid1.DataSource:=DataSource1;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var strConn:String;
begin
  OpenDialog1.Execute;
  strConn:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ OpenDialog1.FileName+';Extended Properties=Excel 8.0;Persist Security Info=False';
  AdoConnection1.Connected:=False;
  AdoConnection1.ConnectionString:=strConn;
  AdoConnection1.Open;
  AdoConnection1.GetTableNames(ListBox1.Items,True);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit2.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

end.