分享
 
 
 

【推荐】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对象却是免费的

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有