Visual Basic

        Public Shared Function GetGameStatus() As GameStatus
            Dim sConnectionString As String
            Dim oConnection As SqlConnection
            Dim oCommand As SqlCommand
 
            Try
                sConnectionString = ConfigurationSettings.AppSettings("DataConnection")
                oConnection = New SqlConnection(sConnectionString)
                oCommand = New SqlCommand
 
                oCommand.Connection = oConnection
                oCommand.CommandText = "SQLGetSystemParameter"
                oCommand.CommandType = CommandType.StoredProcedure
 
                Dim sqlParam As New SqlParameter("@ParmName", SqlDbType.NVarChar, 25)
                sqlParam.Value = "GameStatus"
                oCommand.Parameters.Add(sqlParam)
 
                sqlParam = New SqlParameter("@ParmValue", SqlDbType.NVarChar, 255)
                sqlParam.Direction = ParameterDirection.Output
                oCommand.Parameters.Add(sqlParam)
 
                sqlParam = New SqlParameter("RETURN_VALUE", SqlDbType.Int)
                sqlParam.Direction = ParameterDirection.ReturnValue
                oCommand.Parameters.Add(sqlParam)
 
                oConnection.Open()
                oCommand.ExecuteNonQuery()
                oConnection.Close()
 
                Dim iReturnCheck As Integer = Integer.Parse(oCommand.Parameters("RETURN_VALUE").Value)
                If iReturnCheck = 1 Then
                    GetGameStatus = GameStatus.Invalid
                Else
                    GetGameStatus = iReturnCheck
                End If
            Catch ex As Exception
                GetGameStatus = GameStatus.Invalid
            Finally
                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 GetGameStatus
        End Function

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Coming soon: The Second EuroCPian Event

Dim I As Integer
For I = 0 To ar.Count - 1
    If CType(ar.Item(I), sl1).name = search Then
        Exit For
    End If
Next

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Coming soon: The Second EuroCPian Event