吉林通app服务器响应超时,Timeout 时间已到。在操作完成之前超时时间已过或服务器未响应。...

Timeout 时间已到。在操作完成之前超时时间已过或服务器未响应。0

lrqqhs2016.01.08浏览242次分享举报

Public Overloads Function QueryData(ByVal strSql As String, ByVal tabName As String) As DataSet

Dim tmpDA As SqlDataAdapter

Dim tmpDS As DataSet

If tabName.Trim().Length = 0 Then

tabName = "TEMP"

End If

tmpDS = New DataSet

Try

tmpDA = New SqlDataAdapter(strSql, Me.m_StrCon)

tmpDA.MissingSchemaAction = MissingSchemaAction.AddWithKey

tmpDA.Fill(tmpDS, tabName)‘单步到这里catch到异常： Timeout 时间已到。在操作完成之前超时时间已过或服务器未响应。求高手解答~~貌似跟CommandTimeOut没有关系

Catch ex As Exception

Me.m_ErrorMessage = ex.Message

Finally

If Not tmpDA Is Nothing Then

If Not tmpDA.SelectCommand Is Nothing Then

If Not tmpDA.SelectCommand.Connection Is Nothing Then

tmpDA.SelectCommand.Connection.Dispose()

End If

tmpDA.SelectCommand.Dispose()

End If

tmpDA.Dispose()

tmpDA = Nothing

End If

End Try

Return tmpDS

End Function