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

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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对象却是免费的

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航