打印本文 打印本文 关闭窗口 关闭窗口
建立同SAS交互的开发式VB客户端
作者:武汉SEO闵涛  文章来源:敏韬网  点击数2021  更新时间:2009/4/23 15:41:30  文章录入:mintao  责任编辑:mintao
ice读写数据的OLE DB的数据提供者
 你可以使用ADO读写数据
 例如:
  Set obSAS = _
  obWSMgr.Workspaces.CreateWorkspaceByServer _
  ("",VisibilityProcess,obServer,"","", _
  xmlInfo)
  Dim obConnection As New ADODB.Connection
  obConnection.Open _
  "provider=sas.iomprovider.1;" & _
  "SAS Workspace ID=" & obSAS.UniqueIdentifier
  Dim obRS As New ADODB.Recordset
  obRS.Open "sashelp.class", obConnection, _
  adOpenDynamic, adLockReadOnly, _
  adCmdTableDirect
  Set MSChart1.DataSource = obRS  
关于IOM COM桥
 当SAS运行window上时,你可以使用COM或者DCOM,然而当SAS运行于UNIX或者OS上时,则不能使用COM技术调用SAS,SAS提供了IOM COM桥,它一方便呈现COM接口给客户端,一方面使用TCP/IP跟SAS进行通信
 
关于Scripto   
 Scripto 是一个用于脚本应用的ACITVEX对象,其使用解决了脚本同SAS组件对象交互使用的几个限制,如VBSCRIPT只能返回一个单一参数;VBSCRIPT请求所有变量为VARIANT,故数祖也被处理为VARIANT,Scripto就解决这2个问题,容许返回多个参数,可以使用数组进行传输
  '''' Scripto will do 2 things:
  '''' 1) It will convert the 3 returned arrays to arrays of variants instead of arrays of
  '''' longs so vbscript can handle them
  '''' 2) It allows more than 1 return parameter
  set obSAS = CreateObject("SAS.Workspace")
  Set obScripto = _
  CreateObject("SASScripto.Scripto")
  obSAS.LanguageService.Submit _
  "proc options;run;"
  obScripto.SetInterface obSAS.LanguageService
  '''' obSAS.LanguageService.FlushLogLines 1000, carriageControls, linetypes, logLines
  Dim flushLogLinesParams(3)
  flushLogLinesParams(3) = 1000
  obScripto.InvokeMethod "FlushLogLines", _
  flushLogLinesParams
  '''' flushLogLinesParams(0) now has logLines
  '''' flushLogLinesParams(1) has lineTypes
  '''' flushLogLinesParams(2) has carriageCtrls
  '''' This prints the first line
  wscript.echo flushLogLinesParams(0)(0) 
   
关于IT客户端
 你需要在客户端安装和注册几个文件
 IT客户端的必要文件是自动安装执行的,通过调用inttech.exe,其会安装必要的文件通过网络
 
 
    

上一页  [1] [2] 

打印本文 打印本文 关闭窗口 关闭窗口