【发布时间】:2016-06-16 17:45:47
【问题描述】:
如果这个问题是重复的,我很抱歉。我有一个 system.object 变量,用于存储选择查询的结果。我需要将结果输出到平面文件以进一步处理它。我有以下代码可以运行几秒钟,然后引发系统调用错误。您能否建议对此进行任何修改,或者我做错了什么:
Public Sub Main()
Dim x As New OleDb.OleDbDataAdapter
Dim dt As New DataTable
Dim str As String = vbNullString
If System.IO.File.Exists("D:\BKP\AD.txt") = False Then
System.IO.File.Create("D:\BKP\AD.txt")
End If
'MessageBox.Show("Hello")
Dim i As Int32
x.Fill(dt, Dts.Variables("User::LDAPResultSet").Value)
i = dt.Rows.Count
For j As Int32 = 0 To i - 1
str = str & Join(dt.Rows.Item(j).ItemArray(), ",") & vbCrLf
Next
Dim objWriter As New System.IO.StreamWriter("D:\BKP\AD.txt")
objWriter.Write(str)
objWriter.Close()
End Sub
End Class
有没有更好的方法来写这个,或者如果有替代代码片段我也想尝试一下。感谢您的宝贵时间。
【问题讨论】:
标签: vb.net ssis dynamic-sql script-task