请教高手：VC下如何使用SQLDMO

请教高手：VC下如何使用SQLDMO

BOOL StartServer()
{
if(FAILED(CoInitialize(NULL)))
{
AfxMessageBox(_T("Com初始化失败"));
return FALSE;
}
_SQLServerPtr spSQLServer;//定义SQL Server对象指针

if(FAILED(spSQLServer.CreateInstance(__uuidof(SQLServer))))
{
AfxMessageBox(_T("无法建立SQL对象"));
return FALSE;
}
CString strServer(_T("SQL Server服务器名称"));
CString strUserName(_T("登陆名"));
CString strPassword(_T("登录密码"));

try
{
//超时设置
spSQLServer->PutLoginTimeout(10);
spSQLServer->PutApplicationName(_T("MyAppName"));
spSQLServer->PutHostName(_T("MyHostName"));
spSQLServer->PutNetPacketSize(1024);
spSQLServer->Connect(_variant_t(strServer),_variant_t(strUserName),_variant_t(strPassword));
}
catch(_com_error pCE)
{
try
{
//启动SQL Server服务器
spSQLServer->Start(FALSE,_variant_t(strServer),_variant_t(strUserName),_variant_t(strPassword));
}
catch(_com_error pCE)
{
AfxMessageBox(pCE.Description());
spSQLServer.Release();
return FALSE;
}
}
try
{
spSQLServer.Release();
}
catch(_com_error pCE)
{
AfxMessageBox(pCE.Description());
return FALSE;
}
CoUninitialize();
return TRUE;
}