ADO接続するまでの間にキャンセルするには？ (ID:77801)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>・非同期での接続を行う「OpenメソッドのOptions引数に指定するadAsyncConnect定数」
helpを見て実行してみけど
>・接続を中止させる「Cancelメソッド」
を使って中止するのですが結局時間が変わらないんですが
どうすれば改善できるでしょうか。

case1だけしかまだやっていません
Private Sub Connection(No As Integer)
    flg = False
    Select Case No
        Case 1
            cnn.Provider = "SQLOLEDB"
            cnn.Properties("Data Source").Value = strServerName
            cnn.Properties("Integrated Security") = "SSPI"
            If Me.Combo1.ListIndex <> -1 Then
                cnn.Properties("Initial Catalog").Value = _
                    Me.Combo1.List(Me.Combo1.ListIndex)
            End If
            cnn.Open , , , adAsyncConnect
            While (cnn.State = adStateConnecting)
                DoEvents
                If flg = True Then
                    Exit Sub
                End If
            Wend
            If Me.Combo1.ListIndex = -1 Then
                Set rs = cnn.OpenSchema(adSchemaCatalogs)
                Me.Combo1.Clear
                Do Until rs.EOF
                    Me.Combo1.AddItem rs.Fields(0).Value
                    rs.MoveNext
                Loop
            End If
            
        Case 2
            cnn.Provider = "SQLOLEDB"
            cnn.Properties("Data Source").Value = strServerName
            cnn.Properties("User ID") = strUserName
            cnn.Properties("Password") = strPassWord
            If Me.Combo1.ListIndex <> -1 Then
                cnn.Properties("Initial Catalog").Value = _
                    Me.Combo1.List(Me.Combo1.ListIndex)
            End If
            cnn.Open
            If Me.Combo1.ListIndex = -1 Then
                Set rs = cnn.OpenSchema(adSchemaCatalogs)
                Me.Combo1.Clear
                Do Until rs.EOF
                    Me.Combo1.AddItem rs.Fields(0).Value
                    rs.MoveNext
                Loop
            End If
    End Select
    
End Sub

Private Sub CommandEnd_Click()
    cnn.Cancel
    flg = True
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る