LoginTimeout Property Example

This example sets the LoginTimeout property of the DBEngine object to 120 seconds. It then opens three ODBCDirect workspaces and modifies their LoginTimeout properties from the default inherited from the DBEngine object.

Sub LoginTimeoutX()

    ' Change the default LoginTimeout value.
    DBEngine.LoginTimeout = 120

    Dim wrkODBC1 As Workspace
    Dim wrkODBC2 As Workspace
    Dim wrkODBC3 As Workspace

    Set wrkODBC1 = CreateWorkspace("", "admin", "", _
        dbUseODBC)
    Set wrkODBC2 = CreateWorkspace("", "admin", "", _
        dbUseODBC)
    Set wrkODBC3 = CreateWorkspace("", "admin", "", _
        dbUseODBC)

    ' Change the LoginTimeout of the individual ODBCDirect 
    ' workspaces for 60 seconds, the default time (120 
    ' seconds), and no timeout.
    wrkODBC1.LoginTimeout = 60
    wrkODBC2.LoginTimeout = -1
    wrkODBC2.LoginTimeout = 0

    wrkODBC1.Close
    wrkODBC2.Close
    wrkODBC3.Close

End Sub