My Fill永远不会超时 - 我的意思是它会在这张桌子上运行15分钟以上。这是代码:
Dim ConnectSource As New OdbcConnection("Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=d:\EnvironProcessing\Q2_2016\OR\brown\;Extensions=csv,tab,txt;")
Dim SourceAdapter As New OdbcDataAdapter
Dim dtSource As New Data.DataTable("Source")
SourceAdapter.SelectCommand = New OdbcCommand("Select * from [" & SourceTable & "]", ConnectSource)
SourceAdapter.SelectCommand.CommandTimeout = 5
SourceAdapter.FillSchema(dtSource, SchemaType.Source)
Try
SourceAdapter.Fill(dtSource)
Catch ex As Exception
Debug.Print(ex.Message)
End Try
我最初使用默认值,所以我尝试添加自己的超时值。没有快乐。
这是Text驱动程序的另一个问题吗?或者我应该在这里做些什么。