关于调用DTS包的代码

54 阅读 0 评论 36 点赞

我是靠谱客的博主感动八宝粥，最近开发中收集的这篇文章主要介绍关于调用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编程经验总结