SQL Server 2008 安装时遇到SSIS服务异常,该如何解决啊,虽然安装完毕但是安装失败,怎么办? 5
3个回答
展开全部
给你个参考吧。 这是我写的用来定义路径的。
在变量区定义
ETLExcFilePath 字符串 值为X:\XXX\
ETLPageModelName 字符串 值为 你想要取得名字
以下为脚本
Public Sub Main()
Dim reslove As New Tlw.ETLResolve.ETLStandardResolve()
Dim excFilePath As String, configFilePath As String
Dim obj As Object
excFilePath = Dts.Variables("tlw::ETLExcFilePath").Value.ToString() + Dts.Variables("tlw::ETLPageModelName").Value.ToString() + DateTime.Now.ToString("yyyyMMddHHmmss") + ".xml"
Dts.Variables("tlw::ETLExcAllFilePath").Value = excFilePath
configFilePath = Dts.Variables("tlw::ETLConfigFilePath").Value.ToString()
obj = reslove.CreateXMLDataFile(excFilePath, configFilePath)
Dts.Variables("tlw::ETLResloveObj").Value = obj
Dts.TaskResult = Dts.Results.Success
End Sub
我这个是出XML文件的。
至于每个月一次的话 就用JOB吧。
在变量区定义
ETLExcFilePath 字符串 值为X:\XXX\
ETLPageModelName 字符串 值为 你想要取得名字
以下为脚本
Public Sub Main()
Dim reslove As New Tlw.ETLResolve.ETLStandardResolve()
Dim excFilePath As String, configFilePath As String
Dim obj As Object
excFilePath = Dts.Variables("tlw::ETLExcFilePath").Value.ToString() + Dts.Variables("tlw::ETLPageModelName").Value.ToString() + DateTime.Now.ToString("yyyyMMddHHmmss") + ".xml"
Dts.Variables("tlw::ETLExcAllFilePath").Value = excFilePath
configFilePath = Dts.Variables("tlw::ETLConfigFilePath").Value.ToString()
obj = reslove.CreateXMLDataFile(excFilePath, configFilePath)
Dts.Variables("tlw::ETLResloveObj").Value = obj
Dts.TaskResult = Dts.Results.Success
End Sub
我这个是出XML文件的。
至于每个月一次的话 就用JOB吧。
追问
谢谢回答 不过本人新手 不懂你那意思 我就想把sql server2008装上 都装了20多次了 老有问题
参考资料: 百度一下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在变量区定义
ETLExcFilePath 字符串 值为X:\XXX\
ETLPageModelName 字符串 值为 你想要取得名字
以下为脚本
Public Sub Main()
Dim reslove As New Tlw.ETLResolve.ETLStandardResolve()
Dim excFilePath As String, configFilePath As String
Dim obj As Object
excFilePath = Dts.Variables("tlw::ETLExcFilePath").Value.ToString() + Dts.Variables("tlw::ETLPageModelName").Value.ToString() + DateTime.Now.ToString("yyyyMMddHHmmss") + ".xml"
Dts.Variables("tlw::ETLExcAllFilePath").Value = excFilePath
configFilePath = Dts.Variables("tlw::ETLConfigFilePath").Value.ToString()
obj = reslove.CreateXMLDataFile(excFilePath, configFilePath)
Dts.Variables("tlw::ETLResloveObj").Value = obj
Dts.TaskResult = Dts.Results.Success
End Sub
我这个是出XML文件的。
至于每个月一次的话 就用JOB吧。
ETLExcFilePath 字符串 值为X:\XXX\
ETLPageModelName 字符串 值为 你想要取得名字
以下为脚本
Public Sub Main()
Dim reslove As New Tlw.ETLResolve.ETLStandardResolve()
Dim excFilePath As String, configFilePath As String
Dim obj As Object
excFilePath = Dts.Variables("tlw::ETLExcFilePath").Value.ToString() + Dts.Variables("tlw::ETLPageModelName").Value.ToString() + DateTime.Now.ToString("yyyyMMddHHmmss") + ".xml"
Dts.Variables("tlw::ETLExcAllFilePath").Value = excFilePath
configFilePath = Dts.Variables("tlw::ETLConfigFilePath").Value.ToString()
obj = reslove.CreateXMLDataFile(excFilePath, configFilePath)
Dts.Variables("tlw::ETLResloveObj").Value = obj
Dts.TaskResult = Dts.Results.Success
End Sub
我这个是出XML文件的。
至于每个月一次的话 就用JOB吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询