类　别：数据库

unit adodbpas;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    Label2: TLabel;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    StatusBar1: TStatusBar;
    Label3: TLabel;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var szname,szext:string;
  var Iext:integer;
begin
 if OpenDialog1.Execute then
    begin
     szname:=ExtractFileName(opendialog1.FileName);
     szext:=ExtractFileExt(opendialog1.FileName)
    end;
     edit1.text:=OpenDialog1.FileName;
     Iext:= length(szname) - length(szext);
     szname:=copy(szname,0,Iext);
     edit2.Text:=szname;  //获得没有扩展名的文件名
//显示数据库中的数据表
   with ADOConnection1 do
   begin
     if Connected then Close;
     ConnectionString:='Provider=SQLOLEDB.1;Password=yhjvc;Persist Security Info=True;User ID=sa;Initial Catalog='+szname+';Data Source=YHJ\YHJDB;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=YHJ;Use Encryption for Data=False;Tag with column collation when possible=False';
     Open;
     GetTableNames(listbox1.Items,true);
   end;


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  ADOConnection1.GetTableNames(ListBox1.Items);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 if ADOTable1.Active then adotable1.Close;
 adotable1.TableName:=ListBox1.Items.Strings[ ListBox1.ItemIndex];//根据列表框中的选者显示数据库中的表
 adotable1.Open;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
close;
end;

end.