Visual Basic

Imports System
Imports System.Threading
 
    Thread.Sleep(10000)    ' Puts the current thread to sleep for 10 seconds.

            Try
                oConnection = GetDatabaseConnection()
                oCommand = New SqlCommand
 
                oCommand.Connection = oConnection
                oCommand.CommandText = "SecurityValidateLogin"
                oCommand.CommandType = CommandType.StoredProcedure
 
                Dim sqlParam As New SqlParameter("@Username", SqlDbType.NVarChar, 50)
                sqlParam.Value = sUserName
                oCommand.Parameters.Add(sqlParam)
 
                sqlParam = New SqlParameter("@Password", SqlDbType.NVarChar, 15)
                sqlParam.Value = sPassword
                oCommand.Parameters.Add(sqlParam)
 
                sqlParam = New SqlParameter("@SourceIP", SqlDbType.NVarChar, 32)
                sqlParam.Value = sSourceIP
                oCommand.Parameters.Add(sqlParam)
 
                oConnection.Open()
                oCommand.ExecuteNonQuery()
                oConnection.Close()
 
                ' code removed
 
            Catch ex As Exception
                LogErrorEvent("SecurityServices", "ValidateUserLogin", ex.Message, ex.StackTrace)
                Throw ex
            Finally
                ' Trash our open objects
                If Not oCommand Is Nothing Then
                    oCommand.Dispose()
                End If
                If Not oConnection Is Nothing Then
                    If Not oConnection.State = ConnectionState.Closed Then
                        oConnection.Close()
                    End If
                    oConnection.Dispose()
                End If
            End Try
 
            Return retValidateValue

    Public Shared Function GetOleDBDataReader(ByVal searchDate As Date) As OleDbDataReader
        Dim oleConnection As New OleDbConnection("connectionString")
 
        Dim oleCommand As New OleDbCommand("storedProcedureName", oleConnection)
        oleCommand.CommandType = CommandType.StoredProcedure
 
        ' or you could use this if the SQL statemnet is not in a stored procedure:
        'Dim oleCommand As New OleDbCommand
        'oleCommand.CommandText = "SELECT * FROM Invoice WHERE InvoiceDT >= ?"
        'oleCommand.CommandType = CommandType.Text
        'oleCommand.Connection = oleConnection
 
        ' OleDbType depends on the column definition in the database.
        ' Using this method, you don't have to worry about the proper date format.
        Dim sqlDateParam As New OleDbParameter("@DateToSearchFor", OleDbType.Date)
        sqlDateParam.Value = searchDate
        sqlDateParam.Direction = ParameterDirection.Output
        oleCommand.Parameters.Add(sqlDateParam)
 
        oleConnection.Open()
        Return oleCommand.ExecuteReader(CommandBehavior.CloseConnection)
    End Function