TSqlConnection

1.连接SQL SERVER数据库

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TSQLConnection;
begin
  try
    p := TSQLConnection.Create(nil);
    try
      p.ConnectionName := 'MSSQLConnection';
      p.DriverName := 'MSSQL';
      p.GetDriverFunc := 'getSQLDriverMSSQL';
      p.KeepConnection := true;
      p.LoginPrompt := False;
      p.LibraryName := 'dbxmss.dll';
      p.VendorLib := 'sqlncli10.dll';
      p.Params.Values['Database'] := 'NewVisionTest';
      p.Params.Values['HostName'] := '192.168.1.250';
      p.Params.Values['User_Name'] := 'sa';
      p.Params.Values['Password'] := 'sa';
      p.Params.Add('GetDriverFunc=getSQLDriverMSSQL');
      p.Params.Add('LibraryName=dbxmss.dll');
      p.Params.Add('VendorLib=sqlncli10.dll');
      p.Params.Add('VendorLibWin64=sqlncli10.dll');
      p.Params.Add('MaxBlobSize=-1');
      p.Params.Add('OSAuthentication=False');
      p.Params.Add('PrepareSQL=True');
      p.Params.Add('SchemaOverride=sa.dbo');
      p.Params.Add('DriverName=MSSQL');
      p.Params.Add('BlobSize=-1');
      p.Params.Add('IsolationLevel=ReadCommitted');
      p.Params.Add('OS Authentication=False');
      p.Params.Add('Prepare SQL=False');
      p.Params.Add('ConnectTimeout=60');
      p.Params.Add('Mars_Connection=False');
      p.Connected:=True;
    except
      on E: Exception do
        raise Exception.Create('数据库连接不上');
    end;
  except
    on E: Exception do
    begin
      Exit;
    end;
  end;
end;

 

2.连接中间层服务器

function TConnThread.ConnRemoteSvr(cn: TSQLConnection; const hostname, UserName,
  password: string; const port: Integer): Boolean;
begin
  try
  cn.Close;
  cn.DriverName := 'DataSnap';
  cn.LoginPrompt :=False;
  Cn.ConnectionName := 'DataSnapCONNECTION';
  cn.Params.Clear;
  cn.Params.Add('DriverName=DataSnap');
  Cn.Params.Add('HostName='+HostName);
  Cn.Params.Add('Port='+inttostr(port));
  Cn.Params.Add('User_Name='+UserName);
  Cn.Params.Add('Password='+PassWord);
  cn.Open;
  Result :=True;
  except
    Result :=False;
  end;
end;