jsdbconnect.pas

来自「销售软件」· PAS 代码 · 共 44 行

unit JSDBConnect;

interface

uses
  SysUtils,
  ADODB_TLB;

function ConMSSQL(var cn: _Connection;
  sDBName, sDataSource, sUserID, sPassword: string): Boolean;
function ConExcel(var cn: _Connection;
  sExcelFile: string): Boolean;

implementation

function ConMSSQL(var cn: _Connection;
  sDBName, sDataSource, sUserID, sPassword: string): Boolean;
begin
  try
    cn.Open('Provider=SQLOLEDB;Data Source=''' + sDataSource + ''';User ID=''' +
      sUserID + ''';Password=''' + sPassword + ''';Initial Catalog=''' + sDBName
      + '''', sUserID, sPassword, 0);
    Result := True;
  except
    Result := False;
  end;
end;

function ConExcel(var cn: _Connection;
  sExcelFile: string): Boolean;
begin
  try
    cn.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source="' +
      sExcelFile + '";Extended Properties="Excel 8.0;Hdr=Yes"',
      EmptyStr, EmptyStr, 0);
    Result := True;
  except
    Result := False;
  end;
end;

end.