【推荐】SAS IT是免费的!!!

类别:编程语言 点击:0 评论:0 推荐:
SAS IT是免费的
 一个划时代来了,再没有必要在客户端用SAS那笨重的SAS/AF框架来编写,更流行的是以浏览器作为客户端,同时你完全可以不购买SAS/IntrNet,甚至可以再SAS SERVER端也没有必要购买IT的授权,是的,没有必要,如果有可能
 SAS给我们带来了IT,但是它的授权是非常贵的,但是IT所带来的COM对象群是SAS BASE的一部分,它们是不请求IT授权的,因此只要你的VB程序运行在你的PC上且你有SAS8.X在你的PC上,那么COM库也是被引入的,非常感谢你,我尊敬的SAS公司
 当然如果你想使用DCOM,那么就必须要IT的授权,否则使用是非法的,也就是说你只能使用COM方式调用SAS IT所带来的功能,但这样对中小型应用应该是足够了
 这组COM库是可以非常容易的安装在你的机器上,你可使用下面2种方法的任意一种:
  1、从SAS client-Side components CD 或者第2张CD上安装
  2、安装IT
 
 如果你想在VB中使用SAS中用SCL写的类,那么你还必须利用AppDev Studio建立一个类定义(IDL)供VB使用,当然如果你不想这么麻烦,你也可以简单用一个宏来实现相应的功能了 :)
 
 好了 ,看腻了把,我们来玩一个例子把,在WORD中写一个小小的VBA来调用SAS
 步骤如下:
  1、当然先安装那些相关的COM库了,什么?你不知道怎么装,拜托,上面写了 :)
  2、打开你的WORD,并设置一下容许宏[工具/宏/安全性/选择中等级别的安全就可]
  3、打开VBA编辑器[工具/宏/VBA编辑器]
  4、进入VBA编辑器,确保下面库已经被引用[工具/引用]
   "Microsoft ActiveX Data Objects 2.5 Library" and
   "SAS: Integrated Object Model (IOM) 1.0 Type Library" and
   "SASWorkSpaceManager 1.0 Type Library"
  5、现在就让我们把下面的代码输入吧,不要告诉我你不知怎么操作
      Dim obWS As SAS.Workspace
      
      Dim obWSM As New SASWorkspaceManager.WorkspaceManager
      
      
      Sub Form_Load()
      
      Dim obConn As New ADODB.Connection
      
      Dim obRS As New ADODB.Recordset
      
      Dim errorString As String
      
      
      Rem start the SAS session
      
      Set obWS = obWSM.Workspaces.CreateWorkspaceByServer("Local", _
      
                 VisibilityProcess, Nothing, "", "", errorString)
      
      
      Rem submit some SAS code
      
      obWS.LanguageService.Submit _
      
           "data a; do x=1 to 10; y=10*x; output; end; run;"
      
      
      Rem open an ADO connection to the data set
      
      Dim connString As String
      connString = "provider=sas.iomprovider.1; SAS Workspace ID=" _
                   + obWS.UniqueIdentifier
      obConn.Open connString
      
      obRS.Open "work.a", obConn, adOpenStatic, adLockReadOnly, _
      
                adCmdTableDirect
      
      
      Rem write the table as html (visible in Word with tags)
      
      obRS.MoveFirst
      
      Dim sTable As String
      
      sTable = "<TABLE BORDER=0><TBODY><TR><TD class=Data>"
      
      Selection.TypeText sTable
      
      
      sTable = obRS.GetString(, , "</TD><TD class=Data>", _
      
      "</TD></TR><TR><TD class=Data>")
      
      Selection.TypeText sTable
      
      sTable = "</TD></TR></TBODY></TABLE>"
      
      Selection.TypeText sTable
      
      
      Rem tidy-up
      obRS.Close
      obConn.Close
      obWS.Close
      
      End Sub
  6、代码写好了,当然是运行了
  7、运行了么?你去WORD界面看看 ,发生了什么?呵呵 ,当然可能在你的环境中可能有问题,但是在我这我确确实实看到了什么
  
好了,文章就此结束了 ,望大家喜欢 ,当然希望大家不要误解了标题的意思,SAS IT这个产品本身是不免费的,但是这个产品所带来的一些COM对象却是免费的  
  

本文地址:http://com.8s8s.com/it/it23539.htm