u_dm.~pas

orcl与sql的数据转移

unit U_DM;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  TDM = class(TDataModule)
    DS1: TDataSource;
    QY1: TADOQuery;
    Ads1: TADODataSet;
    AdoCnn1: TADOConnection;
    Qry: TADOQuery;
    AdoCmd: TADOCommand;
  private
    { Private declarations }
  public
    { Public declarations }
    {oracle测试连接}
    function OConnectDB(ODBConStr:string):Boolean;

  end;

var
  DM: TDM;
  ODBConStr: string;

implementation

{$R *.dfm}

{oracle测试连接服务器}
function TDM.OConnectDB(ODBConStr:string):Boolean;
begin
  try
    Adocnn1.Connected:=False;
    Adocnn1.ConnectionString:=ODBConStr;
    Adocnn1.Connected:=True;
    Result:=True;
  except
    Result:=False;
    Adocnn1.Connected:=False;
  end;
end;
end.