超时已过期（cmd.CommandTimeout = 0 被忽略）

Question

即使在设置 cmd.CommandTimeout = 0 后，我仍收到超时过期错误 查询是从 SAP 数据库中提取的，在 SAP 中，sql 查询运行良好，但是当我尝试在 Visual Studio 中的适配器上运行它时，我得到了 Timeout Expired 错误。 有什么我想念的吗？ 如何延长超时时间以便我的查询可以运行？ 这是我的 VB.Net 代码：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  Dim ds As New DataSet
  Dim dv As New DataView
  Dim ConStr As String = "Data Source= .\SQLOLEDB.1;Password=Password;Persist Security Info=True;User ID=User;Initial Catalog=XXX;Data Source=xxx.xxx.x.x;Connection Timeout=0"
  Dim cn As SqlConnection
  Try
      cn = New SqlConnection(ConStr)
      cn.Open()
      Dim cmd = cn.CreateCommand()
      cmd.CommandTimeout = 0
      Dim ad As New SqlDataAdapter("/* SELECT FROM [dbo].[OITM] T2 */" &
                                        " DECLARE @Whs_From AS VARCHAR(10)" &
                                        " DECLARE @Whs_To AS VARCHAR(10)" &
                                        "/* WHERE */" &
                                        " SET @Whs_From = /* T2.DfltWH */ 'AUT-L-N'" &
                                        " SET @Whs_To = /* T2.DfltWH */ 'AUT-L-N'" &
                                        " SELECT    QUT1.[ItemCode] AS 'Code'," &
                                        " ISNULL(SUM(QUT1.[OpenQty]), 0) AS 'Open'" &
                                        " INTO  #QuoteSum" &
                                        " FROM  QUT1 QUT1 INNER JOIN OITM OITM ON QUT1.[ItemCode] = OITM.[ItemCode] INNER JOIN OQUT OQUT ON QUT1.[DocEntry] = OQUT.[DocEntry]" &
                                        " WHERE     QUT1.[WhsCode] = OITM.[DfltWH] AND QUT1.[LineStatus] = 'O' AND OQUT.[Canceled] != 'Y' GROUP BY QUT1.[ItemCode]" &
                                        " SELECT    QUT1.[ItemCode] AS 'Code'," &
                                        " SUM(QUT1.[quantity]) AS 'Last360'" &
                                        " INTO  #Last360" &
                                        " FROM  QUT1 QUT1 INNER JOIN OITM OITM ON QUT1.[ItemCode] = OITM.[ItemCode] INNER JOIN OQUT OQUT ON QUT1.[DocEntry] = OQUT.[DocEntry]" &
                                        " WHERE     QUT1.[WhsCode] = OITM.[DfltWH] AND CONVERT(CHAR, QUT1.[DocDate], 112) < CONVERT(CHAR, GetDate()-270, 112) AND CONVERT(CHAR, QUT1.[DocDate], 112) >= CONVERT(CHAR, GetDate()-360, 112) AND OQUT.[Canceled] != 'Y'" &
                                        " GROUP BY QUT1.[ItemCode]" &
                                        " SELECT    OITW.[WhsCode] AS 'Warehouse'," &
                                        " OITW.[ItemCode] AS 'Item Code'," &
                                        " OITM.[ItemName] AS 'Item Description'," &
                                        " ISNULL(QuoteSum.[Open], 0) AS 'Sales Quote Qty'," &
                                        " OITW.[IsCommited] AS 'Sales Order Qty'," &
                                        " (ISNULL(QuoteSum.[Open], 0) + OITW.[IsCommited]) AS 'Demand'," &
                                        " OITW.[OnHand] AS 'In Stock Qty', OITW.[OnOrder] AS 'Purchase Order Qty'," &
                                        " (OITW.[OnHand] + OITW.[OnOrder]) AS 'Available'," &
                                        " OITW.[OnHand] - OITW.[IsCommited] - ISNULL(QuoteSum.[Open], 0) + OITW.[OnOrder] AS 'To Manufacture/Buy'," &
                                        " Last360.[Last360] as 'Last 271-360'" &
                                        " FROM  OITW OITW LEFT OUTER JOIN #QuoteSum QuoteSum ON OITW.[ItemCode] = QuoteSum.[Code] INNER JOIN OITM OITM ON OITW.[ItemCode] = OITM.[ItemCode] AND OITW.[WhsCode] = OITM.[DfltWH] LEFT OUTER JOIN #Last360 Last360 ON OITW.[ItemCode] = Last360.[Code]" &
                                        " WHERE     OITM.[DfltWH] >=@Whs_From AND OITM.[DfltWH] <= @Whs_To" &
                                        " BEGIN DROP TABLE #QuoteSum END" &
                                        " BEGIN DROP TABLE #Last360 END;", cn)
      ad.Fill(ds, "OITM")
      dv.Table = ds.Tables("OITM")
      Me.DataGridView1.DataSource = dv
  Catch ex As Exception
      MsgBox(ErrorToString)
  End Try
