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