Пример свойства InternetTimeout (Visual Basic)
Важно!
Начиная с Windows 8 и Windows Server 2012 серверные компоненты RDS больше не включаются в операционную систему Windows (дополнительные сведения см. в Windows 8 и Windows Server 2012 совместимости). Клиентские компоненты RDS будут удалены в будущих версиях Windows. Избегайте использования этого компонента в новых разработках и запланируйте изменение существующих приложений, в которых он применяется. Приложения, использующие RDS, должны перейти в службу данных WCF.
В этом примере демонстрируется свойство InternetTimeout , которое существует в объектах DataControl и DataSpace . В этом примере используется объект DataControl и устанавливается время ожидания 20 секунд.
'BeginInternetTimeoutVB
Public Sub Main()
On Error GoTo ErrorHandler
Dim dc As RDS.DataControl
Dim rst As ADODB.Recordset
Set dc = New RDS.DataControl
dc.Server = "https://MyServer"
dc.ExecuteOptions = 1
dc.FetchOptions = 1
dc.Connect = "Provider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
dc.SQL = "SELECT * FROM Authors"
' Wait at least 20 seconds
dc.InternetTimeout = 200
dc.Refresh
' Use another Recordset as a convenience
Set rst = dc.Recordset
Do While Not rst.EOF
Debug.Print rst!au_fname & " " & rst!au_lname
rst.MoveNext
Loop
If rst.State = adStateOpen Then rst.Close
Set rst = Nothing
Set dc = Nothing
Exit Sub
ErrorHandler:
' clean up
If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
End If
Set rst = Nothing
Set dc = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndInternetTimeoutVB
См. также:
Объект DataControl (служба удаленных рабочих столов)
Объект DataSpace (служба удаленных рабочих столов)
Свойство InternetTimeout (служба удаленных рабочих столов)