viewmaindialog

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

viewmaindialog

// MainDialog.cpp : Implementation of CMainDialog

// This will fill a tree control like this:

// libname

// memname

// variableName

// memname

// ...

#include "stdafx.h"

#include "MainDialog.h"

// atlcontrols.h is shipped with a sample atl program with vc

#include "atlcontrols.h"

#import "sas.tlb"

#import "SASWMan.dll"

#import "c:\program files\common files\system\ado\msado15.dll" rename("EOF", "adoEOF")

/////////////////////////////////////////////////////////////////////////////

// CMainDialog

LRESULT CMainDialog::OnInitDialog(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled)

{

unsigned long i;

long j;

// This is defined in atlcontrols.h; it is not part of Win32.

ATLControls::CTreeViewCtrl ctrlTreeView;

ctrlTreeView.Attach(GetDlgItem(IDC_TREE1));

BSTR xmlInfo;

HRESULT hr;

_bstr_t strSource;

SASWorkspaceManager::IWorkspaceManager2Ptr pIWorkspaceManager;

SAS::IWorkspacePtr pIWorkspace;

SASWorkspaceManager::IServerDef2Ptr pIServerDef = NULL;

hr = pIWorkspaceManager.CreateInstance("SASWorkspaceManager.WorkspaceManager.1");

ADODB::_ConnectionPtr obConnection = NULL;

ADODB::_RecordsetPtr obRecordset = NULL;

hr = obRecordset.CreateInstance( __uuidof( ADODB::Recordset ));

hr = obConnection.CreateInstance( __uuidof( ADODB::Connection ));

// The smart pointers will throw an exception if any function returns a bad hr, so we

// don't need to check for hr's.

try{

pIWorkspaceManager->Workspaces->UseXMLInErrorInfo = false;

// Start SAS and get the Workspace

//***** Local SAS Code ****************

pIWorkspace = pIWorkspaceManager->Workspaces->CreateWorkspaceByServer(

_bstr_t("localsas"), SASWorkspaceManager::VisibilityProcess, NULL,

_bstr_t(""), _bstr_t(""), &xmlInfo);

//***** End Local SAS Code ************

//***** Remote SAS Code ***************

//pIServerDef.CreateInstance("SASWorkspaceManager.ServerDef");

//pIServerDef->Port = 5307;

//pIServerDef->Protocol = SASWorkspaceManager::ProtocolBridge;

//pIServerDef->PutMachineDNSName(_bstr_t("your.iomserver.com"));

//pIWorkspace = pIWorkspaceManager->Workspaces->CreateWorkspaceByServer(

// _bstr_t("remotesas"), SASWorkspaceManager::VisibilityProcess,

// pIServerDef, _bstr_t("username"), _bstr_t("password"), &xmlInfo);

//***** End Remote SAS Code ***********

//Valid Protocols

//SASWorkspaceManager::ProtocolCom

//SASWorkspaceManager::ProtocolBridge

// We can run some SAS code here to create a dataset or assign a libname

// or whatever. You can also use a StoredProcess, which is where the SAS

// code is already on the SAS server and you just tell SAS to run it; you

// can also pass in parameters from your program to the StoredProcess.

// That call might look something like this (assuming there is already a

// program on the SAS server called init.sas)

// SAS::IStoredProcessServicePtr pIStoredProcess;

// pIStoredProcess = pIWorkspace->LanguageService->StoredProcessService;

// pIStoredProcess->PutRepository(_bstr_t("c:\\stocks\\Repository"));

// pIStoredProcess->Execute(_bstr_t("init"), _bstr_t("x=5"));

pIWorkspace->LanguageService->Submit(

"libname stocks 'c:\\'; data a; x=5; y=10; run;");

// Output the SAS log to the Debug window

OutputDebugString(pIWorkspace->LanguageService->FlushLog(10000));

// Connect the ADO Connection to the Workspace we created

_bstr_t strConnect( "Provider=SAS.IOMProvider.1; SAS Workspace ID=" );

strConnect = strConnect + pIWorkspace->UniqueIdentifier;

hr = obConnection->Open(strConnect, _bstr_t(""), _bstr_t(""), NULL);

// Get a safearray containing all the assigned libraries

SAFEARRAY *psaLibrefNames;

pIWorkspace->DataService->ListLibrefs(&psaLibrefNames);

BSTR *pData;

HTREEITEM treeLibnameItem;

HTREEITEM treeMemnameItem;

SafeArrayAccessData(psaLibrefNames, (void **)&pData);

ADODB::_RecordsetPtr obMembers = NULL;

hr = obMembers.CreateInstance( __uuidof( ADODB::Recordset ));

// Add each assigned library to the treeview

for (i=0; i<psaLibrefNames->rgsabound->cElements; i++)

{

_bstr_t strLibname(pData[i]);

treeLibnameItem = ctrlTreeView.InsertItem(strLibname, NULL, NULL);

// Add each dataset from each library to the treeview.

// sashelp.vmember is a dataset the SAS system maintains that contains all the

// contents of all libraries on the system.

strSource = "select * from sashelp.vmember where libname='"

+ strLibname + "' and memtype='DATA'";

obMembers->Open( strSource, _variant_t((IDispatch *)obConnection),

ADODB::adOpenForwardOnly,

ADODB::adLockReadOnly, ADODB::adCmdText );

// Add each variable(observation) from each dataset to the treeview

while (!obMembers->adoEOF)

{

_bstr_t strMemname(obMembers->Fields->GetItem( _variant_t( "memname" ) )->Value);

treeMemnameItem = ctrlTreeView.InsertItem(strMemname, treeLibnameItem, NULL);

strSource = strLibname + "." + strMemname;

try{

obRecordset->Open( strSource, _variant_t((IDispatch *)obConnection),

ADODB::adOpenForwardOnly,

ADODB::adLockReadOnly, ADODB::adCmdTableDirect );

long fieldCount = obRecordset->Fields->Count;

for (j=0; j< fieldCount; j++)

{

ctrlTreeView.InsertItem(

(_bstr_t)(obRecordset->Fields->GetItem(

_variant_t( j ) )->Name), treeMemnameItem, NULL);

}

obRecordset->Close();

}

catch(_com_error e){

OutputDebugString(e.Description());

}

obMembers->MoveNext();

}

obMembers->Close();

}

SafeArrayUnaccessData(psaLibrefNames);

SafeArrayDestroy(psaLibrefNames);

pIWorkspaceManager->Workspaces->RemoveWorkspace(pIWorkspace);

pIWorkspace->Close(); // Ensure that the SAS process is terminated.

}

catch(_com_error e){

OutputDebugString(e.Description());

::MessageBox(NULL, e.Description(), "Error Caught!", MB_OK);

for (j=0; j<obConnection->Errors->Count; j++)

{

OutputDebugString(_bstr_t(obConnection->Errors->GetItem(j)->Description));

}

OutputDebugString(_bstr_t(obConnection->Errors->Count));

return 1;

}

::MessageBox( NULL, "Success!", "", MB_OK );

return 1; // Let the system set the focus

}

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