InternetTimeout プロパティの例 (VB)

この例では、DataControl と DataSpace オブジェクトにある InternetTimeout プロパティの機能を示します。ここでは、DataControl オブジェクトを使ってタイムアウトを 20 秒に設定します。

Sub Main()
    InternetTimeoutX
End Sub

Public Sub InternetTimeoutX()
Dim dc As New DataControl
Dim rst As ADODB.Recordset

dc.Server = "http://yourServer"
dc.Connect = "DSN=Pubs;UID=sa;PWD=;"
dc.SQL = "SELECT * FROM Authors"
dc.InternetTimeout = 20000  'Wait at least 20 seconds.
dc.Refresh
Set rst = dc.Recordset      'Use another Recordset as a convenience
While Not rst.EOF
    Debug.Print rst!au_fname & " " & rst!au_lname
    rst.MoveNext
Wend

rst.Close
End Sub