如果这个问题是重复的,我很抱歉。我有一个 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
有没有更好的方法来写这个,或者如果有一个替代的代码片段我也想试试。感谢您的时间。