Examples: ThreadSafeDriver property

Uselsx "*LSXODBC"
%INCLUDE "lsconst.lss"
Sub Initialize
  Dim con As New ODBCConnection
  REM Connect to data source
  con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
  While Not con.IsConnected
    dsn = Inputbox("ODBC data source name", _
    "Connection not made ...")
    If dsn = "" Then Exit Sub
    con.ConnectTo(dsn)
  Wend
  Messagebox "Connected to " & con.DataSourceName,, _
  "Connection made ..."
  REM Set thread-safe state per user wishes
  If Messagebox("Do you want to set thread-safe?", _
  MB_YESNO + MB_ICONQUESTION, _
  "Thread-safe?") = IDYES Then
    con.ThreadSafeDriver = True
  Else
    con.ThreadSafeDriver = False
  End If
  REM Report thread-safe state
  If con.ThreadSafeDriver Then
    Messagebox "Thread-safe is turned on",,"Thread-safe"
  Else
    Messagebox "Thread-safe is not turned on",, "Not thread-safe"
  End If
  REM Disconnect
  con.Disconnect 
End Sub