Public Function ChecarEstadoBotao(ByVal BotaoID As Integer) As Boolean
Dim Con As New SqlConnection(Config.StringConexao)
Dim Retorno As Integer
Try
Dim Parametros(1) As SqlParameter
Parametros(0) = New SqlParameter("@BotaoID", BotaoID)
Retorno = ExecuteScalar(Con, CommandType.StoredProcedure, "Botao_ChecarEstadoBotao", Parametros)
Return Retorno
Catch ex As Exception
Throw ex
End Try
Con.Close()
Con.Dispose()
End Function
Posted
29-10-2004 12:36
por
Israel Aece e Joao Paulo Carreiro