End Sub

这是我得到的确切错误消息：

System.Data.SqlClient.SqlException：超时已过期。超时 在操作完成之前经过的时间段或服务器处于 没有响应。在 System.Data.SqlClient.SqlConnection.OnError（SqlException 异常， 布尔中断连接）在 System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning（TdsParserStateObject stateObj) 在 System.Data.SqlClient.TdsParser.Run(RunBehavior runBehavior、SqlCommand cmdHandler、SqlDataReader 数据流、 BulkCopySimpleResultSet bulkCopyHandler, TdsParserStateObject stateObj) 在 System.Data.SqlClient.SqlDataReader.ConsumeMetaData() 在 System.Data.SqlClient.SqlDataReader.get_MetaData() 在 System.Data.SqlClient.SqlCommand.FinishExecuteReader（SqlDataReader ds， RunBehavior runBehavior，字符串 resetOptionsString) 在 System.Data.SqlClient.SqlCommand.RunExecuteReaderTds（CommandBehavior cmdBehavior、RunBehavior runBehavior、布尔 returnStream、布尔 异步）在 System.Data.SqlClient.SqlCommand.RunExecuteReader（CommandBehavior cmdBehavior、RunBehavior、runBehavior、布尔返回流、字符串 方法，DbAsyncResult 结果）在 System.Data.SqlClient.SqlCommand.RunExecuteReader（CommandBehavior cmdBehavior、RunBehavior、runBehavior、布尔返回流、字符串 方法）在 System.Data.SqlClient.SqlCommand.ExecuteReader（CommandBehavior 行为，字符串方法）在 System.Data.SqlClient.SqlCommand.ExecuteDbDataReader（CommandBehavior 行为）在 System.Data.Common.DbCommand.System.Data.IDbCommand.ExecuteReader（CommandBehavior 行为）在 System.Data.Common.DbDataAdapter.FillInternal（DataSet 数据集，DataTable[] 数据表，Int32 startRecord，Int32 maxRecords， 字符串 srcTable、IDbCommand 命令、CommandBehavior 行为）在 System.Data.Common.DbDataAdapter.Fill（数据集数据集，Int32 startRecord，Int32 maxRecords，String srcTable，IDbCommand 命令， CommandBehavior 行为）在 System.Data.Common.DbDataAdapter.Fill（数据集数据集，字符串 srcTable) 在 CR_Test.Form1.Form1_Load(Object sender, EventArgs e) 在 c:\users\leroif\documents\visual studio 2013\Projects\CR Test\CR 测试\Form1.vb：第 46 行

Answer 1

问题是你覆盖了错误对象的超时值。

cmd.CommandTimeout = 0

但是在那之后你实际上并没有在任何地方使用cmd 对象。看起来您甚至根本不需要创建命令对象。您的查询是使用 ad SqlDataAdapter 实例而不是 cmd 实例执行的。

您需要做的是覆盖SqlDataAdapter 的超时值。

我自己从未尝试过，但显然，它是这样做的：

ad.SelectCommand.CommandTimeout=0

试试看。

Answer 2

将下面的代码放在 Try 语句之前，它不会忽略

 Dim cmd = cn.CreateCommand()
 cmd.CommandTimeout = 0