关于调用DTS包的代码

数据库 关于调用DTS包的代码

失败，没什么整理代码 把调用DTS包的代码贴出来，也省得大家去查帮助了（需要更像喜请查看sql server帮助） 以下代码根据sql server中vb代码转化 #import "C://Program Files//Microsoft SQL Server//80//tools//binn//dtspkg.dll" / rename("EOF","IsEOF") rename("BOF","IsBOF") void CChildView::OpenDtsFile(CString strPathName) { //企业管理器//数据转换服务//本地包//另存为DTS文件 DTS::_Package2Ptr m_pPackage2; DTS::TaskPtr      m_pTask; DTS::StepPtr     m_pStep; DTS::ExecutePackageTaskPtr m_pExeTask; try { m_pPackage2.CreateInstance(__uuidof(DTS::Package2)); m_pPackage2->FailOnError=true; m_pStep=m_pPackage2->Steps->New(); m_pTask=m_pPackage2->Tasks->New(_bstr_t("DTSExecutePackageTask")); m_pExeTask=m_pTask->CustomTask; m_pExeTask->FileName=_bstr_t(strPathName); m_pExeTask->Name=_bstr_t("ExePkgTask"); m_pStep->TaskName=m_pExeTask->Name; m_pStep->Name=_bstr_t("ExePkgStep"); m_pStep->ExecuteInMainThread=true; m_pPackage2->Steps->Add(m_pStep); m_pPackage2->Tasks->Add(m_pTask); m_pPackage2->Execute(); CString strMsg; strMsg.Format("%s,数据转换%d个任务,%d个步骤成功", strPathName,m_pPackage2->Tasks->Count,m_pPackage2->Steps->Count); AfxMessageBox(strMsg); m_pExeTask=NULL; m_pTask.Release(); m_pTask=NULL; m_pStep.Release(); m_pStep=NULL; m_pPackage2.Release(); m_pPackage2=NULL; } catch(_com_error &e) { AfxMessageBox(_bstr_t(e.ErrorMessage())+_bstr_t(e.Description())); } }   CSDN VC编程经验总结