pubdb.pas

按一定格式把excel表格导入SQL Server数据库表

unit pubDB;

interface

uses
  SysUtils, Classes, DB, ADODB, IniFiles;

type
  TDBpub = class(TDataModule)
    ADOCon: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Init; //读取ini配置文件
  public
    { Public declarations }
  end;

var
  DBpub: TDBpub;
  IniFile     : TiniFile;
implementation

{$R *.dfm}
procedure TDBpub.Init;
var
  TempStr   : String;
  sDBServer : String;//数据服务器
  sUserName : String;//数据库名称
  sDBName   : String;//登录数据库用户名
  sPassword : String;//登录数据库密码
  sConString: String;
begin
  TempStr   := ExtractFilePath(paramstr(0))+'ImExcel.ini';
  if FileExists(TempStr) then
  begin
    IniFile := TiniFile.Create(TempStr);
    sDBServer   := IniFile.ReadString('Database', 'DBName', 'DBServer');
    sDBName     := IniFile.ReadString('Database', 'DBNm', 'Easytq');
    sUserName   := IniFile.Readstring('Database', 'dbLoginName', 'sa');
    sPassword   := IniFile.ReadString('Database', 'Password', 'tongli2004');
  end;
  IniFile.Free;
  sConString := 'Provider=SQLOLEDB.1;password=' + sPassword +
                    ';Persist Security Info=true;User ID=' + sUserName +
                    ';Initial Catalog=' + sDBName + ';Data Source=' + sDBServer;
  ADOCon.ConnectionString := sConString;

  ADOCon.Close;
  ADOCon.Open;
end;

procedure TDBpub.DataModuleCreate(Sender: TObject);
begin
  init;
end;

end.