|
|
地板
楼主 |
发表于 2005-4-7 12:32:31
|
只看该作者
to huonulhg
如果安装了以后在VB中选择“库引用”菜单，可以看到
Microsoft ActiveX Data Objects 2.5 Library
SAS: Integrated Object Model (IOM) 1.0 Type Library
SASWorkSpaceManager 1.0 Type Library
[code:c85fe] 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[/code:c85fe] |
|
